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A  message  from  a  leading  software  publisher. 

Why  Electronic  Arts 


Kjti.^'.'  '-y-  '>»:i«e'r.-v,?r,i^^^^^ 

"The  Amiga  wi!l  revolutionize 

^H    i  iHL^H 

die  home  computer  industry.  Its 

the  first  home  machine  that  has 

evetything  you  want  and  need 

for  all  the  major  uses  of  a  home 

computer,  itiduding  entertninment, 

education  and  productivlry.  The 

software  we're  developing  for  the 

Amiga  will  blow  your  socks  off.  We 

think  the  Amiga,  with  it's  incom- 

parable power,  sound  and  graphics, 

^^^^^^^B-.   '     ^^H 

will  give  Electronic  Arts  and  the 

entire  industry  a  \'ery  bright  future!' 

Tfip  Hawlcini 

^Brnm^ssasf,  -l  4..ku,i^.vj( 

IS  Committed  to  the  Amiga. 


In  our  first  two  years,  Electronic  Arts  has  emerged  as  a  leader  of 
the  home  software  business.  We  have  won  the  most  product  quality 
awards— over  60.  We  have  placed  the  most  BillboaTd  Top  20 
tides- 12.  We  have  also  been  consistendy  profitable  in  an  industry 
beset  by  lo5.ses  and  disappointments. 

Why,  then,  is  Electronic  Arts  banking  its  hard  won  gains  on  an 
unproven  new  computer  like  the  Amiga? 

The  Vision  of  Electronic  Arts. 

We  believe  that  one  day  soon  the  home  computer  will  be  as  important 

as  radio,  stereo  and  television  are  today 

These  electronic  marvels  are  significant  because  they  bring  faraway 
places  .ind  experiences  right  into  your  home.  Ttxlay,  from  your  living 
room  you  can  watch  a  championship  basketball  game,  see  Christopher 
Columbus  sail  to  the  New  World,  or  watch  a  futuristic  spaceship 
battle. 

The  computer  promises  to  let  you  do  much  more.  Because  it  is 
interactive  you  get  to  participate,  For  example,  you  can  play  in  that 
basketball  game  instead  of  just  watching.  You  can  actually  be  Christopher 
Columbus  and  feel  firsthand  what  he  felt  when  he  sighted  the  New 
Worid.  And  you  can  step  inside  the  cockpit  of  your  own  spaceship. 

But  so  far,  the  computer's  promise  has  been  hard  to  see.  Software 


has  been  severely  limited  by  the  abstract,  blocky  shapes  and  rinky- 
dink  sound  reproduction  of  most  home  computers.  Only  a  handful 
of  pioneers  have  been  able  to  appreciate  the  possibilities.  But  then, 
popular  opinion  once  held  that  television  was  only  useful  for 
civil  defense  communications. 

A  Promise  of  Artistry. 

The  Amiga  is  advancing  our  medium  on  all  fronts.  For  the  first  time, 
a  personal  computer  is  providing  the  visual  and  aural  quality  our 
sophisticated  eyes  and  ears  demand.  Compared  to  the  Amiga,  using 
some  other  home  computers  is  like  watching  black  and  white  television 
with  the  sound  turned  off. 

The  first  Amiga  software  products  from  Electronic  Arts  are  near 
completion.  We  suspect  you'll  be  hearing  a  lot  about  them.  Some 
of  them  are  games  like  you've  never  seen  before,  that  get  more  out 
of  a  computer  than  other  games  ever  have.  Others  are  harder  to 
categorize,  and  we  like  that. 

For  the  first  time,  software  developers 
have  the  tools  they  need  to  fulfill  the 
promise  of  home  computing. 

Two  years  ago,  we  said,  "We  See 
Farther!'  Now  Farther  is  here. 


ELECTRONIC  ARTS" 


DrJ  and  Larry  Bind  Go  OnHDn-One 
TW  number  one  sofrware  sporK  gsme 
of  all  lime.  Shoor  as  accuraiely  ils  Larry 

Rrd,  slam  dunk  like  the  [Xicior  whik 

VOu're  chtetoi  im  by  the  victory  thants 

of  ihc  Boston  Garden  fiovid 


Skyfox™ 

Get  in  the  spaceship  and  fly  Our  your 

wirviow  or  an  your  radar  screen  you 

h;ivc  bu[  split -seconds  to  ajiprrciaEC  the 

fierce  beauty  of  enemy  jea  and  tanks. 


Seven  Qties  of  Gc^'" 

Be  CIirisTopher  Columbus  arvi  discover 

(he  New  Wnrld.  Learn  history  and 

gcogra[^>;  or  gcncrjie  your  outi  ranikxn 

ntw  worlds  10  expkiTc. 


Archon 

A  new  V.ind  of  computtriied  board  game, 

like  chess  with  wizards  and  diagora  foi 

pieces.  Bu:  when  nnc  lands  on  anulhcr, 

they  have  lo  6ghc  a  white- knuckled 

a'dtton  battle. 


miLUXE  viDi;o 

CONSTRUCTION  SKt 


Deluxe  Video  Construction  Set"* 
Be  vcH^r  own  video  direcTtsr  for  busirwss 

prcscniaiKMvs  or  just  for  fun,  Set  tip 

special  liffecis.  animated  computer 
graphics,  sound  effects  and  tnles  -  evm 

record  ihcm  lo  videotape;  for  use 
with  a  VCR. 


Arcridbx'" 

You  command  the  advanced  aiul  deadly 

lant  of  [|w  future  -  ihc  Arcticfox.  A 

first  person  lank  combat  (pitnc  with  all 

the  5cimnjf^  ifraphics  sni  wmnd  of  the 

he^t  VD  simubtions. 


Return  to  Adantis"* 

Play  Indiatu  Cxiuiieau.  oceanic  hero,  in 

this  thiTc  dtmcrttional  sontilanon  under 

the  seven  seas. 


Marble  Madness™ 

For  the  first  limc,  the  home  version  of 

a  coin-op  arcade  f[amc  a  just  as  good 

as  ihe  original.  Sam<r  graphics   Same 

soufid.  And  you  can  play  it  m  your 

bathrobe. 


iH  b^ccTiLmic  Arts   Marble  M«ir*M  it  a  lr*fcmjrV  uf  Awri  Cspjc*.  Inc.  i^jrnM.M 


See  Dealer  Listing  on  Page  88. 


Left  Brain. 


YMto    aKXt>mt4 


GettheOKIDATA120 
at  these  fine  stores: 

Advantage  Computer 

Accessories  (Canada) 
ChildworidiChildren's  Palace 
Consumers  Distributing 
Crazy  Eddie 
David  Weis 
Electronics  Boutique/ 

Games  &  Cadets 
Federated 
Fred  Meyer 
Uonel/Kiddie  City/ 

Lionel  Playworld 
Montgomery  Ward 

(at  participating  stores) 
S.E.Nichols 
Service  Merchandise 
Toys  'R  Us 


Rational.  Functional.  Precise. 

Introducing  the  OKIDATA  120,  the  logical  printer  for  your 

Commodore'  computer. 

Get  results  fest  With  a  utility  mode  that  zips  through  letters 
and  reports  at  twice  the  speed  of  any  Commodore  printer. 

Switch  to  the  enhanced  mode.  And  print  your  most  important 
ideas  with  ^pewriter  clarity.  Or  illustrate  your  rationale  with  the 
120's  bit  image  graphics  for  high  resolution  charts,  graphs  and 
drawings. 

Stay  on  target  With  a  self-inking  "Clean  Hands"  ribbon 
cartridge.  And  Okidata's  famous  full  year  warranty  on  parts, 
labor  and  printhead. 

The  OKIDATA  120.  At  $269*,  it's  the  only  Commodore- 
compatible  printer  that  makes  sense. 

For  more  information,  call  1-8(X)-0KIDATA  {in  New  Jersey 
60&-235-2600).  Mt.  Laurel,  NJ  08054. 


OKIDAIA 

^^  an  OKI  AMERICA  company 

We  put  business  on  paper. 


Commodore  is  a  registered  trademark  of  Cnmrnodore  Business  Machines,  inc. 
OKIDATA  U  a  tigered  tiBdemark  of  OKI  A.M  ERICA,  INC. 
•Manufacturer's  suggested  retail  price. 


Right  Brain 


me:     t^^f^Bonf^L.     ci>at„DR    *a«aiMXK« 


Effervescent.  Colorful.  Outrageous. 

Meet  the  OKIMATE  10,  the  $208*  color  printer  that  takes 

your  Atari"  or  Commodore'  computer  over  the  rainbow! 

Dazzle  'em.  With  brilliant  printing  in  over  36  eye-tickling 
colors.  Reds,  greens,  golds  and  blues  that  breathe  life  into 
everything:  from  charts  and  graphs  to  ori^al  drawings  and 
overhead  transparencies. 

And  when  you're  forced  to  work  in  black  and  white,  the 
OKIMATE  10  prints  crisp,  clean  reports  and  papers— at  240 
words  per  minute.  You  can  even  add  spice  with  wide,  bold  and 
fine  print 

Everything  you  need  for  color  printing  comes  with  the 
OKIMATE  10  and  its  Plug  'n  Print  package.  Including  a  data 
cable,  Learn  to  Print  and  Color  Screen  Print  software  diskettes, 
a  color  ribbon  cartridge,  a  black  ribbon  cartridge  and  paper. 

So  c'mon,  print  on  the  wild  side.  With  the  OKIMATE  10 
Personal  Color  Printer  from  Okidata. 

For  more  information,  call  1-80(K)KIDATA  (in  New  Jersey 
609-235-2600).  Mt.  Laurel,  NJ  08054. 


OKIDATA 

^L  an  OKI  AMERICA  company 

We  put  business  on  paper. 

•Manufacturer's  suggested  retail  price.  Atari  is  a  registered  trademark  of  Atari.  Inc. 

Commodore  is  a  regstered  tiademark  of  Commodore  Business  Machines.  Inc, 

OKIDATA  is  a  registered  trademark  of  OKI  .A.^iERICA.  INC. 

0KJ.V1ATE  and  Plug  'n  Print  are  trademarks  of  OK]  ..\.\tERtCA.  INC. 

To  run  Plug  n  Print  software,  the  Commodore  64, 128  and  PLUS  4  require  disk  drive. 

Atari  requires  disk  drive  and  a  48K  memory. 


Buy  Now! 
$15  Manufacturer's 
rebate  on  OKFMATE  10. 
Offer  gxxi  ftx)m  October  1, 
1985  through  January  31, 
1986.  See  the  following  par- 
ticipating stores  for  details. 

Advantage  Computer 

Accessories  (Canada) 
Arthur's  Jewelers 
Best  Catalog  Showrooms 
Brendle's 
Caldor 

Childworid/Children's  Palace 
Consumers  Distributing 
Crazy  Exldie 
David  Weis 

Dolglns  Catalog  Showrooms 
Electronic  Boutique/ 

Games  &  Gadgets 
Eliman's 
Evans 
Federated 
Fred  Meyer 
Fred  P.  Gattas 
G.C.  Murphy/Murphy  Mart 
G.I.  Joe 
Great  Western 

Catalog  Showrooms 
J.  Triesman 

Jafco  Catalog  Showrooms 
LaBelles  Cabdog  Showrooms 
Lionel/Kiddie  City/ 

Lionet  Playworid 
McDade 

Meijers  {Michigan  only) 
Montgomery  Ward 

(at  participating  stores) 
Prange 
Save-Rite 
Sears,  Roebuck  &  Co. 

{at  participating  stores) 
Service  Merchandise 
Stereo  Village 
Stokes 
Toys  'R  Us 
Videoland 
Wttmark 

Wizands  Electronics 
Zayre 


IF  YOU  CAN  FIND 
A  BETTBl  PROGRAM 

Wru  BUY  IT  FOR  YOU ! 


WORD  WRITER  th^fir 

Now  with  85,000  word  Spelling 
Checker 

•  An  efficient,  80-column  professional 
word  processing  sysiem  whiicfi  includes 
a  spelling  checker  and  built-in 
calculator. 

•  Contains  all  tfie  features  you'll  need  for 
everyday  word  processing,  plus  most  of 
the  sophisticated  features  found  in 
more  expensive  programs:  document 
chaining,  form  letter  printout,  page 
separations,  horizontal  and  vertical 
scrolling,  and  more. 

With  Timeworks  you  get  more 
power  for  your  dollor 

You  can  use  each  program  alone.  Or 
interface  this  trio  -  one  at  a  lime  if  you  like 
-  into  a  completely  integrated  productivity 
system  that  delivers  all  the  power  and 
features  most  of  you  will  ever  need ...  at 
a  cost  that  lets  you  enjoy  their  use. 

Look  for  these  and  other  Ttmeworks  pro- 
grams at  your  favorite  dealer.  Or  contact 
Ttmeworks,  444  Lake  Cook  Road,  Deer- 
field,  IL  60015.  Phone:  (312)  948-9200. 


DATA  MANAGER  2 

Foster,  more  efficient,  more 
versatile 

•  A  complete  general  information  storage 
and  retrieval  system  with  report-writing, 
grapfiics,  statistics,  and  label-making 
capabilities. 

•  Exclusive  X-SEARCH,  X-SORT,  and 
X-CHART  features  allow  you  to  cross- 
search  any  category  of  information;  sort 
items  alphabetically,  numerically,  or  by 
date;  break  down  statistical  information 
into  categories;  and  graphically  view 
your  results. 

With  Timeworks  you  get  more 
thon  software 

You  Get  Our  Customer  Technical 
Support  Team 

At  the  other  end  of  our  toll-free  hotline, 
you'll  find  our  full-time  Customer  Techni- 
cal Support  Team.  Free  of  charge  to  all 
registered  users. 

You  Get  Our  Liberal  Trade-Up  Policy 

You'll  find  the  details  inside  each  package. 


SWIFTCALC  »"  SIDEWAYS 

New  easy-to-use  spreodsheet 
for  home  and  small  business  use 

•  The  SIDEWAYS  option  lets  you  print 
all  your  columns  on  one,  continuous 
sheet . . .  sideways. 

•  250  rows  and  up  to  250  columns  (128K 
version)  provide  up  to  62,500  cells 
(locations  on  the  spreadsheet)  in  which 
to  place  information. 

•  Performs  mathematicai  functions  up  to 
17  digits,  Allows  the  use  of  minimum 
and  maximum  values,  averages,  sums, 
integers,  absolute  values  and  exponen- 
tial notation. 

'With  Timeworks  you  gel  our 
Money  Back  Guarantee 

If  you  can  find  anything  that  works  better 
for  you,  simply  send  us  your  Timeworks 
program,  your  paid  receipt,  and  the  name 
of  the  program  you  want,  along  with  your 
check  or  credit  card  number  for  any  retail 
price  difference.  If  it's  available,  we'll 
buy  it  for  you.** 

For  Apple,  IBM, 
Commodore  128  (128K) 
&  Commodore  64 
Computers 


More  power  for  your  dollar. 


"  Oftar  vaM  Iw  90  dav^  (rom  ijaie  o!  EMjrchase 
—  RegstefKi  tratemarts  ol  Hflpie  Compoier,  Inc..  Inlemalional  Business  Mschiias  Couxxaiion.  and 
Commockye  Computef  Sysiems 
t;  1995  TiiTKwrtis.  Inc.  All  ligMs  lesoved. 


Other  Timeworks  Programs: 

Ttie  Evelyn  Wood  Dynamic  Reader 

Sylvia  Porter's  Personal  Finance  Series 
■  Swiftax  ij  Cave  oUtie  Word  Wizard 

Business  Systems  ■  Wall  Street 

TtiB  Electronic  Ctieckbook 
•  The  Money  Manager 
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Editor's  Notes 


This  month's  Editor's  Notes  are  writ- 
ten by  Richard  Mansfield,  senior  editor. 
We  suggest  that  he  does  not  mean  to  imply 
that  "mouseketeers"  are  mousy;  perhaps  a 
rebuttal  in  the  months  ahead? 

— Robert  C.  Lock,  Editor  in  Chief 


Ever  since  the  Macintosh  was  intro- 
duced, the  computing  community  has 
been  debating  about  ease  of  learning 
versus  ease  of  use:  mice,  menus,  and 
icons  are  easy  to  learn,  but  typewriter 
keys,  written  commands,  and  control 
codes  are  often  easier  to  use  in  the  long 
run. 

These  two  philosophies  are  repre- 
sented rather  neatly  by  two  manufac- 
turing giants,  IBM  and  Apple.  When 
you  turn  on  an  IBM,  you  are  in  the  DOS 
environment,  it's  much  like  a  program- 
ming language.  There  are  dozens  of 
words  you  can  type  which  control  the 
computer's  behavior.  Type  D!R  and 
you  see  a  list  of  all  the  files  on  a  disk. 
TIME  will  give  you  the  time  of  day.  CLS 
clears  the  screen.  Beyond  this,  you  can 
combine  some  of  the  commands:  DIR  > 
FILE  sends  a  copy  of  the  directory  into  a 
file  named  FILE.  DIR  I  SORT  will  print  a 
sorted  directory.  Essentially,  you  are 
given  a  rich  language  with  which  to 
communicate  your  particular  instruc- 
tions to  your  machine.  But  you  pay  a 
price  for  this  richness — it  takes  longer 
to  learn  how  to  work  with  PC-DOS 
than  it  does  to  learn  to  use  menu-driven 
systems  like  the  Macintosh, 

You  may  have  seen  the  ads,  A 
formidable  tome  crashes  down  next  to  a 
PC,  graphically  illustrating  that  run- 
ning PC-DOS  is  a  complicated  affair. 
Then  the  Macintosh  manual,  Ught  as  a 
leaf,  softly  settles  next  to  Apple's  menu- 
driven  computer.  They're  right,  of 
course.  You  can  be  mousing  around 
with  the  Macintosh  within  minutes,  ef- 
fortlessly deleting  files,  sorting  directo- 
ries, and  activating  applications 
programs. 

Atari  has  chosen  to  configure  its 
new  ST  computer  quite  like  the  Macin- 
tosh. The  familiar  elements  are  all  in 
place.  The  ST  displays  icons  (pictorial 
representations)  so  you  can  tell  at  a 
glance  when  something's  a  data  file.  It 


will  look  like  a  tablet  with  the  edges  of 
the  pages  turned  up.  On  an  IBM,  by 
contrast,  you  must  learn  that  filename 
extensions  like  .EXE  or  .COM  signify  a 
program  that  can  be  run.  Extensions 
like  ,DOC  indicate  a  data  or  text  file. 

On  the  IBM,  you  delete  a  file  by 
typing  DEL  NAME.  On  the  ST,  it's  a  bit 
difficult  to  describe.  You  use  the  mouse 
controller  to  move  a  pointer  on  the 
screen  to  open  a  disk  directory.  Then 
you  move  the  mouse  to  the  target  file- 
name and  click  the  mouse,  highlighting 
the  name.  Then  you  click  the  mouse 
again  and  drag  a  picture  of  the  filename 
until  it's  on  top  of  a  picture  of  a  trash 
can,  A  warning  window  opens  and  asks 
you  if  you,  in  fact,  do  want  to  delete  the 
file.  You  must  either  click  the  mouse  in 
a  box  labeled  CANCEL  or  in  another 
box  labeled  OK.  During  this  process, 
you  must  be  able  to  see  the  filename 
and  the  trash  can.  Thus,  if  something  is 
covered  up,  you  must  move  it  to  some 
available  space  on  the  screen  before 
you  can  access  it.  This  can  add  steps  to 
the  above  process.  You  might  need  to 
make  some  windows  smaller  or  move 
them  to  a  different  part  of  the  screen. 

It  sounds  pretty  intimidating,  but 
skilled  mouseketeers  can  fly  around  the 
screen,  popping  windows  open  and 
closed  at  quite  a  clip.  You  do  need  a  fair 
amount  of  clear  desk  space  to  the  side 
of  the  computer  where  you  might  other- 
wise have  a  book.  But,  one  of  the  ideas 
behind  windows,  icons,  and  mice  is 
that  you  won't  need  a  book.  Everything 
is  on  screen:  windows  covering  older 
windows,  menus  popping  out  of  other 
menus,  "dialog"  boxes  appearing  on 
top  of  menus.  Your  desktop  is  clean  (for 
the  mouse),  but  your  screen  can  get 
pretty  busy. 

Although  early  STs  are  currently 
being  shipped  without  software  or  doc- 
umentation offering  an  alternative  to 
the  mouse  environment,  there  is  a  com- 
mand program  which  allows  you  to  talk 
to  the  ST  directly  in  the  IBM  style.  In 
this  mode,  you  can  list  a  directory  with 
the  simple  command  LS.  And  you  can 
quickly  see  everything  in  any  data  file 
via  TYPE  NAME.  It's  too  eariy  to  tell 
whether  or  not  this  facility  will  be  made 
part  of  the  ultimate  ST  package.  But 
that  is  the  solution  to  the  debate:  offer 
both  styles.  For  people  who  prefer  not 


to  type,  offer  mice.  For  people  who 
don't  like  mice,  offer  command  control. 
For  people  who  prefer  words  like  DEL, 
offer  text-only  screens.  For  people  who 
prefer  pictures,  offer  the  trash  can 
illustration. 

Similarly,  when  you  go  to  buy  a 
word  processor,  one  of  the  major  fac- 
tors in  your  decision  will  be  whether 
you  want  a  menu-driven  or  control- 
code-driven  package.  For  example, 
some  software  pops  up  with  a  menu 
every  time  you  want  to  change  the 
margin:  1.  Indent?  2.  Flush  right?  3. 
Single  line?  and  you  type  the  number 
signifying  your  choice.  Additional 
menus  might  then  appear  asking  how 
much  you  want  to  indent.  Conversely, 
control-code  style  software  requires 
that  you  memorize  a  pattern.  To  indent 
ten  spaces,  you  might  type  CONTROL- 
1 10.  This  is  a  lot  faster  than  responding 
to  menus,  but  it  is  harder  to  learn  and 
remember.  If  you  indent  often  and  are  a 
good  typist,  however,  you  will  likely 
prefer  the  efficiency  of  control  codes. 
For  one  thing,  your  fingers  don't  leave 
the  keyboard  so  commands  to  the  word 
processor  don't  require  that  you  look  at 
the  keys. 

The  best  software  offers  the  user  a 
choice  of  either  menus  or  control  codes. 
Perhaps  the  best  computers  will  offer 
optional  mice,  windows,  and  icons,  but 
will  provide  a  command-driven  mode 
as  well.  When  both  styles  are  available, 
we  can  have  the  best  of  worlds. 


Senior  Editor 
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afiia  two  you! 


'Until  Your  Personal 
Net  Worth  came  into 
our  lives,  our  budget 
was  non-existent,  and 
our  financial  planning 
was  reminiscent  of  the 
Stone  Age." 

Betsy  Byrne 
Albuquerque,  NM 


sive  package  is  much 
more  than  a  method  of 
adding  up  one's  accu- 
mulated financial 
worth  as  its  title  might 
imply.  It's  an  extremely 
flexible  home-budget- 
ing  and  accounting 
program,  with  a  well- 
written  manual  that 
explains  simple 
accounting  principles 
for  the  uninitiated." 
Family 
Computing 


"Congratulations! 
Your  Personal  Net 
Worth  is  the  best  home 
budget  program  I  have 
seen  yet..." 

Walter  C.  Repak 
Bloomfield,  NJ 

"A  program  that  is 
powerful  and  versatile, 
yet  very  easy  to  use. . . " 

Tribune,  San  Diego 


"Your  Personal  Net 
Worth,  from  Scarbor- 
ough Systems,  is  easy 
to  like,  if  not  love.  It's 
home  accounting  with- 
out tears . . .  Best  of  all, 
the  program's  probably 
tax-deductible." 
PC  World 


"First,  let  me  con- 
gratulate you  on  an 
excellent  program. . . 
yours  is  by  far  the 
most  professional, 
fastest,  and  most 
comprehensive. " 

Ronald  J.  Misk 
Beaverton,  OR 


"This  program  was 
written  exclusively  for 
individuals. . .  It  has 
scored  a  bull's  eye  by 
providing  them  with  a 
helpful,  flexible,  easy- 
to-understand  financial 
program  that  makes 
money  management 
simple  and  fast." 
PC  Magazine 

Try  Your  Personal  Net 
Worth  yourself  and  see 
how  versatile  and  infi- 
nitely usable  it  is.  It's 
only  business  is  manag- 
ing your  home 
finances.  No  other 
program  does  it  more 
quickly,  more  easily, 
more  directly.  You  can 
even  track  your  invest- 
ments and  household 
inventories.  With  more 
great  features  than 
programs  selling  at 
twice  the  price,  Your,,^^ 
Personal  Net  Worth  is 
sure  to  score  points 
with  you  too. 


Get  a  free 
subscription 
to  Money  or 
Fortune  when 
you  buy  this 
program. 
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Apple  Mac  512'" 


IBMPCAT'- 


Commodore  Amiga 


THERE'S  ONLYONE  WORD 
FORTHESE  PRKES: 


Introducing  the  Atari  520ST personal  computer  system.  $799.95^ complete. 


Go  ahead.  Compare  those  other 
machines  with  the  new  Atari  SIOST'" 
They  cost  hundreds  of  dollars  more,  but 
you  don't  get  much  in  return.That's 
what  we  call  a  rip-off. 

For  S  79  9.95,*  the  520  ST  comes  com- 
plete with  high-resolution  monochrome 


Altfl- 

IBM™ 
PCAF" 

APPLE™ 
Macinlosh'" 

COMMOOOHE™ 
AMIGA'" 

Price 

S  ^'99 

S4675 

S2795 

SI  795 

CPU 
Soeed  MHz 

B8C00 
83 

80286 
6.0 

68000 

ilea 

68000 
716 

Standard  RAM 

5t2K 

256K 

512K 

256K 

Numbef  of  Keys 

OS 

95 

59 

89 

Mouse 

fts 

No 

fts 

Vfes 

Scieen  Hesolulion 
(Non-hialacedMo*) 
Color 
Monochrome 

640*200 
640  HOO 

640x200 
720x350" 

None 
512x342 

640x200"* 
640x200"* 

Color  Oulpul 

Yes 

Optional 

None 

Vfes 

Number  o(  Colors 

51? 

16 

None 

4096 

Disk  Drive 

3  5" 

5.25" 

3.5" 

3.5" 

Buill-in  Hart  Disk 
IDW)  Pmt 

*s 

^s 

No 

No 

MIDI  Inierface 

Yes 

No 

No 

No 

Naol  Sound  Voices 

3 

1 

4 

4 

•"With  optional  monochroma  boaid  (noii  blt-mappefl) 
•"Werlace  Mo* -640x400 


monitor,  2- button  mouse,  3.5"  disk 
drive,  TOS"  Operating  System,  including 
GEM'"  Desktop,  plus  Logo'"  and  Atari 
BASIC  programming  languages.  $200 
more  gives  you  an  RGB  color  monitor 
with  512  glowing  colors. 

Choose  innovative  business,  enter- 
tainment, education,  systems  manage- 
ment, and  integrated  paclcage  software. 
Expand  your  520ST  \vith  industry' 
standard  parallel  printers,  modems, 
MIDI  controlled  synthesizers  and  key- 
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boards,  1 
megabyte 
floppies,  10 
MB  and 
larger  hard 
disks,  and 
more.  All 
available 
now.  At  re- 
markably low  prices. 

So,  go  ahead.  Compare  the  ST  system 
to  those  other  guys.  Only  Atari  gives 
you  so  much.  For  so  little. 

For  the  dealer  nearest  you,  write  Atari 
Corp.,  Customer  Services,  1196  Borregas 
Ave,  Sunnyvale,  CA  94086. 

*Plus  appifcable  local  taxes.S999.95with  cobr  monitor 
All  prices  are  itianulacturer's  suggesred  reiall  list . 


AATARi; 

Power  without  the  price. 


IBM  &  ?*CAT  are  registered  trademarks  of  Inter- 
national Business  Machines  Corp. Commodore 
&  Amiga  are  trademarks  of  Commodore  Elec- 
tronics LTD.  Apple  &  Macintosh  are 
trademarksof  Apple Compjter.  Inc, 

GEM  IS  a  trademark  of  Digilal  Re- 

^  ——-^      search.  Inc.  Atan,TOS&  Logo  are 
Irademaf  ks  ol  Atari  Corp. 


Readers  Feedback 

The  Editors  and  Readers  of  COMPUTE! 


//  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  compute!,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  ive  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Falling  Through  Trapdoors 

1  have  a  question  about  the  placement 
of  NEXT  in  a  program.  After  typing  in 
"Devastator"  (COMPUTE!,  August  1984) 
I  made  a  few  changes.  In  lines 
1293-1294  {shovifn  here)  I  tried  moving 
the  NEXT  from  line  1294  to  the  end  of 

1293,  But  now  the  program  doesn't 
erase  text  the  way  it  should.  I  thought  it 
wouldn't  make  any  difference  which 
line  the  NEXT  was  on.  Can  you 
explain? 

1293  FORT!'1024TOI400:IF  PEEK(T 
)<160THEN  POKE  T,32 

1294  NEXT:GOSUB1300 

Alfred  Glasser,  Jr. 

The  answer  to  your  question  applies  to 
virtually  every  computer  with  BASIC. 
When  the  computer  finds  an  IF  statement, 
it  immediately  tests  the  expression  after 
IF  to  determine  whether  it's  true  or  false. 
If  the  expression  is  true,  the  computer 
performs  whatever  comes  after  THEN  on 
that  line.  If  the  expression  is  false,  the 
computer  ignores  everything  after  THEN 
and  goes  directly  to  the  next  program  line. 
When  an  IF  test  proves  false,  it's  as 
though  a  trapdoor  opens  at  THEN.  The 
computer  immediately  falls  through  (pro- 
ceeds) to  the  next  program  line  and  per- 
forms what  it  finds  there. 

The  lines  shown  here  test  screen 
memory  locations  1024-1400.  In  plain 
English  the  part  before  GOSUB  1300 
means  "Check  every  location  from  1024  to 
1400.  If  a  location  doesn't  contain  a 
reverse  space  character  (160),  replace  it 
with  a  blank  (32).  Otherwise  ignore  it."  If 
the  expression  PEEK(T)<160  is  true,  the 
computer  executes  POKE  1,32  before  go- 
ing to  NEXT  in  line  1294.  If  the  expression 
is  false — if  the  location  contains  a  reverse 
space — the  computer  skips  the  part  after 
THEN  and  immediately  fails  through  to 

1294.  Note  that  NEXT  is  always  per- 
formed whether  the  IF  statement  is  true  or 


false.  Moving  NEXT  to  the  end  of  1293 
causes  it  to  be  executed  only  when  the  IF 
test  is  true — clearly  not  what  the  pro- 
grammer intended. 

Because  the  computer  falls  through 
an  IF-THEN  statement  when  the  test 
proves  false,  be  careful  what  you  add  to  IF 
lines.  Don't  add  statements  to  the  end  of 
the  line  unless  you  want  them  to  be  per- 
formed only  when  the  IF  test  is  true.  For 
similar  reasons  you  shouldn't  put  any- 
thing on  the  same  line  after  a  GOTO 
statement  (which  immediately  sends  the 
computer  somewhere  else  in  the  program). 
These  two  lines  demonstrate  the  error: 
The  GOTO  in  line  10  prevents  NEVER 
from  being  printed. 

10    GOTO    20: PRINT    "NEVER" 
20    PRINT    "ALWAYS" 


Atari  Disk  Speedup 

I  have  a  solution  for  Duyen  Nguyen, 
who  asked  for  a  way  to  speed  up  his 
Atari  disk  drive  ("Readers'  Feedback," 
July  1985).  Enter  POKE  1913,80  to  dis- 
able the  verify  function.  Your  drive  will 
run  faster, 

Jim  Noland 

Thanks  for  pointing  this  out.  This  POKE 
dramatically  speeds  up  write  operations 
and  has  been  widely  used  by  Atari  owners 
for  years.  In  fact,  some  Disk  Operating 
Systems,  such  as  OS/A+  and  DOS  XL, 
incorporate  this  modification  by  default. 
The  POKE  works  by  modifying  DOS  to 
turn  off  the  write-with-verify  function. 
Normally,  location  1913  contains  the  val- 
ue 87,  which  tells  DOS  to  verify  each 
sector  as  it  is  written.  This  assures  an 
error-free  SAVE  but  also  slows  things 
down  considerably.  Disabling  this  func- 
tion with  POKE  1913,80  can  make  a  no- 
ticeable difference.  Although  you  might 
expect  the  modification  to  increase  the 
likelihood  of  errors,  in  practice  this  is 
extremely  rare.  Atari  programmers  at 
COMPUTE!  have  been  using  this  technique 
for  many  years  without  problems. 

To  save  yourself  the  trouble  of  per- 
forming this  POKE  each  time  you  boot 
your  system,  you  can  save  the  modified 
DOS  on  disk.  After  entering  the  POKE, 
type  DOS.  When  the  DOS  menu  appears, 
select  option  H,  "Write  DOS  Files." 

The  new  Atari  DOS  2.5  disables 


write-with-verify  by  default.  It  also  lets 
you  change  this  function  without  making 
any  POKEs.  Simply  run  the  DOS  2.5  utili- 
ty file  SETUP.COM  and  select  the  option 
"Change  System  Configuration."  This  is 
safer  than  POKEing  around  in  DOS,  be- 
cause a  mistyped  POKE  command  could 
mess  up  somethi?ig. 


ProDOS  Date  And  Time 

[  have  numerous  books  covering  my 
Apple  lie  and  the  ProDOS  operating 
system,  but  nowhere  have  I  been  able 
to  find  out  how  to  set  the  ProDOS  date 
and  time.  Can  you  help  me  with  this? 

Stanley  Moody 

ProDOS  keeps  information  about  the  cur- 
rent date  and  time  in  its  System  Global 
Page,  a  256-byte  block  of  memory  starling 
at  location  48896  (SBFOO).  On  an  Apple 
He  this  information  can  be  updated  by  a 
clock  card.  The  Apple  He  User's  Disk  also 
has  a  utility  to  let  you  set  these  locations. 
The  following  program  permits  you  to  set 
date  and  time  on  the  lie. 


99  10  REM  SET  TIME  AND  DftTE 

95  20  PRINT  "TDDAyS  DATE  (MM/DD 

/YY)  ->"; :  INPUT  D* 
K   30  IF  LEN  CD*)  <     >    B    THEN  GOS 

UB  1000:  SOTO  20 
2fl  40  Y  =  VAL  (  MID*  (D*,7))  *  2 
:M  =  VAL  (  MID*  <D*, 1,2) ) : 
IF  M  >  12  THEN  GOSUB  1000 
:  GOTO  20 
4B  50  IF  M  >  7  THEN  Y  =  Y  +  1:M 

=  M  -  8 
B3  53  D  =  VAL  (  MID*  (D*,4,2)): 
IF  D  >  31  THEN  GOSUB  1000: 
GOTO  20 
BC  60  D  =  D  +  M  «  32 
92  70  POKE  4904 1,Y:  POKE  49040, D 
19  80  PRINT  "TIME  TO  STAMP  ON  FI 
LES  (HH/MM)  ->";;  INPUT  T« 
O  90  IF  LEN  (T*)  <  >  5  THEN  GOS 

UB  1010:  GOTO  B0 
K    100  H  =  VAL  (  MID*  (T*,l,2)>: 
IF  H  >  24  THEN  GDSUB  101 
0:  GOTO  80 
EF  110  M  =  VAL  (  MID*  (T*,4,2)): 
IF  M  >  59  THEN  GOSUB  101 
0:  GOTO  80 
a    120  POKE  49043, H;  POKE  49042, 

M 
aF  130  END 
CI  1000  PRINT  "BAD  FORMAT  FOR  DA 

TE":  RETURN 
DZ  1010  PRINT  "BAD  FORMAT  FDR  TI 
HE":  RETURN 
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Y)uve  Stumbled  IntD 

AnUnknown 
Coir^ter  System. 

NowWhat? 


WelcomeTb  ITie  Next  Generation  Of  Home  Computer  Software. 


'Tlunge  into  every  hacker's  dream" 

—Rick  Maraiing/LouisviUe  Times 


" . .  the  most  -mysterious game  everf' 

-Rawson  Stovall/"l¥e  Vid  Kid" 


"An  open  screen  sc^s  'logon  please! 
That's  it,  no  instructions'.' 

-Technology  Notebook/Gannett  News  Service 


Haeker 


TW 


TEMPTAnCNN. 

Tbjtumtilelnto        grttoslaitwtth. 

!  computer  system. 
iTobesome- 
jPiaceyDu-ne 
jreaJiynotsup.! 
Posedtobe. 
l^togwthe 


That's  It  From 
there,ftiupto>TOi. 
^~"  If  you're  cfever 
wioughand 
'""rt  enough, 
ywjoould 
_^  ataoveravvofW 


'Just  like  in  real  life,  there  are  no  rules,  no  clues, 
no  instructions'.' 

—David  Greising^echnology  Memo 


What  more  can  we  say?  Well, 
someone  as  clever  and  smart  as  you 
certainly  wouldn't  want  any  hints, 
right?  So  all  well  say  is  it  was  created 
by  legendary  designei;  Steve  Cartwright. 


Created  for  the  Commodore  64/123, 
Apple  n  series  s/id  Atari  800,  XE.  XL 
arid  compatible  systems. 


ACTIVISION 


HOME  COMPUTER  SOFTWARE 


The  Next  Generation. 


Commodore  64"andl2a"arett-adejTi3rlcsofConimodore,lQc.Appleis  a  trademark  ofApple  Computer.  AtiriSOO.XE  and  XL  are  trademarks  ofAtari  Corporalion,  ©196SActivisioii,  Inc. 


You  can  find  Mindscape's  The  Halley  Project  at  these  fine  stares: 


Natignal 

Available  at  all  Child  VhM 
and  Chiltfren's  Palace  Stores 
Federalcd  Graup 
Sears  —  MosI  larger  stores 
Waldenbooks  —  Most  localjons 

Alabama 

Soltware  City 

HLRtSVille 

The  Computer  Slioppc 

Kyrttsville 

Computer  Express 
l^alrtianks 

Arkansas 

The  Compyler  Shoppe 

Linte  Rock 

Calitornia 

Access  to  Sott*we 

Sar  Francisco 

Alfordal3le  Computer  Syslems 

Sar^ta  Clara  sm  San  Jose 

Alamo  Computer  Center 

Cupertino 

Atsmo  Electronic  Components 

San  Jose 

Applied  Computer  SIdlls 

\^n  Nuys 

6.  Oalton  Soltware  Etc, 

Concord.  San  Diego, 

Bakerslield,  Torrance. 

Montclair.  Northfidje 

Books  &  Bytes 

Cypress 

Boot's  Camera  ElMi/ORics 

Fresno 

Border  Soltware 

Chulavista 

Blown  Knows  Computer 

Red  lands 

Candy  Computer 

Elk  Grove 

Computer  Outlet 

San  Diego 

Computermarl 

Diamond  Bar 

Computertime 

Citrus  Hts 

Corporate  Micro  Services 

San  Francisco 

Crown  Book  4  Software 

Los  Angeles,  Santa  Monica. 

Marina  Del  Rey.  Studio  City. 

Santa  Ana.  Redondo  Beach. 

Hollywood.  Glendale.  Culver 

City.  South  Pasadena. 

Ttiousand  Oaks,  Torrance. 

Huntington  Beach,  Downey. 

Shwntan  Oaks.  Encino.  El 

Tarn,  long  Beich.  Palos 

Veiies.  Northbhdge. 

Pasariena,  Westminster. 

Woodland  Hills.  Ventura, 

Lakewood 

Egghead  Software 

Lawndale.  Pasadena,  Orange. 

Sherman  Oaks,  San  Diego 

Family  Discount  Comouter 

Escondido 

Future  Vision 

San  Louis  Obispo 

Fulufvision 

Napa 

HI  Electronic.  Inc. 

Sunnyvale 

Home  Computing  Centers 

San  Bruno.  San  leandro 

Learning  Tree  Computer 

Santa  Ana 

Sottwaiie  Centre  Int'l 

Costa  Mesa.  Santa  Ana 

Sottwaire  Shoppe 

Huntinslon  Beach 

Software  First 

San  Rafael  and  Santa  Rosa 

Software  Galena 

Orange 

Software  House 

Fresno 

Software  Service  Center 

Tustin 

Soltware  Solution 

Chlco 

Software  Solutions 

Ei  Cerrito 

Software  Station 

Costa  Mesa 

Software  Supermarket 

Lawndale,  Los  Angeles, 

Sherman  Oaks 

Software  Wodd 

Redding 

Software,  Etc, 

Novate 

Sysware 

San  Diego 

Colorado 

Citailel  Computer 

Colorado  Springs 

Colborn  School  Supply  Co 

Denver 

Colorado  Computer  Systems 

Westminster 


Colorado  (com) 

DMA  Computer  Solutions 

Colorado  Springs 

Kaioo  4  Company 

Denver 

Software  Center 

Concord 

Connactlcul 

Caldr:r 

West  Norwalk.  Old  Saybrook, 

Enlield,  Millard,  W,  Hartford, 

Vernon,  Riverside.  Norwalk. 

Brooklield.  Trumiiull. 

Mansfield,  Norwich,  Hamden, 

Waterbury.  Manchester. 

Stamford.  Wallingford,  Avon. 

Rocky  Hill,  Ridgefield. 

Torrington.  Branlord.  Bristol. 

MeddlettMn.  Fairfield.  Groton 

1^^  Britain.  Derby. 

Souihington 

Craiy  Eddie 

Norwalk 

Danbury  Video  4  Computer 

Danbory 

Derric  Eiectronics 

Hamden 

Ktdriytown 

Nonwalk 

Personal  Computer  Centec 

ftorwich 

Petzold's 

Seymour 

Softown,  Inc. 

Danbury 

Software  dty 

Stamford.  Orange 

Software  Kngdom 

E  Hartford,  E.  Windsor 

Video  Connection 

Bridgeport 

Deliwsre 

Software  Kingdom 
Dover 

DIstritI  of  Columbia 
Crown  Book  &  Software 
(3  locabonsi 

Roil  da 

Computer  Cliip 

Sarasota 

Computer  Generation 

Plantation 

Computers,  EtC- 

Lakeland 

Discount  Disks 

Shall  mar 

Florida  Micro  Media 

Pompano  Beach 

Games  N  Gadgets 

Cleanwater.  Jacksonville, 

Tallahassee,  Orange  Park 

Manicat 

Miami 

Program  Store 

Clearwater.  Pinellas  Park 

Software  Cellar 

Fort  Lauderdale 

Soltware  Shops 

Brandon 

Gaorgts 

Academic  Software 

Roswell 

Alpha  Information  Systems 

fayettevitle 

Cardinal  Cornputers 

Oallon 

Electronics  Boutiiiue 

Atlanta  —  Lenox  Sduare, 

Cumberland  Mall 

Games  N  Gadgets 

Atlama  -  Norili  Lake  Mall, 

Perimeter  Hall 

SoftVfare  Atlanta 

AUanta  |2  locations) 

Software  City 

Atlanla 

Vetsatiie  Video 

Atlanta  and  Roswell 

Hawaii 

Software  Library 
Honolulu 

Idalto 

Software  Galeria 

Idaho  Falls 

Stokes  Brothers,  Inc. 

Boise 

llllrtols 

ABC  Diskette 

Chicago 

Asotlware  Store 

Daklawn 

Apprat  Computeis 

Arlington  Heights 

B.  Dallon  Software  Etc 

Cfiicago 

C02  Enterpiises 

Chicago 

Complete  Computing 

Lombard 

Computer  Outpost 

Sctiaumburg 


llllnoli  (conll 

ComputerLand 

Niles 

Computerwortd 

Chicago 

Crown  Boo^  &  Software 

Oiland  Park.  Niles.  Whealon, 


Evanston,  Oaklawn.  Oak  Park.  ?™™  ,, 
Chicago,  Skokie.  Deerfield.  Sffi-t* 
Downers  Grove,  Highland        ™  *'"*^ 


Mltniurl  (cont) 
Software  To  Go 
St  Louis  and  Clayton 

Monlana 

Colborn  School  Supply  Co. 
Billings 

Nmtia 


Park.  Nacerville.  Hoffman 
Estates,  Arlington  Heights. 
Calumet  City 
Disk-N-Tech 
Orfand  Park 

FD  Software  4  CADS 
Roselle 

Family  Software 
Glenilale  Heights 
Software  and  Beyond 
Schaumburg 
Software  City 
Arlington  Heights 
Software  Plus  West 
Hanover  Park 
Susie  Soltware 
Mount  Prospect 

IniUam 

B.  Datton  Sothvare  Etc 

Indianapolis 

Burkal  Computer  Center 

South  B«nd 

Computer  Corner 

Mernllville 

Microcomputer,  Inc. 

Indianapolis 

Kintucky 

Software  Source 

Lduisville 

Ttte  Computer  Shoppe 

Louisville  (2  locations) 

Vioeovismns 

Louisville 

Lattislana 

B.  Datton  Software  EIC- 

New  Orleans 

PEL  Computer  C«nter 

Monroe 

Softvirare  Mart 

Metairie 

Maryland 

Buried  Treasure 

Rockviile 

Caldor 

Timonium,  Baltimore. 

Severna  Park,  Ellieott  City 

Crown  Book  &  Software 

Wtieaton.  Columbia,  Laurel, 

Kensington,  Silver  Springs, 

Bowie,  Bethesda.  Greenbett. 

Gaithersburg.  Annapolis, 

Rockviile 

Electronics  Boubgue 

Baltimore 

Gsmes  N  Gadgets 

Columbia.  Baltimore  |White     _,   .,. 

Marsfi  Mall.  Security  Square   Livingston 
Mall,  Eastern  Ave  1  Program  Store 

Greetings  and  Readings         "■    ■    — ' 
Towson 


Computer  House 

Sparks 

Computer-Video  Electronic 

Carson  City 

Soltware  City 

Las  Vegas 

Ntw  Hampshire 

Caldor 

Bedford 

Micon  Computer 

Lflndenderry 

Neba  Computer 

Ptaistrrw 

Portsmoulli  Computer  Center  Poughkeepsie.  W.  Babylon, 


New  Vgrk  (cont) 

B  Oalton  Soltware  Etc. 

YonkefS  and  New  York 

Big  L  Electronics 

IW-  Hempstead.  W.  Batyton. 

Syosset.  New  Hyde  Park. 

Palchogue 

Binary  Orchard  Inc 

Hamburg.  West  Seneca 

Broadway  Computers 

New  York 

Byte  Shop 

Mernck 

Caldor 

Lake  Ronkonk,  East  Patcho^ue. 

Wappingers  Falls,  flrvertiead. 

Rocky  Point.  Bridgeharopton 

Vails  Gate.  Glens  Falls.  Kingston. 

Middletown.  Latham.  Mahopac. 

BedlOld  Hills.  Albany,  Yorktown 

Heights.  Peekskill.  Pelham 

Manor.  Schenectady,  Nanuel. 

White  Plains,  Yonkers, 

Newtjurgh,  Port  Chester, 


Portsmouth 
Soft  Spot 
Manchester 

New  Jersey 

Bamberger  s 

f/enlo  ftrk.  Cherry  Hill. 

Parimus,  Livingston.  Wayne 

Caldor 

Eatontrwn.  S  Ptainfteld. 

West  (Irange.  Toms  River 

Walchung.  Paramus.  Moms 

Plain,  Woodbridge.  Brick 

Town.  N   Brunswick.  W, 

Pater  son 

CIA 

S.  Plainheld 

Circuit  Semces 

Newton 

Compute:  Pros 

Wayne 

Computer  Soltware 

Ocean 

Crazy  Eddie 

Paramus.  E   Brunswick. 

tjnion,  Totawa.  Woodbndge 

Diskotthe  Month  Club 

Fair  Lawn 

Electronics  Boutique 

Voohrhees.  Rockaway, 

Woodbridge 

Family  Computer  Centres 

Fairfield,  South  Orange 

Games  'f^  Gadgets  

Livingston.  Burliigton,  Wayne  Glossy  Photo 

Gemini  Enterprises 

Cedar  Knolls 

Golden  Hedge  Inc, 

Cherry  Hill 

Igor  Software 

teaneck 

Kearny  Electronics 

Kearny 

Pnnce  Flange 


Eatontown  and  Wayne 

Softec 

Newton 

Software  City 

Redbank,  Linvraod.  flidgefield, Lloyds 

Summit,  Teaneck.  Bergenfield.ijjw  York 


Missachtsetts 

Atlantic  Computers 

Wallham 

Barnes  &  Noble  Bookstore 

Boston 

Caldor 

Chelmsford.  Westborough 

Swansea.  Pembroke. 

Weslfield.  Auburn,  Maiden 

Nonwell,  Brockton.  Canton. 

Bnghton,  Taunton.  Salem. 

Chicopee,  Stoneham, 

Springlield,  Framingham. 

Northampton.  Worcester        u.iu™  rnmnmpr  rpntsr 

Kgton    ^"""'-  '^'^""'r!S^^S'""  '^'"" 


Levittown.  Coram.  Clifion  Park 

CIA  Software 

Flushing 

Computer  Discount  ol  America 

Huntington 

Computer  Soltware  Plus 

Brooklyn 

Computer  Tech. 

Brooklyn 

Compulerwjre 

East  Meadow 

Computerwork] 

Bayshore 

Crazy  Eddie 

Nesconset,  Mass,  New  York. 

Syosset,  Elmhurst.  Brooklyn. 

Carle  Place.  Hartsdale.  Bronx. 

Nanuet 

East  33rd  Typewriter 

New  York 

Electronic  Man 

New  Yortt 

Electronics  Boubgue 

Albany 

Executive  Photo  &  Supply 

New  York 

Focus  Electronic 

Brooklyn  |2  locafioiis) 

Four  Guys 

New  York 

Games  N  Gadgets 

Garden  City,  Hunbnglon. 

Nanuet 

New  York 

Great  American  Software 

Flushing 

Home  Software 

Albany 

Intercontinental 

Flushing 

Island  Video  &  Computer 

Coram 

JiR  Computer  Outlet 

New  York 

J&S  Electronic 

New  York 

Leigh's  Computers.  Inc. 

New  York 


Parsippany.  Linwood 
Software  Spectrum 
North  Plainfield 
Software  Station 
Mornstown  and  Rockaway 
Video  Dynamics 
Ridgewood 

VideomaniayComputers  Plus 
Bloomfield 


Computer  Concepts 

Hanover 

Computer.  Etc 

Peabody 

Electronic  Bouhque 

Holyoke 

Softpro 

Burlington 

Software  City 

West  Springfield 

Software  Galeria 

Boston 

The  Whi! 

Weslboro 

MIcliloan 
Micro-World 
Livonia  and  Millord 
Vor-Tech  Computer  Center 
Ponliac 

Minnesota 

B  Dalton  Software  Etc 

Brooklyn  Park,  Minnetonka 


Cedar  Knolls 
Wayne  Soltware 
Wayne 

Wolsien's  Inc, 
East  Orange 

Hew  Maiico 

Academy  Computer 

Albuquerque 

B.  Dalton  Soltware  Etc. 

Albuquerque 

Colborn  School  Supply  Co. 

Albuquerque 

NewYtirfi 

17  Soltware  Street 

Vailsgate 

<5th  Electro 

New  York 

47th  St,  Photo.  Inc, 

New  York  |3  locations) 

Advanced  Camera 

New  York 

Annex  Outlet 

New  York 


Brooklyn  t^arn,  Minne  onka.     „  «  .,  i.,   n    .  . 

Roseville.  Ed.na.  Minneapolis  Barnes  i  Noble  f^ookstore 

New  York  (2  tocabons) 
Mlstourl 

Forsyth  Computers 
SI,  Louis 


Lloyd  Cornei 

New  York 

London  Luggage 

New  York 

Micro  Co. 

New  York 

Micro  Electronics 

Valley  Stream 

Montgomery  Grant 

New  York 

Park  Avenue  Video 

New  York 

Photo  Sound 

New  York 

Programs  Plus 

Brentwood 

Quartz  Eiectronics 

New  York 

Quo  Vadis 

Ridgewood 

Show  i  Tell  Video 

Bayshore 

Softwaire  Centre 

Forest  Hills 

Software  Oily 

Mount  Kisco,  Syracuse. 

Wappinger  Falls.  Brooklyn. 

Flushing.  Tonawanda. 

Spring  Valley 

Software  Link 

White  Plains 

Software  Seller 

Harrison 

Stalen  island  Soltware 

Stalen  Island 

Sysul-I.  Inc- 

Brooklyn 

Thruway  Market 

Walden 


New  Vdrk  (conti 
Wall  Street  Camera 
New  York 
Willoughby's 
New  mk 
World  Trade 
Bayside 

Nortli  Carolina 

Byte  Shop 

Greensboro 

Games  N  Gadgets 

Raleigh 

Oasis  Software 

Wilmington 

North  Dakota 

Colborn  School  Supply  Co. 
Grand  Forks 
Software  House 
Fargo 

Ohio 

Abtjy's  Software 

Fairoorn 

B  Dalton  Soltware  EIC- 

Columbus 

Big  Bytes  (Computers 

Poland 

Computers  Plus  of  Ohio 

Mansfield 

Disk  Driv« 

Toledo 

Electronic  Connexion 

Kettering 

Electronic  One 

Columbus 

Games  'N  Gadgets 

N,  Randall 

Magic  One  Computer 

Baroerton 

Microwave  Magic 

Fairfield 

North  Coast  Programming 

Willoughby  and  Solon 

Program  Store 

Columbus 

Software  and  More 

Cincinnati 

Software  City 

Columbus 

Swallens 

Cincinnab 

Sylvan  Enterprises 

Cincinnab 

Video  Computer  World 

Oregon 

Video  H  Q. 

Cleveland 

Oklahoma 

Computer  Softvnre  Center 

Oklahoma  City 

Home  Soltware 

Tuisa  and  Oklahoma  City 

Videocorrp 

Lawlon 

Oiegon 

At  (Computers 
Klamath  Falls 
Egghead  Software 
Beaverton 
Link  Three.  Inc 
Beaverton 
Software  Galeria 
Beaverton 

Petinsylvania 

B.  Dallon  Software 

Monroeville 

Bamberger's 

Whitehall.  King  of  Prussia 

Slack  Sun 

Emmause 

De  Re  Computers 

Harrisburg 

Electronics  Boutique 

Langhorne.  King  of  Prussia 

Whitehall.  Exion 

Floppy  Disk 

Mecnanicsburg 

Games  N  Gadgets 

Lancaster,  West  Mifflin, 

King  ot  Prussia.  Media. 

Philadelphia 

Rhode  Island 

Caldor 

Woonsockel.  Warwick, 

Lincoln 

Future  Images 

Woonsockel 

Software  ConnecUons 

Warwick 

South  Carolina 

Horizon  Commodore  Super 

Store 

Greenville  (2  locations) 

Software  Solutions 

Charleston 

Tennssseg 

Games  'N  Gadgets 
Memphis 


Tetineiset 

Inacomp 

Brentwood 

Software  Store 

Memphis 

The  Comouter  Shoppe 

Nashville,  Knoxvilie,  Memphis, 

Chattanooga,  filadison 

Tans 

B.  Dalton  Soltware  Etc. 

Houston 

Babbages 

Dallas.  Houston,  Piano, 

Mesquite.  Fort  Worth.  Irving. 

Hurst 

Casa  Computer 

Lubbock 

Compuriti 

Houston  12  locations) 

Computer  City 

San  Antonio 

t^omputer  Experience 

San  Antonio 

The  Computer  Store 

San  Angelo 

Data  Pro  Computer  Center 

Wichita  Falls 

Edu-Tron 

Fort  Worth, 

Floppy  V^tzard 

Houston 

Frisco  Electronics 

San  Antonio.  Austin 

Home  Software 

Frlendswood 

Nabonal  Video  Austin 

Austin  (4  locations) 

Software  &  Things 

Austin 

Software  Store 

San  Antonio 

Videoland 

All  locations 

Litah 

Software  Center 
Salt  Lake  City 
Soltware  Hot 
Salt  Lake  City 
Stokes  Brothers,  Inc. 
Salt  Uke  City.  West  Valley. 
Qrem,  Ogden.  Layton 

Virginia 

Computer  Works 

Petersburg 

Crown  Book  i  Soltware 

Atexandna,  Woodbridge. 

Resign.  Sprmgrield.  Vienna. 

Manassas,  Mclean.  Falls 

Church,  Fairfax 

Family  Computer  Cenler 

Fairfax 

Games  N  Gadgets 

Hampton.  Virginia  Beach 

L4Y  Electronics 

Woodbridge 

Nexl  Generation  Computer 

Williamsburg 

Program  Store 

Falls  Church 

Software  Central 

Norfolk 

Software  Mart 

Springfield 

Softwa/ecenter  Inc. 

Vienna 

University  Bookstore 

Btacksburg 

Vtoshlngton 
ButlersTV  and 
Computer  Sen/icr 
Federal  Way 
Egghead  Soltware 
Tukwila,  Bellevue 
Nibbles  and  Bites 
Tacoma 

Wisconsin 

Computer  Software  Center 

Milwaukee 

Computer  Warehouse 

Milwaukee 

Romeyn  Software 

Janesvitle 

Software  Source 

Brookfield 

TMW  Software 

Wausau 

Wtfoming 

Coiborn's  ot  Wyoming 

Casper 

Caoada 

Compusoftware 
Vancouver,  BC 
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at  aJl  k>catrons. 


If  no  dealer  in  your  area,  phone  1-800-221-9884  for  information.  ([Ilinois  -  1-800-942-7315)      m  indscape 


Just  tell  your  friends 
you're  going  on  averylong  trip 


mM:: 


Kiss  your  earthbound  buddies 

goodbye  and  travel  the  solar  system 
in  the  most  exciting  space  program 
ever  envisioned. 

The  Halley  Project:  A  Missioi  ^ 
In  Our  Solar  System"-' \s  history's 
first  real-time  space  simulation. 
Its  challenge  provides  out-ot-      w 
this-world  stimulation.  -,-   "' 

Lightweight  space        ■ 
jockeys  need  not  apply,  t 
one's  for  qualified  star  pin- 
A  rigorous  ten-mission 
training  program  will  test  your ''" 
knowledge  and  skill  as  you  navif. 


fe 


-by  the  stars  from  planet  to  planet. 
?      Complete  all  ten  missions  and  be 
invited  to  face  the  ultimate 
^^challenge:  the  incredible 
Icret  eleventh  mission. 

So  take  off  to  a  software 
'aler  and  join  an  elite  group  of 
fce  explorers.  As  for  your 
cnuhis.  tei!  them  you'll  wave  as 
you  fly  over 


The  Halley  Froject  is  available  on:  Apple* 
Atari*  and  Commodore* 


u.«     Mindscape,  Inc.  3444  Dundee  Road,  Northbrook,  Illinois  60062, 1-800-221-^84  (In  iliinois  1-800-942-73151 


Hi-Res  Characters  On  The  64 

I  have  written  a  program  that  draws 
charts  and  graphs  on  the  Commodore 
64's  high-resolution  screen,  but  have 
trouble  putting  numbers  and  letters  on 
the  screen.  Plotting  every  character 
pixel  by  pixel  takes  much  too  long.  Is 
there  any  easy  way  to  do  this? 

Sean  Wood 

One  solution  is  to  copy  the  character  defi- 
nitions directly  from  the  ROM  (Read  Only 
Memory)  character  set  into  the  bitmap. 
The  following  program  demonstrates  the 
technique.  Litres  10-30  enter  hi-res  mode, 
lines  100-180  contain  the  character  plot- 
ting routine,  and  line  40  shows  how  to  call 
the  routine.  Define  the  message  you  want 
to  print  as  AS.  Variables  X  and  Y  deter- 
mine the  row  and  column  where  printi?ig 
begins.  Keep  X  within  the  range  0-39  and 
Y  in  the  range  0-24,  DX  controls  the 
direction  of  printing.  IfDX=l,  the  string 
prints  from  left  to  right;  if  DX  =  40,  it 
prints  from  top  to  bottom.  Other  values 
can  be  used  to  print  diagonally,  from  bot- 
tom to  top,  and  so  on.  BK  and  CH  set  the 
background  color  and  character  color,  re- 
spectively. After  these  variables  are  de- 
fined, GOSUB  100  puts  the  string  on  the 
screen. 

Another  solution  is  to  look  up  the 
article  "64  Multicolor  Graphics  Made 
Easy"  in  the  October  issue  o/ compute!.  It 
includes  a  program  called  "Color  Plotter 
64"  that  adds  14  commands  to  Commo- 
dore BASIC  for  drawing  multicolor  hi-res 
graphics  and  text. 

10  POKE53Z65,PEEK(53265)OR32 
20  POKE  53272, PEEK(53272)ORa:P 

RINT"ECLR)" 
30  BASE=8192!FORA=BASETQBASE+8 
192 :POKEA,0: NEXT: REM  CLEAR 
{SPACEjHIRES  SCREEN 
40  A5="ABGDEFGHIJKLMN0PQRSTUVW 
XYZ 1234567890 " :X=0 : Y=0 : DX=1 
:BK=1 :CH=6:GOSUB100 
50  WAIT198, l:POKE53272, 21:POKE 

53265,27: PRINT" (CLR) " : END 
100  S=X*8+Y*320+BASE:D=1O24+X+ 

40*Y 
110  FOR  A=l  TO  LEtl{A5):B=ASC(M 

ID$(A5,A,1)) 
120    IF    B>63    AtJD    B06    THEN    B=B- 

64: GOTO    140 
130    IF    B>95    THEN    B=B-32 
140    C=B*8+53248:POKE56334,0:PO 

KEl, 51 : POKED, BK+16*CH 
150    FORQ=0TO7:POKES+Q,PEEK(C+Q 

)  :  NEXT 
160    POKEl,55tPOKE56334,l 
170    S=S+DX*8:D=D+DX:NEXT 
180    RETURN 


Commodore  Screen  Splitting 

Is  there  any  way  to  split  the  Commo- 
dore 64's  screen  between  multicolor 
bitmapping  on  the  top  and  uppercase 
text  on  the  bottom? 

Brian  Sullivan 


The  picture  on  your  TV  or  monitor  is 
composed  of  many  horizontal  lines  called 
raster  lines.  The  64  permits  you  to  set  up 
an  interrupt  at  any  raster  line.  When  the 
computer  reaches  that  line,  it  stops  what 
it's  doing  and  performs  a  special  machine 
language  routine  (which  you  must  have 
prepared  in  advance).  This  technique, 
known  as  raster  interrupt  programming, 
is  covered  thoroughly  in  COMPUTEI's 
First  Book  Of  Commodore  64  and  Map- 
ping The  64.  Here's  a  program  that  puts  a 
multicolor  bitmap  display  at  the  top  of  the 
screen  and  uppercase  text  at  the  bottom. 
POKE  location  2  with  the  number  of  the 
raster  line  where  you  zvant  the  change  to 
occur  (only  lines  50-249  are  visible  on  the 
screen). 

10  P0RA=828TO913:READB:P0KEA,B 

I C=C+B :NEXT : IFC  <  >  9673THENPR 

INT" £CLR}DATA  ERROR" : STOP 
15  SYS 8 28 
20  DATA  120,169,88,141,20,3,16 

9,3,141,21 
30  DATA  3,169,1,141,26,208,169 

,27,141,17 
40  DATA  208,88.169,127, 141, 13, 

220,96,169,1 
50  DATA  141,25,208,162,59,160, 

216,173, 18,208 
60  DATA  197,2,176,9,169,29,141 

, 24,208,165 
70  DATA  2,208,11,162,27,160,20 

0,169, 21,141 
80  DATA  24,208,169,0,142,17,20 

8,140,22,208 
90  DATA  141,18,208,173,13,220, 

41,1,240,3 
100  DATA  76,49,234,76,188,254 

Commodore  Countdown 

I  am  writing  a  Commodore  program 
and  want  to  add  a  timer  that  counts 
down  in  minutes  and  seconds.  My 
problem  is  that  when  the  timer  reaches 
0  it  flips  to  99  instead  of  59.  Can  you 
help? 

Chaiyos  Gosolsatit 

In  many  cases  it's  easiest  to  treat  time  as 
seconds  rather  than  minutes  and  seconds. 
Then  you  have  only  one  number  to  worry 
about.  Vfhen  you  need  to  display  the  time, 
convert  the  number  of  seconds  into  appro- 
priate minute  and  second  values.  For  in- 
stance, if  TM  represents  the  number  of 
seconds,  the  statements  MN  =  1NT 
aM/60)  and  SE^TM-SVINT  (TM/60) 
calculate  the  minutes  and  seconds, 
respectively. 

The  following  routine  demonstrates  a 
simple  countdown  timer  that  should  work 
on  any  Commodore  computer.  Line  10  sets 
the  computer's  internal  clock  to  000000. 
The  reserved  variable  TI$  returns  the 
time  (in  hours/minutes/seconds  format) 
elapsed  since  reset.  As  shown,  the  ex- 
ample provides  a  countdown  of  three  min- 
utes (180  secojids).  To  modify  this,  change 
the  value  of  SS  (line  10)  to  the  desired 
number  of  seconds. 


10  TI5="000000":SS=180 

20  TS=TI$:TM=SS-(VAL(MID?(T?,3 

,2))*60+VAL(MID5(T?, 5,2))) 
30  MN=INT{TM/60) :SE=TM-MN*60 
40  PRINT" (home} "MN" {LEFT] "SE" 

{left]  ":GOTO20 


Atari  Cartridge  Dilemma 
Soived 

Like  many  other  Atari  owners,  after 
suffering  from  the  bugs  in  revision  B 
BASIC,  I  ordered  the  new  revision  C 
BASIC  cartridge  for  my  800XL.  How- 
ever, with  the  BASIC  cartridge  in  place 
1  can't  use  the  Monkey  Wrench  II  car- 
tridge (a  useful  BASIC  editing  aid).  My 
solution  is  this  program,  which  copies 
the  old  BASIC  from  ROM  into  underly- 
ing RAM  with  a  fast  machine  language 
routine,  then  changes  rev  B  into  rev  C 
(only  12  bytes  are  different).  This  pro- 
gram runs  so  fast  that  it's  alrnost  as 
convenient  as  plugging  in  a  cartridge, 
and  now  I  can  use  my  editing  cartridge 
along  with  the  new  BASIC.  Pressing 
RESET  switches  ROM  BASIC  back  in; 
enter  POKE  54017,255  to  go  back  to  rev 
C  BASIC  in  RAM. 


1  FQ 
KE 
SR 

2  DA 
16 
16 

3  DA 
10 

,1 

4  DA 
08 

5  FO 
PO 

b  DA 
4. 

7  DA 
49 

B  DA 
14 

9  PR 
AC 
54 


R  1=0 
1638 
(  1633 
iTA  10 
i9,  160 
0,0,1 
TA  16 
4,  145 
,211, 
iTA  23 
,230, 
R  J=l 
KE  A, 
TA  54 
43232 
TA  43 
139,  0 
TA  49 
4,0,4 
INT  " 
TIVAT 
017,  2 


TO 
4+1, 
4) 

4,  16 
,  133 
77 

9,  25 
,  203 
136, 
0,  20 
160, 

TO 
B:NE 
017, 
,  240 
234, 
,491 
142, 
9145 
BASI 
ED"  i 
55  T 


43:  R 
A:  NE 

9,  0 
,204 
03,7 
5,  14 
,  169 
208, 
4,  20 
0,  20 
13:  R 
XT  J 
255, 
,  432 
234, 
40,  0 
0,  49 

,e> 

C  VE 
PRIN 
D  RE 


EAD  A:PD 
XT  I:A=U 

133,203, 
, 162, 32, 

■2 
1 


1,211, 
. 253, 141 
,  237 

52,48, 6,2 
30, 226, 96 
^EAD  A.B: 

43231 , 23 
33,  17 
47913, 0, 
, 49141 , 0 
143, 0, 49 

RSION  C 
T  "POKE 
ACTIVATE 

Gregory  Latta 

Thanks  for  the  program,  which  should 
prove  useful  to  Atari  owners  who  wish  to 
use  other  cartridges  with  the  new  BASIC. 
The  revision  B  bugs,  found  in  the  BASIC 
built  into  the  600XL  and  800XL,  are  fa- 
miliar to  many  Atari  users  by  now.  See 
Bill  Wilkinson's  "INSIGHT:  Atari"  col- 
umn in  June  1985  COMPUTE! /or  a  demon- 
stration of  the  bug  thai  tnangles  strings. 
To  demonstrate  the  bug  that  adds  16  bytes 
to  a  program  when  you  load  it,  run  the 
program  above,  then  enter  POKE 
54017,253  (or  press  RESET)  to  switch  the 
ROM  BASIC  back  in.  Now  type  in  and  run 
the  following  program  (a  disk  drive  is 
required): 

1  ?  "PRQBRAM  ENDS  AT  ";PE 
EK(140)+256tPEEK(141) :? 
"tt  OF  BYTES  FREE  ";FRE 
(0) 
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Choose  the  S^ 


pro 

-1. 

m 


The  idea  behind  choosing  a  com- 
puterized SAT  program  over  a  manual 
is  to  save  you  from  piles  of  paperv\/ork, 
But  surprisingly  two  of  the  best-known 
programs  come  with  big,  fat  manuals 
and  only  2  or  3  double-sided 
disks. 

When  that  much  informa- 
tion is  put  into  the  manual, 
what's  left  to  put  into  the 
computer? 

Why  not  buy  a  computer 
program  that's  really  a 
computer  program?  Buy  The 
Perfect  Score  from  Mindscape  for 
just  $69.95* 


It  has  6  double-sided  disks  and  a 
real  skinny  manual.  It  even  has  print- 
out capability  and  a  continuous 
on-screen  clock.  All  this  makes  The 
Perfect  Score  more  computerized 
than  those  others. 

Now,  if  this  cold  logic  fails 
to  convince  you,  perhaps  an 
emotional  appeal  to  your 
sense  of  patriotism  and  social 
consciousness  will.  Your  choice 
is  this.  Either  you  buy  their  SAT 
which  kills  innocent  trees 
to  make  all  that  paper  Or  you 
buy  our  SAT  with  6  disks  and  Save 
America's  Trees. 


The  Perfect  Score,  $69.95,  from  Mindscape^ 

"Suggested  retail  price  AvarlaDle  ioi  Apple.  Commodofe  64  and  IBM   The  Pcf  lecl  Scote  Compuler  Pfi^paraiiorj  lor  ihe  SAT  ic.  1984  Mmdscape,  Inc  All  nghis  rescived. 


2  SAVE  "D: EXPANDER" : IF  PE 
EKOSZT^JOt  THEN  RUN  " 
D: EXPANDER" 

The  program  saves,  reloads  and  runs 
itself  over  and  over,  growing  16  bytes 
longer  every  tirtie  when  rev  B  BASIC  is 
present.  Press  the  START  key  when 
you've  seen  enough.  Now  enter  POKE 
54017,255  (to  switch  in  rev  C  BASIC), 
then  run  it  again  to  confirm  that  it  saves 
and  reloads  without  changing  in  size. 

Atari  ML  Addresses 

I  own  an  Atari  800XL  and  was  interest- 
ed in  the  "Comn\odore  ML  Addresses" 
program  in  "Readers'  Feedback,"  Sep- 
tember 1985,  Do  you  have  a  program 
for  Atari  computers  that  finds  the  start- 
ing and  ending  addresses  of  machine 
language  programs  on  disk  and  tape? 
Adam  Mercadante 

This  program  prints  the  starting  and  end- 
ing addresses  of  most  machine  language 
files.  Be  sure  to  include  the  C:  prefix  (for 
tape)  or  D:  prefix  (for  disk)  when  entering 
the  filename. 

10  DIM  A*  (  14) 

20  PRINT  "ENTER  FILENAME 

( INCLUDE  C:  OR  D :  )  "  :  I N 

PUT  A» 
30  OPEN  ttl , 4, 0, AS: GET  #1, 

fi! GET  #1 , A 
40  GET  ttljSLBsGET  «1,SHB 
50  GET  #1,ELB;GET  #1,EHB 
60  PRINT  "START  ADDRESS  - 

'■  J  SLB  +  256ISHB 
70  PRINT  "   END  ADDRESS  = 

" ; ELB+25itEHB 
80  CLOSE  #1 


IBM  Compatible  Coverage 

Now  that  the  PCjr  has  died,  I  begin  to 
worry  anew  about  what  little  support 
and  information  has  been  forthcoming 
for  the  IBM-compatible  home  comput- 
ers. (I  define  that  as  an  MS-DOS-based 
8088  chip  computer  which  can  be  pur- 
chased for  less  than  an  Apple  lie  sys- 
tem.) So  far  I  have  been  able  to  run  al! 
the  PCjr  programs  in  COMPUTE!  on  my 
Tandy  1000.  And  all  the  programs  in 
your  book  Easy  BASIC  Programs  for  the 
IBM  PC  and  PCjr  run  beautifully  on  my 
Tandy.  I  recently  bought  your  machine 
language  book  for  the  PCjr  and  have 
not  run  into  problems  yet.  But  now  I 
fear  for  the  future  of  those  books;  you 
might  be  tempted  to  pull  them  off  the 
shelves  before  they  even  become  avail- 
able. Ptease  don't.  I  appeal  to  your  busi- 
ness sense  to  broaden  the  spectrum  of 
your  coverage  and  pay  some  attention 
to  the  market  so  strikingly  similar  to  the 
IBM  market  you  already  cover.  Why 
not  change  your  PCjr  coverage  into 
PC/MS-DOS  coverage?  This  surely  re- 
quires only  a  minimum  of  effort  and  I 


think  it  will  pay  off. 

Christopher  L.  Herd 

Our  home-oriented  IBM  coverage  in  com- 
pute? already  is.direcfed  toward  compati- 
bles as  well  as  both  the  PC  and  PCjr.  If 
your  "IBM-compatible"  computer  is  truly 
compatible,  it  should  run  the  programs  ive 
publish  for  the  PC  and  PCjr  without  mod- 
ifications— fls  your  experience  with  the 
Tandy  1000  bears  out.  The  Tandy  has 
proven  to  be  highly  compatible  with  IBM 
computers.  But  not  all  so-called  compati- 
bles are  created  equal.  If  a  program 
doesn't  run,  there's  almost  certainly  a 
slight  compatibility  problem  with  your 
computer,  BASIC,  or  DOS.  Since  there  are 
dozens  of  IBM  compatibles  on  the  market, 
it  isn't  practical  for  us  to  test  every  pro- 
gram on  every  system.  Instead,  we  design 
the  programs  to  work  on  what  is  consid- 
ered the  common  denominator  in  the 
IBM-compatible  world— the  IBM  PC 
itself. 


Commodore  ML  Keyboard 
Input 

I'm  writing  a  Commodore  64  machine 
language  program  that  requires  input 
from  the  keyboard  to  be  printed  on  the 
screen.  Neither  the  CHRIN  routine 
(SFFCF)  nor  GETiN  ($FFE4)  seem  to 
work  properly,  and  after  several  weeks 
of  work  I'm  stumped.  The  bug  in  ques- 
tion occurs  only  when  I  call  the 
CHROUT  routine  with  JSR  SFFD2. 
When  I  JSR  to  $F1CA  (the  address 
$FFD2  jumps  to),  my  program  works 
fine.  What's  the  difference  between 
calling  CHROUT  at  $F1CA  instead  of 
$FFD2? 

Jerry  Ford 

Under  normal  circumstances  it  makes  no 
difference  which  address  you  use.  Since 
the  Kernal  call  at  SFFD2  simply  performs 
jMP  ($0326)  to  get  to  SFICA,  the  result  is 
the  same  unless  you've  disturbed  the  vec- 
tor at  $0326-0327.  We  can't  debug  your 
program  without  seeing  the  code,  but  you 
should  know  that  CHRIN  and  GETIN 
handle  keyboard  input  quite  differently. 
Here  are  two  brief  examples  that  do  the 
job  you  describe  and  show  hou>  the  two 
routines  differ.  You'll  need  a  machine  lan- 
guage assembler  to  type  them  in  (the  com- 
ments are  optional). 


LDX#0 

;Set  counter 

STX  TEMP 

;at  zero. 

LINE     JSR  SFFCF 

;Input  line/char 

CMP  #13 

;RETURN 

character 

BEQ  EXIT 

;lerininates. 

STORE  LDX  TEMP 

;Get  counter. 

STA  BUFFER,X 

;Store  char. 

INC  TEMP 

;Bump  counter. 

BNE  LINE 

;Always  branch. 

EXIT      RTS 

TEMP    -BYTE  0 

BUFFER  =  * 

This  routine  puts  the  ij^put  string  in 
memory  starting  at  BUFFER  and  records 
its  length  in  the  variable  TEMP.  The  code 
may  look  confusing  unless  you  understand 
that  CHRIN  performs  two  different  func- 
tions depending  on  when  it's  called.  The 
first  time  you  call  CHRIN,  the  computer 
simply  lets  you  enter  a  logical  line  (up  to 
two  screen  lines).  It  displays  a  blinking 
cursor  and  allows  you  to  type  on  the 
screen,  waiting  until  you  press  RETURN. 
When  CHRIN  terminates,  the  accumula- 
tor holds  the  first  character  from  the  input 
line.  At  this  point,  the  routine  falls 
through  to  STORE  to  put  the  first  charac- 
ter in  BUFFER.  BNE  LINE  goes  back  to  do 
another  JSR  $FFCF,  but  this  time  CHRIN 
doesn't  input  a  line.  Instead  it  puts  the 
second  character  in  the  accumulator.  Sub- 
sequent calls  to  CHRIN  retrieve  the  re- 
maining characters,  so  the  routine  keeps 
storing  and  branching  back  until  a  car- 
riage return  appears.  Calling  CHRIN 
after  the  whole  input  line  has  been  re- 
trieved starts  the  process  over  again. 

LDX  #0 

STX  TEMP 
GETIT  JSR  $FFE4        ;Get  character. 

BEQ  GETIT    ;IgnoTe  nulls. 

CMP  #13 

BEQ  EXIT 

JSR  SFFD2 

LDX  TEMP 

STA  BUF- 

FER,X 

INC  TEMP 

BNE  GETIT 
EXIT      RTS 
TEMP    .BYTE  0 
BUFFER  =  * 

GETIN  does  nothing  but  pull  a  char- 
acter from  the  keyboard  buffer  and  return 
it  in  the  accumulator.  Thus,  if  you  want  a 
cursor  or  editing  keys,  your  program  must 
provide  them  (we  don't  have  space  for  a 
complete  example  here). 

At  first,  CHRIN  seems  more  useful 
than  GETIN  because  it  provides  so  many 
features  (cursor,  editing  keys,  etc.)  auto- 
matically. But  you  pay  a  price  for  all  that 
convenience.  The  first  call  to  CHRIN 
traps  you  in  the  ROM  routine  until  RE- 
TURN IS  pressed.  If  you  type  only  what 
the  program  expects,  all  is  well.  But 
there's  nothing  to  prevent  a  user  from 
moving  the  cursor  to  the  wroiig  line, 
clearing  or  scrolling  the  screen,  typing 
graphics  garbage  rather  than  letters,  or 
wreaking  other  sorts  of  havoc.  To  avoid 
such  problems,  it's  often  preferable  to 
write  a  custom  input  routine  with  GETIN, 
adding  code  to  handle  editing  keys, 
screening  out  unwanted  characters,  and 
displaying  a  cursor.  The  commented 
source  code  in  SpeedScript:  The  Word 
Processor  for  the  Commodore  64  and 
VIC-20  (published  by  COMPUTE!  Books) 
includes  two  fairly  elaborate  keyboard 
routines  built  around  GETIN.  @ 
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COMPUTE!  FOR  CHRISTMAS. 


Give  a  gift  subscription  to  Compute,' 
and  you'll  be  giving  a  lot  more 
than  just  another  computer  maga- 
zine. That's  because  Compuie! 
comes  complete  with  over 
20  FREE  programs  in  each 
big  issue. 

Send  Compute',  today  and 
your  gift  recipient  can  depend 
on  a  steady  supply  of  high 
quality  fun-filled  programs  like 
Cash  Flow  Manager,  Speed  Ski, 
Turtle  Pilot,  Boggier,  Text  Plot, 
Retirement  Planner  and 
hundreds  of  other  educa- 
tional, home  finance, 
and  game  programs  the 
entire  family  can  use  all 
year  long. 

The  free  programs  alone 
are  worth  much  more  than 
the  low  holiday  gift  subscrip- 
tion price.  But  there's  much 
more  to  Compute.'  than  just 
free  programs. 

Compute'.'^  superb  edito- 
rial delivers  the  latest  inside 
word  on  everything  from  printers 


to  interfaces... joy  sticks  to  disc  drives. 
And  our  up-to-the-minute  software 
reviews  are  "must  reading"  for  any 
home  user. 

So  whether  that  "certain 
someone"  is  a  novice  or  an 
experienced  user,  Com- 
pute! makes  a  great 
stocking  stuffer.  Espe- 
cially when  you  can  give 
twelve  big  issues  for  just 
$18...that'sZ5%offthe 
regular  subscription  rate... 
less  than  8«  per  program. 

Compute!  It's  the  perfect 
holiday  gift.  Give  a  subscrip- 
tion today  by  returning  the 
attached  subscription  card... 
or  by  calling  l-8(X)-247-GlFT 

COMPUTE! 

MAGAZINE 


STUFF  THEIR 

STOCKINGS  WITH 

HUNDREDS  OF  NEW 

PROGRAMS  FOR  JUST 

PENNIES  APIECE... 

WITH  A  GIFT 
SUBSCRIPTION 
ffO  COMPUTE! 


To  Order,  Call  Toll-Free  1-800-247-GIFT 

InlowoCall  1-800-532-1272 


M1095 


Telecomputing 

If  you're  a  telecomputing  enthusiast,  how 

would  you  like  to  dial  all  the  long-distance 

calls  you  want  for  only  a  modest  monthly 

fee?  Or  access  an  online  information  service 

with  color  graphics  for  pennies  a  day?  These 

and  similar  experiments  may  soon  boost 

personal  telecomputing  to  new 

heights  of  popularity. 


.M. 


Selby  Batemon,  Features  Editor 


Many  companies  are 
betting  that  telecom- 
munications holds  the 
key  to  the  future  of 
personal  computing.  Some  of  these 
companies  are  now  experimenting 
with  innovative  ideas  and  lower 
prices. 

For  example,  when  you  log 
onto  an  electronic  bulletin  board  or 
online  information  service,  minutes 
have  traditionally  been  measured 
in  dollars  and  cents.  In  effect,  a 
meter  is  running  for  every  moment 
you  spend  on  the  long-distance 
telephone  line  or  carrier  systems 
such  as  Telenet,  Tymnet,  and 
Uninet. 

But  now  one  of  those  carriers, 
GTE  Telenet,  is  experimenting  in  a 
dozen  major  cities  with  a  system 
that  could  drastically  change  the 
telecomputing  landscape.  For  the 
first  time,  people  in  those  cities  will 
be  able  to  call  bulletin  boards,  other 
computer  users,  and  noncommer- 
cial databases  over  the  Telenet  sys- 
tem for  a  flat  monthly  fee  of  $25. 
Without  flat-rate  billing,  many  tele- 
computing fans  can  amass  $25  in 
charges  in  just  one  evening.  The 
new  service  is  called  PC  Pursuit. 

There  are  limits  to  this  experi- 
ment, however,  PC  Pursuit  is  avail- 
able only  during  evenings  and 
weekends,  and  cannot  be  used  to 
access  the  commercial  online  ser- 
vices which  have  direct  links  with 
Telenet,  such  as  CompuServe,  The 
Source,  Dow  Jones,  and  others. 
Those  systems  have  their  own 
hourly  rates  which  include  access 
through  Telenet  and  other  long- 
distance carriers. 

Still,  PC  Pursuit  is  a  significant 
development  for  those  who  fre- 
quently call  local  bulletin  boards 
and  fellov/  computerists.  The  ex- 
periment  is   now   under   way   in 


Atlanta,  Boston,  Chicago,  Dallas, 
Denver,  Detroit,  Houston,  Los 
Angeles,  New  York,  Philadelphia, 
San  Francisco,  and  Washington, 
D.C.  Whether  or  not  PC  Pursuit 
expands  into  a  national  service  de- 
pends on  how  much  interest  is 
generated. 

Measuring  Demand 

"We've  seen  this  as  a  need,  but 
whether  the  potential  market  is 
great  enough,  we  weren't  sure — we 
still  aren't  totally  sure,"  says 
Claudia  Houston,  a  GTE  Telenet 
spokesperson.  "We're  the  first  ones 
to  have  done  this,  so  there's  no 
proof." 

Telenet's  primary  business  is 
not  the  evening  and  weekend  ac- 
cess which  it  makes  available  to 
consumers,  Houston  says.  "The 
reason  we're  able  to  offer  a  rate  like 
this  is  because  we  have  the  Telenet 
data  network  in  place,  a  major  val- 
ue-added network  service  supply- 
ing business  customers  during  the 
day.  We're  able  to  handle  a  billion 
packets  of  data  a  month,  equivalent 
to  about  28  million  typed  pages.  So 
when  business  closes  up  at  the  end 
of  the  day,  there's  plenty  of  room 
for  other  uses." 

To  use  PC  Pursuit,  you  first  call 
the  local  Telenet  number,  then  en- 
ter your  name  and  phone  number. 
Next  you  enter  the  name  of  the  city 
you're  calling  and  the  phone  num- 
ber, then  hang  up.  PC  Pursuit 
makes  the  contacts  and  calls  you 
back  with  the  connection  already 
established.  The  service  prevents  il- 
legal use  of  the  long-distance  net- 
work for  voice  connection.  Each 
month,  PC  Pursuit  customers  are 
billed  automatically  on  their  Visa  or 
MasterCard  accounts. 

GTE  Telenet  is  eager  to  hear 


from  people  who  are  interested  in 
PC  Pursuit,  even  if  you  don't  live  in 
one  of  the  12  cities  involved  in  the 
experiment.  A  toll-free  bulletin 
board  has  been  set  up  to  distribute 
more  information,  and  you  can  also 
leave  a  private  message  about  PC 
Pursuit  for  Telenet's  ongoing  mar- 
ket research.  The  bulletin  board 
number  is  1-800-835-3001.  For 
voice  phone  inquiries  between  8 
a.m.  and  5  p.m.  Eastern  time,  call 
1-800-368-4215. 

If  PC  Pursuit  catches  on,  it  can 
be  easily  extended  to  other  metro- 
politan areas,  Houston  adds.  In  one 
form  or  another,  the  idea  behind 
PC  Pursuit  will  eventually  be  estab- 
lished, agree  observers:  easier, 
cheaper  access  for  nonbusiness  per- 
sonal telecomputing. 

The  Quantum  Connection 

People  who  use  computers  at  home 
are  beginning  to  wake  up  to  the 
possibilities  of  telecommunications, 
says  Owen  Davies,  co-editor  of  The 
Omni  Oyiline  Database  Directory,  an 
annual  compendium  of  more  than  a 
thousand  electronic  databases. 
Business  people  may  now  make  up 
the  bulk  of  the  traffic,  but  individ- 
uals are  finding  new  applications 
almost  every  day.  Davies,  who 
closely  watches  the  telecomputing 
field,  has  seen  plenty  of  growth 
during  the  past  year;  new  online 
databases  in  many  different  areas 
of  interest,  easier  access  for  home 
users,  and  telecomputing  software 
that's  simpler  to  learn. 

Another  innovative  experi- 
ment is  QuantumLink,  a  new  tele- 
communications network  to  be 
operated  jointly  by  Commodore  In- 
ternational and  Control  Video  Cor- 
poration. The  official  launch  date 
for  QuantumLink  was  scheduled 
for  October  1,  although  testing  has 
been  going  on  for  several  months. 


"What  we'll  be  doing,  initially 
for  the  Commodore  64  and  128,  is 
offering  a  set  of  services,  mostly  on 
a  flat-fee  basis  for  $9.95  a  month," 
says  Stephen  Case,  vice  president 
of  marketing  for  Quantum  Com- 
puter Services,  QuantumLink's  of- 
ferings will  include  previews  of 
commercial  software  that  can  be 
downloaded,  bulletin  boards,  a 
computer  information  center,  news, 
teleshopping,  and  interactive  tele- 
gaming  with  full-color  graphics, 
says  Case.  "The  $9.95  a  month  in- 
cludes communications  charges  for 
some  of  the  services — like  the  en- 
cyclopedia, for  example.  You  can 
use  it  [Grolier's  A?nerican  Academic 
Encyclopedia]  all  you  want  and 
there's  no  extra  charge." 

Some  services,  such  as  soft- 
ware downloading  and  the  Chat 
feature — an  interactive  online  con- 
versation— cost  an  extra  six  cents  a 
minute.  QuantumLink  can  be  ac- 
cessed through  the  Uninet  carrier 
network. 

Computer  owners  who  register 
for  QuantumLink  before  the  end  of 
1985  will  get  Quantum's  special 
terminal  software  without  charge 
plus  a  free  month  of  access.  After 
January  1,  the  signup  fee  will  be 
S25,  says  Case.  The  special  soft- 
ware is  necessary  because  Quan- 
tumLink has  a  graphics  interface 
similar  to  that  of  the  Macintosh, 
and  telegames  such  as  chess,  back- 
gammon, and  hangman — which 
feature  full-color  graphics  and 
sound — are  stored  on  the  disk.  (To 
register  online  for  a  free  trial,  call 
1-800-833-9400.) 

Online  Previews 

Commercial  programs  are  not  the 
only  products  that  can  now  be  pre- 
viewed online.  On  CompuServe, 
science  fiction  fans  can  read  chap- 
ters from  new  books  published  by 


Baen  Books.  There's  no  charge  oth- 
er than  the  usual  CompuServe  con- 
nect fees.  CompuServe  subscribers 
can  reach  the  Science  Fiction  and 
Fantasy  Forum  by  typing  GO  HOM 
29.  Baen  Books  is  currendy  in  the 
forum's  Data  Library  3  (although 
that  may  change  by  the  time  you 
read  this),  To  enter  that  library, 
type  DL3  and  hit  RETURN  or  EN- 
TER. Then  type  BRO  to  browse 
through  the  various  filenames. 
Subcommands  let  you  retrieve  and 
read  a  file.  You  can  even  comment 
on  what  you've  read  by  leaving  a 
message  for  Baen  Books  via  its 
CompuServe  user  number: 
70307,541. 

The  Baen  Books  files  can  be 
read,  copied,  and  distributed  freely, 
as  long  as  they  aren't  altered  or 
sold.  Local  bulletin  boards  can  re- 
trieve the  files  from  CompuServe 
and  offer  them  to  their  members 
without  charge. 

These  experiments  and  others 
are  changing  the  ways  in  which 
people  use  their  personal  comput- 
ers. In  two  particular  areas — imme- 
diate acquisition  of  information  and 
communication  among  like-minded 
individuals — telecomputing  is  be- 
coming easier  every  day,  says  Mat- 
thew Lesko,  an  authority  on  the  use 
of  electronic  databases  and  presi- 
dent of  Information  U.S.A.,  a  data- 
base information  company. 

"Now  I  can  hook  up  my  com- 
puter terminal  and  be  on  the  floor 
of  the  stock  market  even  5,000 
miles  away.  That's  a  wonderful 
application." 

Immediate  communication 
among  members  of  different  pro- 
fessions has  already  become  a  com- 
monplace event,  reaping  extra- 
ordinary results,  Lesko  adds.  "It's 
like-minded  people  communicating, 
getting  together  and  talking.  It's  how 
our  society  takes  leaps  and  bounds." 
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"Shm.  don't  tell  Dad  I  got  him 
more  BOWATER  PAPER  &  FILES 
br  Christmss.  Mom  says  Bomter's 
kiping  our  tamily  get  organized, 
mi's  suppose  to  help  Dad  have 
more  time  for  me. . .  and  it  helps 
Mom  smile  cause  Dad  doesn't  have 
papers  all  over  the  house  anymore. " 

Ben  Wismer 
E  PreoKious  5  j/ear  old 


Ben's  Mom  also  bought  Bowater's  500  sheet 
package  of  computer  paper  with  a  FREE  Christmas 
Window  Ornament  that  looks  like  stain  glass.  She 
knows  Bowater  gives  her  family  MORE  than  just 
computer  paper. 

Ask  for  Bowater  Computer  Forms  at  your  local 
office  supply,  computer  dealer,  discount  or  specialty 
department  store.  Or,  call  us  and  we'll  help  you 
locate  the  Bowater  dealer  nearest  you. 

Bowater  Paper  &  Files  come  in  500,  1000,  and  2900  sheet 
packages  in  9V:x11  -  20#  bond  computer  paper. 

Bowater  Better  Image  brand  with  Christmas  Window 
Ornament  comes  in  500  and  1000  sheet  packages  of  9Vix11 
20#  bond  computer  paper. 


'^'BfUMTER 


-    BOHMTER 

BOWATER  COMPUTER  FORMS  INC. 

800/527-3412  outside  Texas  •  214/578-2000 
P.  0.  Box  869020  •  Piano,  TX  75086-9020 
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An  Overview  Of 


Telecommunications  Soft^ware 


The  following  chart  contains  information  on  a  variety 
of  telecommunications  programs  for  several  different 
computer  systems.  There  are  hundreds  more  available, 
but  we  have  limited  this  guide  to  software  in  the 
under-$100  price  range. 

Choose  carefully  when  shopping  for  a  terminal 
program.  The  most  expensive,  multifeatured  modem  is 
helpless  without  adequate  software. 


Data  for  this  guide  was  supplied  by  .MENU^ — The 
International  Software  Database  Corporation.  For 
further  information  and  ordering,  contact  .MENU, 
1520  South  College  Avenue,  Fort  Collins,  CO  80524. 
Call  toll-free  1-800-THE-MENU  or  303-482-5000  (in 
Colorado  or  outside  the  U.S.).  Telex  ISO  454590. 
When  ordering,  please  use  the  International  Standard 
Program  Number  (ISPN). 


m                        

Product 

Price 

ISPN 

Publisher/ 
Vendor 

Systems 

Description 

Apple  Sourcelink 

S29.95 

74737- 
0500 

Source 

Telecomputing 

Corp. 

Apple  II,  I1  +  ,  lie. 
He 

Communications  software  designed  to  supplement  use 
of  The  Source 

ASCII  Express  II 

$59.95 

75100- 
2100 

Roger  Wagner 
Publishing 

Apple  II,  U+,  lie 

Basic  Terminal 

Cassette 
$14,95 

17512- 
0600 

Practicorp 
International 

VIC-20 

Allows  the  user  with  either  a  plug-in  modem  or  RS- 
232/ modem  combination  to  communicate  with  a 
remote  time-sharing  system 

BITS  (Bask  Ititeiactive 
Terminal  Software) 

$54.95 

73612- 
1000 

Software  Sorcery 

Apple  II  +  ,  Ik,  He 

Bus!  term 

$59.95 

Skyles  Electric 
Works 

Commodore  64 

CHAT 

$40 

45537- 
1000 

Lovells 

Apple  II,  II -f- 

COMMTALK  Ver.  2 

$89.95 

29393- 
1000 

Enhanced 
Technology  .Assoc. 

IBMPC 

Has  automated  communication  and  information 
retrieval 

Copylink  PC 

S99.95 

84616- 
1000 

U.S.  Digital  Corp. 

IBM  PC 

Copylink  Ver.  2.41 

$99.95 

S3208- 
2000 

U.S.  Digital  Corp. 

Apple  11,  IBM  PC 

CW/Term  Ver.  1.0 

$60 

13300- 
0500 

The  Code  Works 

IBM  PC 

Data  Capture  He 

$90 

74850- 
1100 

Soulheaslem 
Software 

Apple  Ik,  He 

Data  Capture  Ver.  5.0 

$90 

74850- 
1050 

Southeastern 
Software 

Apple  11,  11  + 

Data  Express 

$75 

50500- 
0970 

Microlab  Inc. 

Apple  II,  II -f,  Ik, 
lie 

Has  an  unattended  answer  mode 

Dataljnk 

$99.95 

44850- 
2000 

Link  Systems 

Apple  II,  [l  +  ,  IBM 
PC 

Datalink  (enhanced 
version) 

$99.95 
$175.00 

44850- 
2500 

Link  Systems 

Apple  iL  II  +  , 
IBM  PC 

Direct.Connect 

$95 

25975- 
1000 

Direct.Aid 

IBM  PC 

Dow  Jones  Spreadsheet 
Unk 

$99 

26725- 
4000 

Dow  Jones  & 
Company  Inc. 

Apple  II,  II+,  lie, 
.Macintosh,  IBM 
PC 

Download  information  from  Dow  (ones 
News/Retrieval  directly  into  a  spreadsheet  template 
set  up  for  analysis 

Dow  Jones  Straight  Talk 

$95 

26725- 
4250 

Dow  Jones  & 
Company  Inc. 

.Mac 

Designed  to  help  the  user  obtain,  store,  and  organize 
informaliori  from  Dow  Jones  News/Retrieval 

Flex-I-Temi 

$95.95 

70675- 
2000 

Source  View  Corp. 

.•ipple  11,  11  (-,  He 

Genterm  Ver.  2.60 

S79.95 

376O0- 
1000 

Information 
Analysis  Sys. 
Corp. 

IBM  PC 

Asynchronous  communications  system  with  optional 
terminal  evaluation 

Habacom 

$69.95 

33987- 
0500 

Haba  Systems  Inc. 

Mac 

Hello  Central 

$99.95 

67731- 
2700 

Howard  W.  Sams 
and  Company  Inc. 

Apple  II 

Home  Connection 

$49.95 

Penguin  Software 

Apple  II 

HomePak 

$49.95 

07075-295 

Batteries  Included 

Commodore  64 

Integrated  telccommunications-database-word 
processor 
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MacTalk:  Telecomputing  on 
the  Macintosh 

Sheldon  Leemon 
Arlan  Levitan 

A  complete  guide  to  telecomput- 
ing on  the  Macintosh  from  choos- 
ing a  modem  and  software  to 
accessing  information  services  and 
electronic  bulletin  boards. 
$14.95      ISBN  0-942386-85-X 


MACTALK 

Telecompullnfl  on  ttie  WaGlntosh" 


A  ssfTf^m  if-^io  TO  ntn.'Th^  tran  cf  corg 
a  moasm  oxt  «t*li»UMi  To  ot^CMtrQi  rV[»niaiijn 


COMPUTE! 's  Telecomputing 
on  the  IBM 

Arlan  R.  Levitan 
Sheldon  Leemon 

The  ins  and  outs  of  telecomputing 
on  the  IBM  PC  or  PCjr,  selecting  a 
modem  and  evaluating  terminal 
software,  how  to  go  online  with 
the  major  information  services. 
$14.95      ISBN  0-942386-96-5 


coMPuret's 

^^ 

fELECOMPUTlNG 

ON  THE 

fm 

It's  only  a  phone  call  away. 


mrn^ 


COMPUTERS  Telecomputing 
on  the  Commodore  64 

Edited 

introduces  readers  to  telecommu- 
nications, with  sections  on  buying 
and  using  modems,  accessing 
information  services  and  bulletin 
boards,  and  uploading  and  down- 
loading files.  There  is  also  a  disk 
available  which  includes  the  pro- 
grams in  the  book. 
$12.95      ISBN  0-87455-009-2 


COMPUTEI's 

TELECOMPUTINGI 

ON  THE 

COMMODORE 

64 


Telecomputing  lets  you  call 
up  computers  around  the 
world  through  a  network  of 
telephone  lines. 

To  gel  you  started  in  tele- 
computing, COMPUTE!  Books 
ofiers  you  five  top-selling  books. 
Written  for  the  Apple  ll-series, 
Commodore  64,  IBM  PC  and 
PCjr,  and  Macintosh,  the  books 
give  you  all  the  information  you 
need,  from  selecting  software  to 
dialing  large  databases. 

To  order  your  complete  guide  to 
telecomputing,  give  us  a  call.  In 
the  U.S.,  call  toll  free  800-334-0868 
(North  Carolina  residents  call 
919-275-9809). 


COMPUTE!  Publicationsjnc.® 

One  01  the  ABC  Publishing  Companies  ^^^ 

32<I  W  Wendovsr  Avenue,  Suite  200  Greensboro.  NO  27408  919-275-9609 


COMPUTEI's  Personal 
Telecomputing 

Don  Stoner 

This  comprehensive  general  guide 
to  the  world  of  telecomputing 
shows  how  to  access  databases, 
receive  software,  and  commu- 
nicate with  others  using  a  personal 
computer. 
$12.95      ISBN  0-942386-47-7 


Personal 
Telecomputing 


COMPUTEI's  Guide  to 
Telecomputing  on  the  Apple 

Thomas  E,  Enright 
Joan  Nickerson 
Anne  Wayman 

An  informative,  easy-to-understand 
guide  to  telecomputing  on  the 
Apple:  covers  everything  from 
selecting  hardware  and  software  to 
accessing  large  databases. 
$9.95      ISBN  0-942386-98-1 


cowum 
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COMPUTII  books  are  avalloble  In  the  U.K.,  Europe,  ttie  Middle 
East,  and  Africa  Irom  Holt  Saunders,  Lid.,  1  St.  Anne's  Road. 
Eastbourne,  East  Sussex  BN21  3UN,  England. 


Some  Historic  Breakthroughs 
DoNT  Take  As  Much  Explaining 

As  CompuServe. 


But  then,  some  historic 
breakthroughs  could  only 
take  you  from  the  cave  to 
the  tar  pits  and  back  again. 

CompuServe,  on  the  other  hand, 
makes  a  considerably  more  civilized 
contribution  to  your  life. 

It  turns  that  marvel  of  the  20th 
century,  the  personal  computer,  into 
something  useful. 

Unlike  most  personal 
computer  products  you 
read  about,  CompuServe 
is  an  information  service. 
It  isn't  software.  It  isn't 
hardware.  And  you  don't  even  have 
to  know  a  thing  about  programming 
to  use  it.  You  subscribe  to  CompuServe 
— and  24  hours  a  day,  7  days  a  week, 
it  puts  a  universe  of  information, 
entertainment  and  communications 
right  at  your  fingertips. 

A  few  of  the  hundreds 
of  things  you  can  do  with 
CompuServe. 

COMMUNICATE 

EasyPlex'"  Electronic  Mail  lets  even 
beginners  compose,  edit,  send  and 
file  messages  the  first  time  they  get 
online.  It  puts  friends,  relatives  and 


business  associates — anywhere  in 
the  country — in  constant,  conven- 
ient touch. 

CB  Simulator  features 

72  channels  for  "talking" 

with  thousands  of  other 

enthusiastic  subscribers 

throughout  the  country 

and  Canada. The  chatter 

is  frequently  hilarious,  the  "handles" 

unforgettable,  and  the  friendships 

hard  and  fast. 

More  than  100  Forums  welcome 
your  participation  in  "discussions" 
on  all  sorts  of  topics.  There  are 
Forums  for  computer  owners, 
gourmet  cooks,  veterinarians,  pilots, 
gDlfers,  musicians,  you  name  it!  Also, 
Electronic  Conferencing  lets  busi- 
nesses put  heads  together  without 
anyone  having  to  leave  the  shop. 

Bulletin  Boards  let  you  "post" 
messages  where  thousands  will  see 
them.  You  can  use  our  National 
Bulletin  Board  or  the  specialized 
Bulletin  Boards  found  in  just  about 
every  Forum, 


HAVE  FUN 

Our  full  range  of  gcimes  includes 
'Tou  Guessed  It!",  the  first  online 
TV-style  game  show  you  play  for  real 
prizes;  and  MegaWars  111,  offering  the 


ultimate  in  interactive  excitement. 
And  there  are  board,  parlor,  sports 
and  educational  games  to  play  alone 
or  against  other  subscribers 
throughout  the  country 
Movie  Reviews  keep  that  big 
night  at  the  movies  from  being  a 
five  star  mistake. 

SHOP 

THE  ELECTRONIC  MALE"  gives 

you  convenient,  24-hour-a-day 
7-day-a-week  shopping  for  name 
brand  goods  and  services  at  discount 
prices  from  nationally  known  stores 
and  businesses. 

SAVE  ON  TRIPS 

Travelshopper  ™ 

letsyou  scan  flight 
availabilities  (on 
virtually  any 
airline  —  world- 
wide), find  airfare 
bargains  and  order 
tickets  right  on  your  computer 

Worldwide  Exchange  sets  you  up 
with  the  perfect  yacht,  condo,  villa, 
or  whatever  it  takes  to  make  your  next 
wsicationa  vacation. 

A  to  Z  Travel/News  Service 

provides  the  latest  travel  news  plus 
complete  information  on  over  20,000 
hotels  worldwide. 


MAKE  PHI  BETA  KAPPA 

G  roller's  Academic  American 
Encyclopedia's  Electronic  Edition 

delivers  a  complete  set  of  encyclope- 
dias right  to  your  living 
room  just  in  time  for 
today's  homework.  It's 
continuously  updated . . . 
and  doesn't  take  an  inch 
of  extra  shelf  space. 
TTie  College  Board,  operated  by  the 
College  Entrance  Examination 
Board,  gives  tips  on  preparing  for  the 
SAT,  choosing  a  college  and  getting 
financial  aid. 

KEEP  HEAETHY 

Healthnet  will  never  replace  a  real, 
live  doctor — but  it  is  an  excellent  and 
readily  available  source  of  health  and 
medical  information  for  the  public. 
Human  Sexuality  gives  the  civiliza- 
tion that  put  a  man  on  the  moon  an 
intelligent  alternative  to  the  daily 
"Advice  to  the  Lovelorn"  columns. 
Hundreds  turn  to  it  for  real  answers. 

BE  INFORMED 

All  the  latest  news  is  at  your 
fingertips.  Sources  include  the  AP 
news  wire  (covering  all  50  states  plus 

national  news),  the 
Washington  Post, 
USA  TODAY  Update, 
specialized  business 
and  trade  publica- 
tions and  more.  You 
can  find  out  instantly  what  Congress 
did  yesterday;  who  finally  won  the 
game;  and  what's  happening  back  in 
Oskaloosa  with  the  touch  of  a  button. 
And  our  electronic  clipping  service 
lets  you  tell  us  what  to  watch  for  Well 
electronically  find,  clip  and  file  news 
for  you. . .  to  read  whenever  you'd  like. 

INVEST  WISELY 

Comprehensive  investment  help 

just  might  tell  you  more  about  the 
stock  you're  looking  at 
than  the  company's 
Chairman  of  the  Board 
knows.  (Don't  know  who 
he  is?  Chances  are,  we 
can  fill  you  in  on  that, 
too.)  CompuServe  gives  you  com- 
plete statistics  on  over  10,000  NYSE, 
AMEX  and  OTC  securities.  Historic 
trading  statistics  on  over  50,000 


stocks,  bonds,  funds,  issues  and 
options.  Five  years  of  daily  com- 
modity quotes.  Standard  &  Poor's. 
Value  Line.  And  more  than  a  dozen 
other  investment  tools. 
M    Site  II  facilitates  business 
decisions  by  providing  you 
with  demographic  and  sales 
potential  information  by  state, 
county  and  zip  code  for  the 
entire  country 
National  and  Canadian  business 
wires  provide  continuously  updated 
news  and  press  releases  on  hundreds 
of  companies  worldwide. 

GET  SPECIALIZED 
INFORMATION 

PUots  get  personalized  flight  plans, 
weather  briefings,  weather  and  radar 
maps,  newsletters,  etc. 
Entrepreneurs  use  CompuServe 
too  for  complete  step-by-step  guide- 
lines on  how  to  incorporate  the  IBMs 
of  tomorrow. 

Lawyers,  doctors,  engineers,  mil- 
itary veterans  and  businessmen 
of  all  types  use  similar  specialized 
CompuServe  resources  pertinent  to 
their  unique  needs. 


And  now  for  the 
pleasant  surprise. 

Although  CompuServe  makes  the 
most  of  any  computer,  it's  a  remark- 
able value.  With  CompuServe,  you 
get  low  start-up  costs,  low  usage 
charges  and  local  phone-call  access 
in  most  major  metropolitan  areas. 

Here's  exactly  how 
to  use  CompuServe. 

First,  relax. 

There  are  no  advanced  computer 
skills  required. 

In  fact,  if  you  know 
how  to  buy  breakfast, 
you  already  have  the 
know-how  you'll  need 
to  access  any  subject 

in  our  system.  That's  because  it's 
"menu-driven;'  so  beginners  can 
simply  read  the  menus  (lists  of 
options)  that  appear  on  their 
screens  and  then  type  in  their 
selections. 
Experts  can  skip  the  menus  and 
just  type  in  "GO"  followed  by  the 
abbreviation  for  whatever  topic 
they're  after. 


In  case  you  ever  get  lost  or  con- 
fused, just  type  in  "H"  for  help,  and 
we'll  immediately  cut  in  with  instruc- 
tions that  should  save  the  day 

Besides,  you  can  either  ask  ques- 
tions online  through  our  Feedback 
service  or  phone  our  Customer 
Service  Department. 

How  to  subscribe. 

To  access  CompuServe,  you'll 
need  a  CompuServe  Subscription 
Kit,  a  computer,  a  modem  to  connect 
your  computer  to  your  phone,  and 
in  some  cases,  easy-to-use  com- 
munications software.  (Check  the 
information  that 
comes  with  your 
modem.) 

With  your  Sub- 
scription Kit,  you'll 
receive: 

■  a  $25  usage  credit. 

■  a  complete  hardcover  Users  Guide. 

■  your  own  exclusive  user  ID 
number  and  preliminary  password. 

■  a  subscription  to  CompuServe's 
monthly  magazine,  Online  Today. 

Call  800-848-8199  (in  Ohio, 
614-457-0802)  to  order  your  Sub- 
scription Kit  or  to  receive  more 
information.  Or  mail  this  coupon. 

Kits  are  also  available  in  computer 
stores,  electronic  equipment  outlets 
and  household  catalogs.  You  can  also 
subscribe  with  materials  you'll  find 
packed  right  in  with  many  com- 
puters and  modems  sold  today. 

I   O  Please  send  me  additional  infomjation.  ' 

r~l  Please  send  me  a  CompuSerre  Subscription  KiL  I 

D  I  am  enclosing  my  check  lor  $39.95.  plus  S2„W  | 

handling.  (Add  iaies  lax  if  delivered  in  Ohio.)  . 

Please  make  check  payable  to  CompuServe        , 
Information  Services,  Inc.  ' 

D  Charge  this  to  my  VISA/MasteiCard 

# 

Expiration  Date 

Signature 

Name 


Address. 
City 


State . 


.Zip. 


MAIL  TO: 


CompuServe' 


Customer  Service  Oidering  Dept. 
I    RO.  Box  L-477 


L^ 


Columbus,  Ohio  43260 


PRI-511 


'U 


An  H4R  Block  Company 

EasyPlex  and  ELECTRONIC  MALL  are  trademarks  ai  CompuServo. 
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Ptoduct 

Price 

ISPN 

Publisher/ 
Vendor 

Systems 

Description 

ICOMM 

$100 

71550- 
1000 

Smith  Educ. 
Engineering  Ser, 
Inc. 

IBM  PC 

Intelink 

$59.95 

27050- 
4600 

Dynacomp  Inc. 

Atari  24K  RAM 

Kimber-Link 

S29,95, 
plus  S3 
shipping 

Kimberlek,  Inc. 

Commodore  64 

Compatible  with  auto-dial  modems 

Kwik-Phone 

S19.95 

23700- 
0540 

Datamost  Inc. 

Commodore  64 

Has  automatic  answer,  built-in  phone  book,  and 
bulletin  board 

MacMai! 

$59.95 

01718- 
6000 

Aegis 
Development  Inc. 

Mac 

Send  or  receive  electronic  mail  (data/program  files) 
automatically.  Interact  with  Apple-Talk  and  other 
networks  or  person  to  person 

MacTerminal 

S99 

03900- 
4150 

Apple  Computer, 
Inc. 

Mac 

Micro  Link  I! 

S99 

25400- 
7600 

Digital  Marketing 

IBM  PC 

Micro  Link  [I  with 
Ncwsnet 

S99 

25400- 
3700 

Digital  Marketing 

IBM  PC 

Will  auto-dial,  auto-logon,  and  capture  onto  disk  any 
information  retrieved 

Modem-86 

S89 

18600- 
1250 

Compuview 
Products  Inc. 

IBM  PC 

Mouse  Exchange  Terminal 

$39.95 

26769- 
5500 

Dreams  of  the 
Phoenix  Inc. 

Mac 

MTerm  Ver.  1.40 

S79.95 

51537. 
6000 

Micro -Systems 
Software  Inc. 

IBM  PC 

Omnicomm 

S39.95 
S34.95 

73925- 
2000 

Oakridge  Micro 
Computer 

Commodore  64, 
VIC-20 

Online 

S89.95 

75100- 
4400 

Roger  Wagner 
Publishing 

Apple  U,  II -t-,  He 

OwlTerm 

S50 

59000- 
5500 

Owl  Micro- 
Communications 
Ltd. 

Apple  II 

Asynchronous  communications  package  allowing  the 
Apple  to  behave  as  a  dumb  teletype  terminal 

PC-Dial 

S25 

09856- 
1000 

Jim  Button 

IBM  PC 

PCModem 

S49.9S 

74412- 
1000 

Solution  Software 
Systems 

IBM  PC 

PC-Talk  Version  2.0 

S35 

34987- 
1000 

The  Headlands 
Press  Inc. 

IBM  PC 

PC-Talk  111 

S35 

31418- 
1000 

Freeware 

IBM  PC 

PFS;Access  Ver,  A.O 

$70 
S95 

73300- 
1250 

Software 
Publishing  Corp. 

Apple  lie,  lie, 
IBM  PC 

Pits  (PASCAL  Interactive 
Terminal  Software) 

$54.95 

73612- 
2000 

Software  Sorcery 

Apple  n,  Ii  +  ,  lie. 
lie 

Prett)'  Good  Terminal 

$35 

13087- 
6500 

Club  Mac  User 
Group 

Mac 

Has  Mac-to-Mac  and  XMODEM  (Christensen)  file 
transfer  protf>cols 

Procom-M  Ver.  1,6 

$99 

63273- 
4000 

Prometheus 
Products  Inc. 

Apple  11,  II  +  ,  He, 
He,  Mac 

Has  XMODEM  protocol,  phone  directory,  log-on 
maoo  capability,  XON/XOFF,  capture  buffer,  text 
editor,  phone  log 

FTP  Ll 

$69.95 

82790- 
1000 

Trutec  Software 

Apple  II,  lie 

Reach/86 

$39.95 

73950- 
4190 

The  Software 
Toolworks 

IBM  PC 

ReadiTerm 

$75 

65378- 
2000 

Readiware 
Systems,  Inc. 

IBM  PC 

Sixth  Sense 

$89.95 

53625- 
0750 

Microtechnic 
Solutions,  Inc. 

Commodore  64 

Communications  package  with  the  capability  to 
perform  complex  tasks  including  decision-making 

Skiwriter  11 
Smart  64  Talking 
Terminal 

S49,95 
S39.95 

70387-665 

Prentice-Hall 

Commodore  64 

Cartridge-based  telecommunications/word  processor 

53625- 
0950 

Microtechnic 
Solutions,  Inc. 

Commodore  64 

Operates  with  the  Comvoice  Speech  Synthesiser  for 
visuall)'  impaired  people 

Smart  64  Terminal  -f  3 

$39.95 

53625- 
1000 

Microtechnic 
Solutions  Inc. 

Commodore  64 

Smart  64  Terminal  -4-4 

$39.95 

53625- 
1050 

Microtechnic 
Solutions  Inc. 

Commodore  64 

SourceLink 
Syncomm 

$49.95 

$44.95 

74737- 
1000 

77500- 
7880 

Source 

Telecomputing 

Corp. 

IBM  PC 

Communications  package  designed  by  The  Source  for 
communication  to  this  and  other  time-sharing  services 

Synapse  Software 

Atari  400/800,  XL, 
XE 

Talking  Termexec 

$95 

30345- 
1000 

Exec  Software,  Inc. 

Apple  IL  II -f,  lie, 
He 

A  communications  package  for  the  visually  impaired 

Telelink  1 

16K-$29.95 
8K-$24.95 

05750- 
8400 

Atari  Corp. 

Atari  400/800,  XL, 
XE 

Telelink  il 

$19.95 

05750- 
8500 

Atari  Corp. 

Atari  400/800,  XL, 
XE 
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Ftoduci 

Price 

ISPN 

Publisher/ 
Vendor 

Systems 

Description 

... 

Tele-Porter 

S79.95 

69200- 
6000 

Sensible  Software, 
Inc. 

Apple  11 +  ,  He 

TeleTexl 

$49.95 

53425- 
9000 

Microsparc,  Inc. 

Apple  II,  Il-H,  He 

Teletext  Ver.  1.0 

$79.95 

51500- 
6000 

Microsparc,  Inc. 

Apple  11,  II-)-,  Tie 

Telpac  Ver.  2-0 

$99 

84619- 
1000 

U.S.  Robotics,  Inc. 

Apple  11,  lie.  III 

Can  automatic  call,  logon,  transfer  files,  and  make 
timed  calls 

Telstar  64 

$29.95 

Eastern  House 
Software 

Commodore  64 

TermExec 

$95 

30345- 
2000 

Exec  Software,  Inc. 

Apple  11,  in-,  lie. 
He 

TermExec 

$79.95 

64475- 
4000 

Quinsept,  Inc. 

Apple  in-,  Ik,  He 

Terniinal.i] 

$60 

80950- 
6900 

Telephone 

Software 

Connection 

Apple  n-i-,  Ik,  He 

Features  auto-logon/logon-memorization, 
automaticaily  records  online  sessions,  review,  print, 
and  save  to  disk 

Transend 

$89 

73SDO- 
1000 

Transend 
Corporation 

Apple  l\  +  ,  He, 
IBM  PC 

Videolink  88 

$59.95 

86878- 
1000 

Windmin 
Software,  Inc. 

IBM  PC 

VIP  Terminal 

$59.95 

Softlaw,  Irsc. 

Commodore  64 

XL 

$75 

03184- 
9000 

AML 

Commodore  64 

Z-Term 

$99.95 

75100- 
8000 

Roger  Wagner 
Publishing 

ApplelF.  il-1-.He 

W^hat^s  IVew  Online? 


Kathy  Yokol,  Assistant  Features  Editor 


The  major  telecoimnunications  ser- 
vices have  added  several  new  features 
over  the  past  year,  and  a  few  new 
services  oriented  toward  personal 
computer  users  have  come  online. 
Here  are  the  highlights. 


American  People/Link 

Last  December,  American  Home 
Network  premiered  American 
People/Link,  a  telecommunica- 
tions network  focusing  on  family 
entertainment  and  online  conversa- 
tions. Electronic  mail,  a  CB  simula- 
tion, and  a  wide  variety  of 
telegames  are  its  main  features. 

In  mid-August,  American 
People/Link  started  adding  online 
clubs  to  its  other  services.  Similar  to 
special  interest  groups  (SIGs)  on 
other    telecommunications   net- 


works, they  provide  an  electronic 
forum  for  people  with  similar  inter- 
ests to  share  information.  Initial 
clubs  cater  to  such  interests  as 
sports,  aviation,  humor,  women's 
issues,  and  health. 

Subscriber  fees  are  as  follows: 
For  the  first  three  hours  of 
nonprime-time  use  each  month,  the 
hourly  charge  is  $4.78  for  300  bps 
and  $7,78  for  1200  bps.  Additional 
time  costs  $2.95/hour  for  300  bps 
and  $5.95/hour  for  1200  bps. 
Prime-time  access  is  $9.95  for  both 
300  and  1200  bps  ($14.95  in  some 
cities). 

For  more  information,  contact:  Amer- 
ican Home  Network,  Inc.,  Arlijigton 
Ridge  Office  Center,  3215  N.  Frontage 
Road,  Suite  1505,  Arlington  Heights, 
IL  eOOOi.  800-524-0100  (Illinois  resi- 
dents call  312-870-5200). 


CompuServe  Information 
Service 

CompuServe,  the  nation's  largest 

consumer  information  service,  ex- 
perienced tremendous  growth  in 
1985.  Its  subscriber  base  grew  by 
more  than  70  percent  to  nearly  a 
quarter-million,  and  several  new 
services  were  added. 

Travelshopper  gives  subscribers 
access  to  Trans  World  Airlines'  res- 
ervation system.  You  can  find  the 
lowest  rates  and  most  convenient 
flights,  then  make  a  reservation 
while  online.  Tickets  can  be  sent  to 
your  home  or  to  the  airline  ticket 
counter,  or  issued  by  a  local  travel 
agency. 

The  Executive  Service  Option 
(formerly  called  Executive  Infor- 
mation Services)  is  a  database  of  so- 
phisticated  financial    information 
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which  is  now  available  to  all  sub- 
scribers. It  offers  a  variety  of  tools 
for  investment  and  financial  plan- 
ning, as  well  as  special  merchan- 
dise offers  and  discounts.  There  is  a 
one-time  charge  of  $10  ($5  for  new 
users)  and  a  $10  minimum  monthly 
usage  fee. 

CompuServe  has  also  upgrad- 
ed and  simplified  its  electronic  mail 
service.  Easyplex  features  different 
modes  for  different  levels  of  exper- 
tise; online  instructions;  easy  edit- 
ing; and  an  "address  book"  which 
stores  names  and  user  IDs  of  up  to 
50  people. 

Gannett  Co.,  Inc.,  is  now  dis- 
tributing USA  TODAY  Update 
through  CompuServe.  Hotlines,  up- 
dated hourly  from  8  a.m.  to  1 1  p.m., 
offers  business,  financial,  local,  and 
international  news,  plus  weather 
reports.  Decisionlines,  updated  dai- 
ly, is  targeted  to  specific  industries 
and  professions  such  as  travel, 
technology,  law,  and  energy. 

Since  August  1983,  the  NCR 
Universal  Credit  Union  has  al- 
lowed its  members  to  conduct 
transactions  electronically  from 
anywhere  in  the  world  through 
CompuServe's  Companion  at~Home. 
In  the  last  year,  three  additional 
major  credit  unions  have  an- 
nounced an  intention  to  do  the 
same:  Northwest  Orient  Airlines 
Employee  Credit  Union,  Pacific 
IBM  Employees  Credit  Union,  and 
Oak  Ridge  National  Laboratories 
Employees  Credit  Union. 
For  more  information,  contact:  Compu- 
Serve, P.O.  Box  20212,  Columbus, 
OH  43220.  800-848-8199. 

Delphi 

Since  June,  Delphi  has  offered  ser- 
vice at  2400  bps,  for  an  additional 
$5  an  hour. 

Two  new  areas  of  the  service 
have  also  been  developed.  Sub- 
scribers can  now  get  current  news, 
sports,  and  financial  information  on 
Delphi  through  AP  News  Services. 
And  owners  of  Commodore,  Apple 
Il-series,  Macintosh,  and  Atari  com- 
puters can  share  information  and 
get  technical  help  through  several 
new  online  SIGs. 
For  more  information,  contact:  Delphi, 
3  Blackstone  Ct.,  Cambridge,  MA 
02139.  800-544-4005. 

Dow  Jones  News/Retrieval 

Dow  Jones  has  added  two  new  data- 
bases  to   its   information    service. 
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Peterson's  College  Selection  Service 
has  profiles  on  more  than  3,000 
two-  and  four-year  colleges  and 
universities.  And  a  new  medical 
and  drug  reference  database  ad- 
dresses the  diagnosis  of  hundreds 
of  diseases  and  offers  information 
on  many  pharmaceutical  drugs. 

American  Express  Advance  lets 
cardholders  look  up  previous  state- 
ments on  their  accounts,  American 
Express  Siwpping  And  Travel  Service 
offers  online  shopping  and  travel 
information. 

In  June,  Dow  Jones'  per- 
minute  fees  for  300  bps  changed  to 
90  cents  (prime  time)  and  20  cents 
(nonprime  time).  The  1200  and 
2400  bps  rates  are  double  the  300 
bps  rate.  Certain  business-related 
databases  require  an  additional  30 
cents  (prime)  and  60  cents  (non- 
prime)  per  minute.  In  addition  to 
the  $75  standard  membership  fee, 
there's  also  a  $12  annual  service 
fee. 

For  more  information,  contact:  Dow 
Jones  News/Retrieval,  P.O.  Box  300, 
Princeton,  N]  08540.  800-257-5114. 

The  Source 

Over  the  past  year.  The  Source  sim- 
plified use  of  its  telecommunica- 
tions network.  The  updated  menu 
incorporates  a  self-teaching  design 
to  help  users  find  what  they're 
looking  for  more  quickly. 

Online  assistance  has  always 
been  available  on  The  Source,  but 
now  it's  expanded  and  it's  free.  The 
tutorial  includes  four  lessons  of 
graduated  difficulty  to  familiarize 
new  users  with  the  system,  Unlim- 
ited free  access  to  this  assistance 
allows  both  new  and  experienced 
subscribers  to  explore  areas  of  the 
system  that  they  may  not  have 
known  about  before. 

In  August,  officials  at  The 
Source  announced  that  individual 
SIGs  would  soon  be  online. 
Though  details  have  not  been  fully 
developed  at  this  writing,  the  SIGs 
are  expected  to  address  the  special 
interests  of  personal  computer 
owners.  An  additional  per-minute 
fee  will  be  charged  for  this  service. 

In  August,  2400  bps  service  be- 
gan in  ten  major  cities.  Additional 
cities  will  soon  be  added  via  Uninet 
and  Telenet.  The  base  rate  for 
prime-time  2400  bps  service  is  46 
cents  per  minute;  nonprime  time  is 
20  cents  per  minute. 


A  new  database  contains  up- 
dated listings  for  14,000  domestic 
and  8,000  international  hotels. 
Each  listing  contains  the  hotel's  ad- 
dress and  telephone  number,  as 
well  as  information  on  restaurants, 
convention  facilities,  sports  and  lei- 
sure services,  and  rates. 
For  more  information,  contact:  The 
Source,  1616  Anderson  Road, 
McLean,  VA  22102.  800-336-3366. 

Viewtron 

Viewtron  is  a  new  videotex  service 
scheduled  to  begin  this  fall  for 
Commodore,  Apple,  and  IBM  own- 
ers. Operated  by  Viewdata  Corpo- 
ration, a  subsidiary  of  Knight- 
Ridder  Newspapers,  Inc.,  Viewtron 
was  to  start  October  1  in  most  areas 
of  the  U.S.  with  access  to  a  Telenet, 
Tymnet,  or  Uninet  number,  except 
Massachusetts,  New  Hampshire, 
Vermont,  and  Maine.  Viewtron 
plans  to  offer  news,  weather, 
sports,  and  current  stock  prices; 
book,  movie,  and  software  reviews; 
communication  with  other  sub- 
scribers through  electronic  mail  and 
a  CB  simulator;  and  online  shop- 
ping and  banking. 

Viewtron  is  to  be  the  first  ma- 
jor news  and  information  service  in 
the  U.S.  to  display  color  graphics, 
though  only  for  Commodore  users. 
Because  of  this  feature.  Commo- 
dore owners  need  special  terminal 
software  designed  for  the  system. 
IBM  and  Apple  owners  can  use  any 
terminal  software  with  VT-100  em- 
ulation (or  Viewtron's  package). 

To  subscribe,  you  must  buy  a 
Viewtron  Software  Starter  Kit 
($9.95)  which  contains  terminal 
software,  one  free  hour  of  service, 
an  ID  and  password,  and  a  user 
manual.  Rates  after  the  first  hour 
are  nine  cents  a  minute  (after  6  p.m. 
weekdays,  all  day  weekends)  and 
22  cents  a  minute  (weekdays  before 
6),  There  is  no  monthly  minimum 
and  no  extra  charge  for  1200  bps 
access. 

Viewdata  is  offering  free  start- 
er kits  with  the  purchase  of  some 
Anchor  Automation  modems.  A 
300  bps  Westridge  6420  modem 
with  software  is  $49.95;  a  1200  bps 
Volksmodem  12  is  $189.95. 
For  more  information,  contact:  View- 
data Corporation  of  America,  Inc., 
nil  Lincoln  Road,  7th  Floor,  Miami 
Beach,  FL  33139.  800-543-5500, 
Department  9401.  @ 


HOW  TO  GET 
OVER  $2000  WORTH  OF  NEW 
CAPABILITIES  FOR  YOUR 
COMMODOJ 


OR  $599 


The  Spartan"  is  the  Apple'"  II  i-  emulator  for  your  Commodore  64'"  that  will  open 

up  a  whole  new  world  of  hardware  and  software  for  you!  Imagine  adding  these 
features  to  your  Commodore  64'"  for  the  Spartan'"  price  of  S599:  □  Apple"!!  + 
hardware  and  software  capabilities  Q  64K  l?AM  expansion  □  four 
software  selectable  Commodore  64'"  cartridge  slots  Q  non-dedicated  8-bit 
parallel  port  D  standard  audio  cassette  deck  capabilities  for  your  C-64'". 
The  suggested  retail  value  of  comparable  products  offering  only  these 
capabilities  is  over  $2200.00*  —  but  the  Spartan'"  gives  you  much,  much 
more!  By  building  on  your  investment  in  your  Commodore  64'"—  an 
excellent  introductory  computer  —  you  create  a  whole  new  system 
with  both  C-64'"  and  Apple'"  II  +  capabilities.  There  is  a  whole  other 
world  out  there!  The  huge  selection  of  Apple'"  N  +  hardware  and 
software  is  now  yours  to  explore!  Call  toll  free  for  the  Spartan'" 

dealer  nearest  you.  '^ 
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BASIC,  Logo,  Pascal,  FORTRAN,  COBOL,  Forth— 
these  and  a  hundred  other  odd-sounding  names  are 
the  languages  we  use  to  communicate  ivith  comput- 
ers. Since  the  begintiing  of  the  computer  age,  scien- 
tists and  programmers  have  been  striving  to  make 
this  human-machine  interaction  easier,  faster,  and 
morfi  powerful.  Why  are  there  so  many  languages? 
Which  are  best?  And  what  loill  tomorrow's  lan- 
guages be  like?  The  answers  may  help  you  decide 
which  language  is  best  for  you. 


Imagine  that  if  every  time  you  asked  someone 
to  do  something,  you  had  to  tediously  explain 
each  step  of  the  procedure.  Outlining  some- 
thing as  simple  as  taking  out  the  garbage  could 
take  ten  minutes: 

Walk  to  the  garbage  can  by  placing  one  foot  in 
front  of  the  other  and  moving  forward.  Stop.  Bend 
over  at  the  waist,  extending  both  arms  out  in  front 
of  you.  Put  your  hands  on  either  side  of  the  garbage 
bag  and  grasp  it  by  curling  your  fingers  and  apply- 
ing pressure  to  get  a  good  grip.  Stand  up  straight 
again,  holding  the  bag  in  frontof  you.  Turn  around 
and  face  the  opposite  direction,  still  holding  the 
bag.  Walk  toward  the  back  door.  Stop.  Bend  over 
again  and  release  your  grip  on  the  bag.  Stand  up, 
extend  your  right  arm,  and  grasp  the  doorknob. 
Apply  pressure,  twist,  and  pull  until  the  door 
opens....  And  so  on. 
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Human  beings  don't  need  that 
kind  of  step-by-step  instruction  for 
most  tasks.  But  computers  require  it 
for  all  tasks.  Technically,  the  only 
way  to  make  a  computer  do  some- 
thing is  to  rearrange  its  internal 
pathways  of  electricity  by  flipping 
the  equivalent  of  thousands  of  mi- 
croscopic on/off  switches.  By  pro- 
gramming at  the  computer's  most 
fundamental  level,  — a  binary  code 
of  ones  and  zeros  which  controls 
those  switches — programmers  can 
instruct  computers  to  carry  out  very 
simple  tasks,  like  adding  two  num- 
bers or  storing  a  number  in  memo- 
ry. When  hundreds  or  even 
thousands  of  these  simple  com- 
mands are  combined  to  form  a  pro- 
gram, computers  can  seem  to 
handle  tasks  of  great  complexity. 

But  programming  a  computer 
in  binary  codes  can  be  a  daunting 
job.  To  make  it  easier  and  faster, 
computer  scientists  and  engineers 
have  spent  the  last  four  decades 
developing  scores  of  programming 
languages  as  alternatives  to  com- 
municating with  computers  on  the 
binary  level.  Many  of  these  lan- 
guages are  composed  of  familiar 
English  words,  and  they  serve  as 
translators  or  interpreters  between 
the  language  of  the  programmer 
and  the  language  of  the  machine. 
For  example,  many  of  today's  per- 
sonal computers  come  with  a  lan- 
guage called  BASIC,  which  stands 
for  Begvuter's  All-purpose  Symbolic 
Instruction  Code.  A  typical  English- 
like BASIC  command  is  PRINT. 
When  PRINT  is  followed  by  some 
text  inside  quotation  marks,  such  as 
PRINT  "HELLO",  the  computer 
prints  the  text  on  the  monitor 
screen.  To  do  the  same  thing  direct- 
ly in  machine  language,  a  program- 
mer might  have  to  write  a  half- 
dozen  or  more  commands. 

For  this  reason,  languages  such 
as  BASIC  are  known  as  high-level 
languages — they  are  relatively  far 
removed  from  the  binary  level  of 
the  machine.  Programming  in  a 
high-level  language  versus  pro- 
gramming in  machine  language  is 
somewhat  like  the  difference  be- 
tween saying  "Please  take  out  the 
garbage"  or  outlining  the  whole 
process  step-by-step  as  shown 
above. 

There  are  other  reasons  why 
high-level  languages  are  continual- 
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ly  being  developed,  too.  Different 
people  have  different  programming 
styles,  so  more  languages  provide 
more  choices.  Also,  special  pro- 
gramming jobs  require  specialized 
tools;  the  language  for  writing  an 
accounting  program  might  not  be 
the  best  for  writing  an  adventure 
game. 

The  evolution  of  these  lan- 
guages, however,  has  distanced 
programmers  from  the  inner  work- 
ings of  computers.  High-level  lan- 
guages make  it  easier  to  write 
programs,  but  fewer  and  fewer  peo- 
ple understand  what's  really  hap- 
pening inside  the  box — how  the 
electrons  are  zipping  in  and  out  of 
logic  gates.  It's  like  driving  a  car 
without  thinking  about  how  the  gas 
and  air  are  exploding  inside  the 
cylinders,  pushing  the  pistons  up 
and  down.  Whether  or  not  it's  im- 
portant to  know  these  details  is  a 
matter  of  debate  within  the  com- 
puting community. 

Today,  you  can  run  a  program  on 
just  about  any  personal  com- 
puter without  knowing  any- 
thing about  programming.  Usually 
it's  as  simple  as  inserting  a  floppy 
disk  or  program  cartridge,  switch- 
ing on  the  system,  and  perhaps  typ- 
ing a  single  command  to  get  things 
started. 

This  is  quite  a  jump  from  40 
years  ago,  when  the  first  electronic 
digital  computer,  ENIAC,  was  built. 


ENIAC  (Electronic  Numeric  Inte- 
grator and  Calculator)  was  a  30-ton, 
100-foot-long  machine  which 
contained  almost  a  hundred  thou- 
sand vacuum  tubes,  resistors,  and 
capacitors.  ENIAC  had  to  be  pro- 
grammed by  hard-wiring — engi- 
neers rewired  it  for  each  new 
program  they  wanted  to  run.  There 
was  no  memory  inside  the  com- 
puter to  store  programs.  And  to- 
day's mass-storage  devices,  such  as 
floppy  disks  and  tapes,  were  not  yet 
imagined.  Hard-wiring  ENIAC 
could  take  days  as  engineers  pre- 
pared the  monster  to  solve  one  type 
of  complex  calculation.  Once  pro- 
grammed, ENIAC  could  solve  the 
equations  far  faster  than  people. 
But  if  a  different  type  of  calculation 
was  required,  the  hard-wiring  had 
to  start  all  over  again. 

The  difficulty  of  programming 
a  behemoth  such  as  ENIAC  meant 
that  only  a  handful  of  scientists  and 
engineers  could  really  "talk"  to  the 
computer.  And  they  had  to  commu- 
nicate completely  in  the  machine's 
own  primitive  language  of  wires 
and  connections. 

In  addition  to  being  enormous- 
ly expensive  to  build  and  maintain, 
these  early  computers  were  expen- 
sive to  use  because  hard-wiring 
took  so  much  time — time  that 
could  be  spent  on  calculations.  So 
engineers  borrowed  an  idea  from 
computer  pioneer  John  von  Neu- 
mann— stored  programs.  Adding 
memory  to  a  computer  to  temporar- 
ily store  a  program  as  it  runs  is 
much  faster  and  easier  than  rewir- 
ing the  hardware.  You  can  change 
programs  simply  by  replacing  the 
program  in  memory  with  a  new 
one. 

By  mid-1948,  British  computer 
scientists  had  completed  the  Mark 
I,  commonly  recognized  as  the  first 
stored-program  computer.  By  flip- 
ping switches  on  the  front  of  the 
Mark  I,  engineers  could  enter  short 
programs  into  the  machine.  This 
was  a  major  improvement,  but  still 
clumsy.  Reportedly,  the  codes  had 
to  be  entered  backward. 

Next,  a  way  had  to  be  found  to 
store  programs  between 
jobs;  there  isn't  nearly 
enough  memory  in  a  computer  to 
permanently  keep  all  the  possible 
programs  that  could  be  written. 
Also,  many  programs  require  data 


can  climb  into  the  pilot's  chair  and  fly  this  mysterious 
magical  machine.  And  the  haunting  fractal  graphics 
take  you  deeper  and  deeper  into  an  endless  maze  of 
mystical  caverns. 

An  adventure  so  real,  it'll  make  you  wonder;  What  ever 
happened  to  the  Eidolon's  mysterious  inventor?  Only  the 
adventurous  of  spirit  will  know  his  fete.  The  Eidolon— 
scientific  curiosity,  or  passport  to  a  magical  dimension? 
CM/iie  «nii 


You've  just  discovered  the 

Eidolon— a  curious  19th 

century  machine  whose 

inventor  vanished  without 

a  trace.  Only  his  journals 

and  sketches  remain. 

They  tell  of  an  incredible 
magical  realm— a  maze  of  caverns  populated  by  strange 
creatures  noted  as  Greps,  Biter  Birds  and  Bottlenecks. 
And  "intelligent"  Guardian  Dragons— who  hurl  colored 
fireballs  of  energy? 

The  machine  itself  belies  its  quaint  Victorian  charm. 
For  the  Eidolon  glows  with  the  power  of  enchanted 
energy.  It  awaits,  pristine  and  gleaming— perfectly 
preserved  for  over  a  hundred  years  by  the  powerful 
forces  that  propelled  it  and  its  pilot  to  another 
dimension. 
With  the  fascinating  first-person  point  of  view,  you 
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which  changes  from  job  to  job  and 
can't  be  stored  as  part  of  the  pro- 
gram, such  as  the  monthly  electric 
bills  of  utility  company  customers. 

This  time,  engineers  borrowed 
a  piece  of  nineteenth-century  tech- 
nology— cardboard  punch  cards. 
This  idea  was  originally  developed 
by  nineteenth-century  mathemati- 
cian Charles  Babbage,  who  took  the 
concept  from  an  earlier  system  used 
by  the  French  to  control  weaving 
looms.  Punch  cards  had  proven 
their  worth  in  data  processing  dur- 
ing the  1890  U.S.  census,  when 
they  were  used  to  speed  up  tabula- 
tion on  mechanical  adding 
machines. 

By  adapting  punch  cards  to 
computers,  it  became  possible  to 
write  and  store  programs  without 
tying  up  the  machine  itself.  Pro- 
grammers typed  their  programs  on 
keypunch  machines,  then  waited 
their  turn  to  feed  the  stack  of  cards 
into  the  computer.  After  the  results 
were  printed  out,  the  computer  was 
prepared  to  accept  another  batch  of 
cards.  This  system  was  called  batch 
processing. 

For  the  first  time,  programmers 
were  physically  separated  from 
computers.  There  were  software  ex- 
perts, who  wrote  programs  on 
batches  of  cards,  and  hardware  ex- 
perts, who  fed  the  cards  into 
computers. 

The  first  real  software  break- 
through was  an  assembler  program. 
An  assembler  translates  mnemon- 
ics like  LD  (load  a  number  from 
memory)  and  ST  (store  a  number  in 
memory)  into  the  binary  ones  and 
zeros   the   computer   understands. 

Each  assembler  operation  code  (or 
opcode)  corresponds  directly  to  a 
machine  language  instruction. 

Soon,  programmers  began  col- 
lecting useful  pieces  of  programs 
written  with  assemblers.  For  ex- 
ample, if  someone  needed  a  routine 
to  calculate  square  roots,  they  could 
borrow  one  from  another  program- 
mer who  had  already  figured  out 
the  math,  rather  than  waste  time 
reinventing  the  wheel.  Such  a  fill- 
in-the-blanks  routine  is  called  a 
macro-instruction,  or  macro  for 
short. 

A  library  of  macros  isn't  quite  a 
language,  because  it's  not  orga- 
nized or  standardized.  But  macros 
were  the  first  step  toward  high- 
level  languages. 
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One  of  the  first  high-level 
languages  was  FORTRAN 
(FORmula  TRANslator), 
developed  in  1954.  Before  FOR- 
TRAN, engineers  and  scientists 
who  were  unfamiliar  with  comput- 
ers had  to  describe  a  problem  to  a 
computer  programmer,  who  would 
then  write  a  program  to  solve  it. 
FORTRAN  made  it  easier  for  scien- 
tists and  engineers  to  write  their 
own  programs. 

Just  as  FORTRAN  was  written 
for  engineers,  COBOL  {COmmon 
Business  Oriented  Language)  was 
created  for  accountants.  Developed 
in  the  1950s  by  U.S.  Navy  Captain 
Grace  Hopper,  COBOL  is  still  one 
of  the  most  popular  languages  for 
large  business  computers,  and  is 
often  used  to  write  payroll  pro- 
grams and  other  applications  in 
large  data  processing  departments. 
In  1964,  when  FORTRAN  and 
COBOL  were  the  most  popular  pro- 
gramming languages,  two  Dart- 
mouth University  professors 
formulated  a  couple  of  important 
ideas.  First,  they  suggested  that  in- 
stead of  processing  programs  in 
batches,  a  single  computer  could  be 
hooked  up  to  several  terminals, 
sharing  its  time  among  many  users. 
A  fast  typist  works  at  perhaps  100 
words  per  minute,  while  a  com- 
puter can  accept  keystrokes  much 
faster — in  millionths  of  a  second.  A 
time-sharing  system  of  terminals 
would  allow  more  than  one  person 
to  use  the  computer  simultaneous- 
ly. Because  the  computer  works  so 
fast,  each  person  could  have  the 


illusion  that  he  was  the  only  one 
working  with  the  machine. 

Their  second  idea  was  a  new 
language,  BASIC,  a  general  com- 
puting language  which  would  be 
easier  to  learn  than  FORTRAN  or 
COBOL  and  more  flexible. 

Dartmouth  became  the  first 
university  to  make  computer  time 
generally  available  to  undergradu- 
ates, thanks  to  time-sharing  and 
BASIC.  (The  two  professors,  John 
Kemeny  and  Thomas  Kurtz,  recent- 
ly released  a  new  version  of  BASIC 
called  True  BASIC.) 

With  batch  processing,  pro- 
grammers had  to  write  a  program 
by  punching  it  onto  cards,  then 
submit  it  for  processing,  collect  the 
results  the  next  day,  find  out  there 
was  a  bug,  rewrite  it,  submit  it 
again,  and  so  on.  Time-sharing  al- 
lowed programmers  to  begin  de- 
bugging a  program  immediately.  It 
also  made  computers  accessible  to 
more  people  and  paved  the  way  for 
personal  computing. 

Soon  after  BASIC  was  devel- 
oped, many  more  program- 
ming languages  began 
appearing.  Computers  were  being 
adapted  to  more  applications,  and 
more  people  began  using  comput- 
ers, so  demand  grew  for  better  and 
more  specialized  languages. 

In  the  late  1960s,  a  debate 
heated  up  within  the  academic  and 
computer  communities  over  struc- 
tured programming.  This  is  a  meth- 
od intended  to  keep  programmers 
more  organized  and  programs  more 
readable  and  easily  modified.  The 
first  language  specifically  designed 
to  encourage  structured  program- 
ming was  Pascal — invented  by 
Niklaus  Wirth  in  Switzerland  and 
named  after  the  French  mathemati- 
cian and  logician,  Blaise  Pascal.  To- 
day, Pascal  is  popular  in  high 
schools  and  colleges  because  in- 
structors say  it  teaches  good  pro- 
gramming style.  It's  also  easier  to 
follow  the  flow  of  a  program  writ- 
ten in  Pascal. 

Meanwhile,  computer  educa- 
tion began  seeping  downward  from 
colleges  into  high  schools,  junior 
highs,  and  even  elementary 
schools.  For  the  first  time,  there  was 
a  need  for  languages  tailored  espe- 
cially for  young  people.  In  the  late 
1960s,  Seymour  Papert  of  the  Mas- 
sachusetts Institute  of  Technology 
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It  takes  all  kinds  to  make 
a  galaxy  interesting.  Like 
you,  a  techno-scavenger. 
Your  kind  are  out  to  get 
rich  scavenging  Ancient 
technology.  And  now 
-  :_^«e  rr     _^     you've  found  the  febled 

Koronis  Rift— the  weapons  testing  grounds  of  the 
Ancients.  The  chance  of  a  lifetime  awaits  you. 

Abandoned  war  hulks  litter  the  Rift— crammed  with 
exotic  weapons  and  technology.  The  lifelike  fractal 
graphics  take  you  to  this  mythical  land  of  the  Ancients. 
The  mind's-eye  point  of  view  puts  you  right  in  the  driver's 
seat  of  a  Surface  Rover.  A  hulk  looms  before  you— 
your  mind  races,  feverishly  planning  a  strategy.  What 
weapons  do  you  need  to  survive?  What  technology  will 
fetch  the  highest  price?  If  you  can  pack  your  battered 
Rover  full— you'll  be  rich  beyond  your  wildest  dreams. 
But  it  won't  be  easy.  The  Guardians— genetically 

Lucasfilm  Cants.  Konjnis  Rift,  and  all  elements  of  Iht  jianw  ftobsy.  TW  &  ©  19S5  Luca^DI  Ud.  (LFLI. 


engineered  mutants— stamd  watch  over  their  creators' 
technology.  And  they  deal  swiftly  and  ruthlessly  with 
characters  like  techno-scavengers. 

But  you've  got  a  plan.  If  you  and  your  trusty  Science 
Droid  can  scavenge  the  right  combination  of  weapons 
and  technology— and  get  off  the  planet  alive— you'll 
make  it  big.  Destroy  the  Guardian  base  and  youll  even 
be  a  hero!  The  treasures  of  the  Ancients  are  yours  . . . 
if  you've  got  what  it  takes. 
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developed  Logo.  Many  of  Logo's 
commands  give  directions  to  a  turtle 
on  the  computer  screen,  a  small  ob- 
ject whose  movements  define  and 
execute  a  graphics  program.  The  on- 
screen turtle  was  adapted  from  Pa- 
pert's  original  Logo,  which  attached 
the  computer  to  an  achial  robotic 
turtle  which  children  could  program 
to  draw  designs  on  paper.  Many  ele- 
mentary schools  now  teach  Logo  as 
the  first  programming  language  for 
young  children. 

New  approaches  to  program- 
ming languages  also  were  being  ex- 
plored. For  example,  Forth  is  an 
unusual  language  originally  devel- 
oped to  control  telescopes  in  obser- 
vatories. It's  roughly  halfway 
between  machine  language  and 
high-level  languages  like  BASIC, 
and  is  extensible — you  can  define 
new  functions  and  commands  which 
then  become  part  of  the  language.  In 
a  sense,  it's  a  language  that  lets  you 
create  your  own  personal  language. 
If  you  want,  you  can  build  up  the 
language  piece  by  piece,  until  you 
finally  define  a  single  word  that  runs 
the  whole  program. 

Although  there  are  hundreds  of 
programming  languages,  most  are 
not  available  for  personal  computers. 
Some  languages  were  designed  for 
large  mainframe  computers  and  can- 
not fit  into  small  amounts  of  memo- 
ry. Others  are  just  too  specialized  for 
general  use.  If  you'd  like  to  explore 
the  alternatives,  here  are  some  issues 
to  consider: 

•  What  types  of  programs  will 
you  be  writing? 

One  language  might  offer  lots  of 
commands  for  handling  files  and 
variables,  but  very  little  in  the  way  of 
graphics.  Another  might  be  strong  in 
mathematical  functions,  but  weak  in 
handling  strings  and  text.  Look  for  a 
language  that  is  suited  for  the  kind  of 
programs  you  want  to  write.  There 
are  always  books  and  manuals 
which  list  the  commands  available  in 
a  language  and  describe  what  they 
do. 

•  Hmv  much  control  do  you 
want  over  the  hardware  and  soft- 
ware? Is  the  language  high-level, 
low-level,  or  somewhere  in 
between? 

A  low-level  language  like  ma- 
chine language  puts  you  in  direct 
control  of  the  computer.  Individual 
instructions  do  ver)'  simple  things, 
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The  commands 

in  high-level 

languages  look  more 

like  words  in  a 

human  language,  so 

they're  easier 

to  learn. 


like  fetching  and  storing  numbers  in 
memory,  comparing  two  numbers, 
and  basic  addition  and  subtraction. 
To  multiply  two  numbers,  you  might 
need  several  instructions.  {However, 
on  the  newer  chips,  multiplication 
requires  only  a  single  instruction.) 

High-level  languages  take  you 
several  steps  away  from  machine 
language  and  the  hardware.  The 
commands  look  more  like  words  in  a 
human  language,  so  they're  easier  to 
learn.  Also,  individual  commands 
are  usually  broader,  performing  tasks 
which  might  require  dozens  of  com- 
mands in  machine  language.  But  you 
pay  a  price:  Direct  control  over  the 
finer  points  of  the  computer  may  be 
more  difficult,  and  the  finished  pro- 
grams run  more  slowly  and  often 
consume  more  memory.  Remember, 
the  only  language  the  computer  real- 
ly understands  is  machine  lan- 
guage— at  some  stage,  it  has  to 
translate  programs  written  in  anoth- 
er language  into  its  native  tongue. 

•  Haw  fast  is  the  language? 

Speed  is  important  in  some  pro- 
grams, A  certain  part  of  a  program 
may  take  1/20  second  to  execute  in 
one  language  and  1/2  second  in  an- 
other, not  a  noticeable  difference  if 
it's  used  once  or  twice.  But  if  it's 
executed  several  thousand  times,  the 
difference  could  become  significant. 

Machine  language  is  the  fastest, 
and  most  commercial  software  is 
written  in  machine  language.  (In  fact, 
most  high-level  languages  them- 
selves are  ivritten  in  machine  lan- 
guage.) Mid-level  languages  such  as 
Forth  and  C,  while  not  as  fast  as 
machine  language,  are  generally 
quicker  than  higher-level  languages. 


Because  the  faster  languages  are 
usually  low-level,  they  may  be  more 
difficult  to  learn  and  use.  High-level 
languages  are  fine  for  many  pro- 
grams, and  here's  where  you  must 
strike  a  balance:  Would  you  rather 
spend  five  hours  working  with  a 
low-level  language  to  write  a  pro- 
gram that  runs  in  one  minute,  or 
spend  one  hour  working  with  a  high- 
level  language  to  write  the  same  pro- 
gram that  runs  in  15  minutes?  If 
you're  going  to  run  the  program  ev- 
ery day,  you  might  choose  to  spend 
the  extra  time  writing  it  with  the 
faster  language.  But  for  an  infre- 
quently used  program,  you  might 
prefer  the  language  that's  easier  and 
slower. 

In  some  cases,  the  speed  of  a 
language  doesn't  matter.  If  a  printer 
seems  to  take  forever  to  print  reports 
or  mailing  labels,  rewriting  the  pro- 
gram with  a  faster  language  may  not 
help.  The  printer  is  probably  the  lim- 
iting factor  on  speed,  not  the 
language. 

•  What  are  the  system  require- 
ments? And  hoiu  much  free  memory 
for  programs  remains  after  the  lan- 
guage is  loaded  into  the  computer? 

You  may  find  languages  that 
require  a  certain  operating  system.  C, 
for  example,  was  originally  written 
for  the  Unix  operating  system,  al- 
though that  has  changed — other  ver- 
sions of  C  are  now  available.  On  a 
Commodore  64,  certain  languages 
work  only  with  the  CP/M  cartridge. 
And  some  languages  won't  work 
without  two  disk  drives. 

Check  the  memory  require- 
ments. You  may  have  to  install  addi- 
tional memory  boards  or  controller 
cards,  Even  if  you  have  the  mini- 
mum memory  specified  for  a  certain 
language,  you  may  be  left  with  very 
little  space  for  your  programs. 

•  What  programming  style  are 
you  most  comfortable  with?  Scien- 
tific and  structured?  Or  creative 
and  artistic? 

Some  people  write  programs 
methodically,  step  by  step.  They 
draw  a  flowchart  on  paper,  diagram- 
ming the  program  in  modules,  They 
fully  document  each  section,  describ- 
ing exactly  what  happens  when.  Not 
until  they  finish  the  preliminary' 
planning  and  structuring  do  they  en- 
ter the  program  into  the  computer.  In 
business,  the  structured  approach  is 
preferable.  If  a  programmer  quits  for 
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SUMMER  GAMES.® 

Want  some  great  play  action?  This 
award  winning  best  seller  brings  you 
eight  great  events,  including  Swimming, 
Diving,  TVack,  Gymnastics,  and  more 
Compete  against  world  records.  Or  get 
together  with  a  group  of  up  to  eight  for 
some  good  competitive  fun.  Realistic, 
graphics  and  action  will  challenge  you 
again  and  again  to  go  for  the  gold. 

SUMMER  GAMES  II ;" 

You  asked  us  for  more  great  events. 
Here  they  are.  Rowing,  TViple  Jump, 
Javelin,  High  Jump,  Fencing,  Cycling, 
Kayaking,  even  Equestrian.  Like 
SUMMER  GAJMES,  you  get  spine  tingl- 
ing action  and  challenge  for  one  to 
eight  players.  These  aren't  just  games. 
They're  the  games.  And  you're  the  star. 

WINTER  GAMES  ~ 

You've  got  to  see  the  graphics,  and  feel 
the  knot  in  your  stomach  as  your  bob- 
sled careens  along  the  walls  of  the  run 


to  know  why  people  are  wild  over 
WINTER  GAMES.  Seven  events  give 
you  a  variety  of  action— from  the 
endureunce  of  the  Biathlon  to  the 
timing  of  the  Ski  Jump,  and  more. 

What  an  you  waiting  for? 

Play  your  favorite  events  over  and 
over  Play  all  22.  Set  up  teams.  Chal- 
lenge your  friends.  These  great  action- 
strategy  games  are  sure  to  be  the  stars 
of  !/our  collection. 
At  your  local  Epyx  dealer. 
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ANNOUNCING  THE 
FAMILY  SOFTWARE  SPECTACULAR: 


BUY3,  GET  1  FREE. 


CHOOSE  FROM 
OVER  50  LEADING  TITLES. 

What  do  you  call  an  offer  that  brings  together,  for  the 
first  time  ever,  five  leading  brands  of  home  software? 

The  Family  Software  Spectacular! 

And  it's  your  opportunity  to  choose  a  free  software  pro- 
gram from  the  best  tides  on  the  market  today.  All  you  have  to 
do  is  buy  any  combination  of  three  titles  from  any  participat- 
ing brands  during  this  special  offer  period.  And  we'll  send 
you  another  one  of  your  choice -/ree.' 

It's  a  one-of-a-kind  value  your  family  shouldn't  miss. 

FISHER-PRICEf 
A  NAAJE  YOU  CAN  TRUST 

For  years  F^her-Price  has  been  known  for  helping  chil- 
dren develop  skills  as  they  play.  With  Fisher-Price™  Learning 
Software,  your  child  can  develop  skills  in  five  key  areas:  madi, 
language,  creativity,  basic  learning  and  computer  literacy. 

Your  child  will  love  developing  and  testmg  language 
skills  with  the  help  of  PETER  RABBIT  READING,  a  pro- 
gram that  uses  voice  to  teach  sound  and  letter  recopidon 
in  words. 

WINDHAM  classics:  CLASSIC 
NOVELS  COME  TO  LIFE. 

Pick  up  Windham  Classics,  graphic  interac- 
tive fiction  based  on  some  of  the  greatest  adventures 
of  all  time. 


They're  great  for  kids,  yet  fun  for  all  ages. 

Enjoy  "THE  WIZARD  OF  OZ." "  You  are  Dorothy, 
and  each  of  your  decisions  determines  your  adventure. 
There's  more  than  one  adventure  to  be  had  as  you  meet  old 
fiiends  and  new  in  the  land  of  Oz. 

WORK  BETTER  WITH 
BETTER  WORKING." 

Constantly  erasing  and  retyping?  Unsure  of  your  spell- 
ing? WORD  PROCESSOR  WITH  SPELLCHECKER  is 
exactly  what  you  need.  Th^  full  featured  word  processor 
includes  the  50,000  word  AMERICAN  HERITAGE 
DICTIONARY'"  spellchecker  which  detects  over  99%  of 
misspelled  words. 

The  fiitl  line  also  includes 
FILE&  REPORTand 
SPREADSHEET-titles 
that  represent  the  best 
values  on  the  market 
today. 


i£k^ 


SPINNAKERf  THE  LEADER  IN 
FAMILY  LEARNING  SOFTWARE. 

From  pre-school  counting  to  high-school  compositions, 
Spinnaker  offers  the  high  quality  educational  programs 
you  have  come  to  expect.  For  example,  there's  the  HOME- 
WORK HELPER™  series  which  provides  step-by-step 
methods  for  improving  writing  and  math  skills  and  helps 
kids  tackle  otherwise  troublesome  school  assignments. 

TELARIUM." 
INTERACTIVE  FICTION  AT  ITS  BEST 

Here's  graphic  interactive  fiction  by  famous  writers  of 
science  fiction,  fantasy,  and  mystery  like  Ray  Bradbury,  Arthur 


C.  Clarke  and  Erie  Stanley  Gardner.  Each  story  unfolds  with 
you  in  the  center  of  the  action  -  and  completely  in  control .  In 
PERRY  MASON:  THE  CASE  OF  THE  MANDARIN 
MURDER^  you  are  the  world  famous  criminal  lawyer.  Chal- 
lenge the  evidence.  Cross-examine  the  wimess .  Only  you 
can  prove  your  client's  innocence .  And  time  is  running  out. 

A  SOFTWARE  OFFER  FOR  ALL  AGES. 

Any  software  offer  including  something  for  everyone  in 
the  family  is  certainly  fantastic.  But  combine  that  vrith  a  free 
product  offer  and  what  you  have  is  something  spectacular. 
Look  for  the  specially  marked  boxes  of  The  Family  Software 
Spectacular  at  your  retailer. 
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TURN  PAGE  FOR  MORE  INFORMATION  ON  THE  FAMILY 

SOFTWARE  SPECTACULAR. ^ 
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Spinnaker  SofmateCorp.  F-'l  SI  JKR-PR  ICE  isa  traJcmarkof  The  OualterOali  Qimpanv  and  is  mu\  iradrr  lirf  nqf  'gHMBuiri  A<;>:Tr<;  ;■ 
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[SEE  PREVIOUS  PAGE] 

HERE'S  HOW  YOUR 

FAMILY  CAN 

PARTICIPATE  IN 

REMEMBER,  TO  RECEIVE  A  FREE 
PRODUCT  YOU  MUST  PURCHASE 
ANY  THREE  TITLES  FROM  THE  PAR- 
TICIPATING BRANDS  (IN  ANY  COMBI- 
NATION) AND  MAIL  YOUR  ENTRY  NO 
LATER  THAN  JANUARY  31, 1987, 

1 .  Stan  by  saving  the  receipt(s)  from  your  soft- 
ware program  purchases,  (it  is  not  necessar>' 
for  software  purchases  to  appear  on  one 
receipt.  Photocopies  of  the  receip!(s)  are  ac- 
cepted. Receipts  must  be  dated  BETWEEN 
JULY  1, 1985,  AND  JANUARY  31, 1987.) 

2.  Cut  the  proof-of-pu  rchase  tab  from  each  of 
the  three  user  manuals  that  come  with  the 
programs.  (Photocopies  not  accepted.) 

3.  Attach  the  purchase  receipt(s)  and  the  three 
original  proof-of-purchasc  tabs  to  one  sepa- 
rate sheet  of  paper. 

4.  Fill  in  the  form  below  and  place  the  com- 
pleted form  in  an  envelope  with: 

a.  A  sheet  of  paper  with  three  original 
proof-of-purchase  tabs  and  your 
purchase  receipt(s) 

b.  A  check  or  money  order  for  $3.50  to 
cover  postage  and  handling.  (Canada 
residents  please  send  55 .00  for  postage 
and  handling.) 

Make  check  payable  to  THE  FAM I LY 

SOFTWARE  SPECTACULAR  and  mail 

envelope  to: 

THE  FAMILY  SOFTWARE 

SPECTACULAR 

RO.  Box  1327,  Cambridge,  MA  02238 

^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  ^^  IBI 

ORDER FORM 

To  receive  your  free  program ,  this  form  must  be 
filled  out  completely.  Please  print. 

Free  Product  Chosen: 

Title/Brand 

Computer/Model 


MAKESURETHE  PRODUCT  YOU  CHOOSE  tS 
AVAILABLE  ON  THE  COMPUTER  SYSTEM 
YOU  HAVE  SELECTED. 

Name 


Phone  (_ 
Address  . 
Ci[\- 


.State- 


.Zip. 


TITLES  PURCHASED 


1.- 
2.. 

3.- 


BRANDS 


DATE OF PURCHASE 


Allow6-8weeksfordeliveryofyourfree  software  program. 
Note:  .All  feceipisand  envelope  postmark  musl  bedaied 
prior  10  januar)'  31 ,  1987.  Offer  good  in  ilie  US  and  Canada 
only.  Void  where  [axed,  restricted  or  prohibited  by  law. 


some  reason,  the  company  needs  to 
know  how  the  programs  are  put 
together. 

Others  prefer  a  looser,  more  im- 
provisational  style.  They  type  a  few 
lines,  run  the  program,  make  some 
changes,  test  it  again,  and  so  on. 
Then  they  write  and  test  a  new  sec- 
tion. The  programs  are  not  necessar- 
ily unstructured  or  illogical;  it's  just 
that  the  program  ideas  are  not  writ- 
ten down.  The  program  may  change 
as  it  develops,  evolving  into  some- 
thing quite  (Afferent  from  the  original 
plan. 

There  are  advantages  and  disad- 
vantages to  each  style.  Planning 
ahead  takes  a  lot  of  time  up  front, 
before  a  single  line  is  entered.  And  it 
locks  you  into  a  certain  structure.  But 
the  programs  are  generally  easy  to 
follow  and  debug.  When  teams  of 
programmers  work  together,  they 
generally  use  the  planned-out 
approach. 

More  casual  programmers  who 
work  interactively  with  the  computer 
can  see  immediate  results,  positive 
feedback  that  the  program  is  pro- 
gressing. There's  also  an  element  of 
creahve  experimentation:  "I'll  tr)'  this 
and  if  it  doesn't  work,  I'll  try  some- 
thing else."  Less  time  is  spent  on 
planning,  and  more  time  on  actual 
programming.  The  casual  approach 
can  be  carried  too  far,  however.  If  the 
program  is  written  sloppily,  even  its 
author  might  not  understand  how  it 
works  if  modifications  are  required  a 
few  months  later. 

•  //  you  need  to  write  fast  pro- 
grams, but  don't  want  to  use  ma- 
chine language,  will  a  compiler  do 
the  job? 

There  are  two  general  ways  in 
which  commands  in  higher-level 
languages  are  translated  into  the  ma- 
chine language  that  the  computer 
can  understand. 

An  interpreter  language  trans- 
lates the  coimnands  as  the  program 
runs,  on  the  fly.  The  B ASICs  built 
into  personal  computers  are 
interpreters. 

A  compiler,  on  the  other  hand, 
translates  all  the  high-level  com- 
mands into  machine  language  before 
running  the  program.  This  compila- 
tion step  may  take  several  minutes, 
but  when  it's  done,  the  finished  pro- 
gram usually  runs  much  faster  than 
an  interpreted  program  (though  not 
as  fast  as  programs  written  directiy  in 


machine  language). 

Some  languages  (including 
BASIC)  are  available  as  both  inter- 
preters and  compilers.  There  are 
tradeoffs  either  way.  Compiled  pro- 
grams run  faster  than  interpreted 
programs,  but  usually  require  much 
more  memory — sometimes  too 
much  for  small  computers.  Interpret- 
ers are  more  interactive,  because  you 
can  type  in  a  few  statements,  quickly 
try  them  out,  and  continue.  A  com- 
piler might  take  ten  minutes  to  com- 
pile a  program.  The  choice  between 
an  interpreter  and  a  compiler  de- 
pends a  great  deal  on  your  personal 
programming  style,  the  amount  of 
memory  in  your  computer,  and  your 
need  for  speed  in  the  finished 
product. 

Ultimately,  the  language  you 
choose  for  communicating 
with  your  computer  de- 
pends on  a  great  number  of  things. 
After  reviewing  all  the  options,  you 
may  find  it  desirable  to  learn  more 
than  one  language,  especially  if  you 
plan  to  write  different  kinds  of 
programs. 

During  recent  years,  computer 
scientists,  programmers,  and  lin- 
guists have  been  working  in  the 
field  of  artificial  intelligence  to  de- 
velop methods  for  computers  to 
more  closely  mimic  human 
thought.  An  important  part  of  this 
work  has  been  research  into  so- 
called  natural  languages — those 
languages  which  humans  use.  We 
may  see  a  day  when  the  perfect 
natural  language  interface  is  devel- 
oped, and  we  need  only  tell  the 
computer,  in  our  own  tongue,  what 
we  want  it  to  do.  The  latest  genera- 
tion of  personal  computers — such 
as  the  Apple  Macintosh,  Atari 
520ST,  and  Commodore  Amiga — 
represent  another  small  step  in  that 
direction. 

For  now,  however,  control 
over  a  computer  means  meeting  the 
machine  at  least  halfway — learning 
a  language  which  gives  the  com- 
puter something  intelligible  to 
work  with.  No  longer  must  people 
learn  to  program  to  use  a  computer 
enjoyably  and  productively.  But  for 
thousands  of  computer  owners, 
learning  to  communicate  with  their 
machines  in  a  common  language 
opens  up  the  world  of  computing  in 
ways  which  are  better  experienced 
than  explained. 
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BATTERI 


3^  INCLUDED 


iTem-solvIng  spreadsheet  program  with  built-in 
templates  for  die  most-^ieeded  home  and  business  applications 
-  including  income  tax,  budgets  and  many  more. 

professional-qualitY  graphics/charting  and 
statistical  analysis  package  turns  your  data  Into  superb 
visuals. 

professional  sales  management  and  reporting 
program  saves  you  valuable  hours. 

easy  to  follow  tutorial  program  typing 
teacher. 


:  learn  about  the  bard's  three 
most-taught  plays -and  have  funi  (Other  authors 
ontheway.l 


e  database 
managers.  IBprog  rams 
including  Home  Inventory, 
Recipes,  CheckBook, 
Address  Book,  Audio/ 
Video  Catalogue  and  more] 


Richmond  Hill,  Ontario 
LtB  IBS  CANADA 
MI6/88J-9941 
T^lex:  06-21 -3290 


RfiXTERXESJ^  INCLUDED 


'nergized  Software  company! 


WRITE  TO  US  FOR  FULL  COLOUR  CATALOGUE  of  otir  products  for  CO  MMODORE.  ATARI.  APPl  E  and  IBM  SYSTEMS. 

FOR  TECHNICAL  SUPPORT  OR  PRODUCT  INFORMATION  PLEASE  PHONE  (4)6|  881-9816. 

SOME  PROGRAMS  ARE  NOT  AVAILAB  LE  FOR  ALL  SYSTE^flS. 


m  North,  Suits  P 

Irving,  California 

USA  32714 

1416)881-9816 

Tfe/ex;  509-139 


Commodore,  Apple.  Atari  and  IBM  PC  are  registered  trademarlis  of  Apple  Computers,  Inc..  Atsri,  Inc.,  Commodore  Business  Machines,  inc.,  and  Inlernational  Business  Machines,  respectively 


^    ■COmPUTER 

*"  '  '  Centers  of  America  Malt  Order  Ltd. 

Holiday  Gift 
Giving  at  Distributor 

LOW,  LOW  PRiCESl 

Computers  •  Printers  •  Monitors  •  Compact  Discs  •  Roliots  •  Modems 

Computer  Centers  of  America  has  it  all... and  much,  much 

more  at  distributor's  iow,  low  discount  prices!  Why  pay  more 

when  you  can  buy  &  save!  Check  out  these  prices! 

WE'RE  PROUD  OF  OUR  PRICES  ■  SATiSFACTION  GUARANTEED 

Check.  Money  Order,  MC  or  Visa  accepled  /  No  addifional  charge  for  MasterCard  and  Visa /Call  lorshippingandhsndlinginlormafion/NYS  residents 
add  applicable  sales  lax  /  Prices  and  availability  are  subject  to  change  withaut  notice  /  All  tactorv  fresh  merchandise  wilh  manufacturer's  warranty. 
Dealers  Welcome.  Call  lor  rec«nl  price  reductions  and  new  rebate  infDrmalion.  Plus  shipping  and  handling.  No  returns  without  return 

aulhariz^ion  number, 

I IN  NEW  YORK  STATE  CALL  TOLL  FRSE 

1-800-631-1003    1-800-221-2760    1-800-548-0009 

OR  5f 6-349-1020 


Or  Write:  Computer  Centers  of  America,  81  Terminal  Drive,  Plalnview,  NY  11803 


f S  commodore 

PERSONAL  COMPUTERS 

NEW!  Commodore  128  Personal 

Compulef  System Call  For  Price 

1101  Leiler  Quality  Printer 274.95 

1702  Monitor 174.95 

Commodore  64  Computer  144.95 

1541  Disc  Drive 169.95 

PRINTERS  ^^ 

Cardca  LQ/3  Daisy  Wheel  Printer ' 
Letter  Quality  Printer  with  Built-in  ' 
Interface.  Free  Cartico  Mail  Now, 

Spell  Now.  WritH  Now  included 199.95 

Gemini  SG  10 209.95 

Gemini  SG  15 359.95 

Gemini  SG  10C  with  Built-in 

Commodofe  Interface ■. .  .Call 

Wef/,' Gemini  SR.  101 15 Call 

A/etv.' Gemini  SB  10 Call 

Silver  Reed  400 „, 249.95 

Panasonic  1091    ._  _ Call 

MONITORS 

Sharp  13"  Color  Composite 

Monitor  13M31U 144.95 

BMC  Color       149.95 

Pan  1300  RGB  &  Camp - .  -     ,289.95 

Sharp  Green    64.95 

Sharp  AmDer       69.95 

DISC  DRIVES 

CCA  Exclusive  -  New  from  Commodom! 
Enhancer  2000  Disc  Drive 

Faster  than  Commodore  1541.  100% 
Commodore  Compatible,  2  Yr.  Extended 

Warranty 164.95 

MSD  Super  Disc  II 399.95 

Single  Drive 179.95 

IndHS  GT  Disc  Drive  249.95 

TOMY  ROBOTS 

Unleash  Ihe  Power  of  Your  Computer 
Directly  Into  the  Tom/  Robots 

Includes:  •Computer  Iriierface,  and 

Disk  •Create,  Edit,  Save.  Retrieve 

and  Mix  Your  Programs  'For  Tomy  Call 

Omnibot.  Omnibot  2000  and  Verbot         for 

All  on  the  Same  Disk Price 

Interfaces 

Teles^  TurbDprint  GT 

Priiits3|nhanced  Graphics 59.95 

Caidc 'G-i- Call 

Micravvorld  _ Call 


Discs 

20  Memorex  SS/DD  w/Slorage  Case  . 
■Alier  Reb,ite 

Diskettes 

Nashua _ 

Scotch  

Maxell 

Memorex      

BASF 

JVIodems 

Mighty  Mo 

Commodore  1660 

Total  Telecommunications 

Wica  Joysticl(s 

The  Boss  

The  Bat 

3-Way 


HOLIDAY  SOFTWARE 
SPECIALS  AT 
UNREAL  PRICES! 

Software  Special  §  1 

Cm.  commodore 

$888 

Simon's  Basic  or 
Commodore's  Programmer's 
Reference  Guide 

Software  Special  If  2 
lACTlVlSIONl 

$999 

Decatiilon  Star  League  Baseball 

PrKall  I  or  II  On  Field  Football 

Zone  Ranger  On  Court  Tennis 

Space  Shuttle  H.E.R.O. 
Master  of  the  Lamp 

Software  Special  If  3 

IActivisiOnI 

iHWtCOMrUTtt  St>T\VMiE| 

$i488 


Ghostbuslers 
Weiv.'  Fast  Trax 
New!  Pet  Person 
New!  Hacker 


New!  Alcazar 
New!  Countdown  to 
Shutdown 


Software  Special  §  4 

$1999 


Faslload 
Winlergames 
Hal  Wheels 

Breahdance 

Jet  Combat  Simulator 


G.I.  Joe 

Summer  GameS  I  or  II 

Barbie 

Hot  Wheels 

Baseball 


Software  Special  H  5 


JUMP  MAN 

288 


Penguin  Software 

Quest        

Transylvania 

Sword  0I  Kadash 

Xyphus  

Graphics  Magician  Picture  Painter .     . 

Professional  Software 

Fleet  System  2  -  Word  Processor 
with  built-in  70,000  Word  Spell  Check . 
CBS  Software 

Or.  Seuss  fix  uji  The  Mix-up  Puzzler . , 

Sesame  Street  Letter-Go-Round 

Big  Bird's  Fun  House 

The  Sea  Voyager       

Weather  Tamers 

Movie  Musical  Madness  


Success  w/Decimais  (AddySubt)  DT 
Success  w/Decimals  (Mult/Div)  DT 
Success  w/Fractions  (Adci/Subl)  D-T  , 
Success  w/Fractions  (Mult/Div)  DT 

Ducl<s  Ahoy 

Ernie's  Magic  Shapes 

Murder  by  the  Dozen 

Peanut  Butter  Panic ' 

Access  Software 

Neutral  Zone  DT      

Sprilemaster  DT        

Beachhead  D-T 

Master  ComposerO . .  

Commodore  Software 

Assembler  D _ 

Easy  Finance  I.  II.  ill.  IV-D 

Easy  Calc-D 

Easy  Script-D 

EasySpDll-D  

Logo-D  

The  Manager-D  

General  Ledger 

Accts-  Rec.-D 

Accts.  Pay.-D 

Magic  Desk-D , 

Silent  Butler 

Sky  Travel 


SPECIAL  HOLIDAY, 
HARDWARE 
PACKAGES  FOR 
COMMODORE  USERS 

Commodore  54  Commodore  64 

Commodore  1541  Commodore  1541 

Disc  Drive  OR     Disc  Drive 
Commodore  803  Color  Monitor 

rcE  44995 


COMPACT  DISCS 

CCA  Now  Has  An  Exclusive  Line 

of  Compact  Disc  Players 

ADC 

Emerson 

Sheraiooit  Priced  From 

Magnavox  mO  QC 

and  Many  More  Iv".if3 

We  Have  a  Huge  Selection  of 
Compact  Discs  -  CBS,  WEA, 
Delos,  Telarc,  Detron,  Second 
Hearing,  IVIobile  Fidelity  and 
Much  More! 
Call  For  Our  Low,  Low  Prices 


m 


QCDmPLJTEfi 

^^■"■^     *>  Centers  of  America 
fWail  Order  Ltd. 

Call  Toll  Free: 

1-800-631-1003 

1-800-221-2760,nNvs, 

1-800-548-0009 


PUZZLER 


,,-..-.Mork  Tuttle.  Submissions  Reviewer 
Kevin  Mykytyn,  Editorial  Programmer 


Here's  a  game  that  tests  your  skill  in 
pattern-matching  and  visualization. 
It  runs  on  the  Commodore  64;  unex- 
panded  VlC-20;  Plns/4  and  16;  IBM 
PC  with  color /graphics  adapter  and 
BASICA;  PCjr  with  Cartridge  BASIC; 
Apple  Il-series  computers;  TI-99/4A 
with  Extended  BASIC;  and  Atari 
400/800,  XL,  and  XE  computers  with 
at  least  16K  RAM  for  tape  or  24K  for 
disk.  The  Commodore  64  and  Atari 
versions  also  require  a  joystick. 


How  good  are  you  at  recognizing 
patterns?  Many  intelligence  tests 
measure  this  important  conceptual 
skill.  "Puzzler"  challenges  your 
ability  to  find  matching  patterns  in 
a  background  of  similar  shapes.  It 
displays  two  puzzle  grids  com- 
posed of  multicolored  blocks  (see 
photos).  Both  grids  contain  exactly 
the  same  blocks,  but  those  in  the 
left  grid  have  been  scrambled.  Your 
job  is  to  rearrange  the  blocks  in  the 
left  puzzle  grid  until  they  match 
those  on  the  right.  You  must  solve 
the  puzzle  before  time  runs  out. 

Because  all  versions  of  Puzzler 
are  similar,  we've  printed  general 
game  instructions  followed  by  spe- 
cific notes  for  each  computer.  Read 
the  general  instructions  as  well  as 
the  section  for  your  machine,  then 
type  in  the  program  listed  for  your 
computer.  Don't  forget  to  save  a 
copy  of  the  game  before  you  run  it. 
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Puzzle  Building 

Puzzler  begins  by  letting  you 
choose  the  size  of  the  puzzle  grid. 
Enter  values  for  the  number  of  rows 
and  columns  in  the  grid.  The  maxi- 
mum puzzle  size  differs  among  the 
various  versions,  Of  course,  larger 
puzzles  are  more  difficult  to  solve 
than  small  ones.  Next,  enter  the 
number  of  colors  the  puzzle  will 
use.  Two-color  puzzles  are  the  easi- 
est. The  maximum  number  of  col- 
ors depends  on  which  version 
you're  playing.  The  more  colors 
you  choose,  the  harder  your  job 
becomes. 

Puzzler  then  spends  a  short 
hme  building  the  two  grids.  Since 
the  blocks  are  arranged  at  random, 
each  new  puzzle  is  different  from 
the  last.  While  you  try  to  solve  the 
puzzle,  the  computer  keeps  track  of 
the  time  and  alerts  you  when  the 
puzzle  is  solved  or  time  runs  out. 
The  time  limit  depends  on  the  size 
of  the  puzzle. 

Puzzler  allows  three  different 
operations.  You  can  move  within 
the  puzzle  grid  from  one  block  to 
another,  pick  up  a  block  and  move 
it  to  a  new  position,  or  rotate  a 
block  in  its  current  position.  Use  the 
cursor  keys  (or  joystick  in  some  ver- 
sions) to  move  around  in  the  grid. 
Your  position  is  indicated  by  a  col- 
ored cursor  (or  index  arrows  in 
some  versions).  To  pick  up  a  block, 
press  RETURN  (or  the  joystick  but- 


ton) once.  The  cursor  or  arrow 
changes  color  to  show  that  you're 
carrying  the  piece.  Then  move  to 
the  position  where  you  want  to 
place  the  block,  and  press  RETURN 
(or  the  button)  once.  The  block  in 
the  current  position  trades  posi- 
tions with  the  block  you're 
carrying. 

Each  block  consists  of  four  col- 
ored squares.  To  rotate  a  block  in  its 
current  position,  press  RETURN  (or 
the  joystick  button)  twice.  The 
block  rotates  90  degrees.  You  may 
rotate  a  block  as  many  times  as  you 
want. 

Continue  moving  and  rotating 
blocks  until  both  puzzle  grids 
match.  Every  block  must  match  in 
color  and  be  turned  in  the  right 
direction. 

Commodore  64  Version 

Plug  a  joystick  into  port  2.  The  puz- 
zle may  contain  as  many  as  seven 
rows  and  columns,  and  up  to  16 
different  colors.  The  box-shaped 
cursor  shows  your  position  on  the 
puzzle  grid.  Press  the  joystick  but- 
ton twice  without  moving  the  joy- 
stick to  rotate  the  block  under  the 
cursor.  Press  the  button  once  to 
pick  up  the  piece  under  the  cursor: 
The  cursor  changes  color  to  show 
that  you're  carrying  the  block.  Now 
you  may  move  to  any  other  place  in 
the  grid.  When  you  find  the  spot 


A 


E  R 


I  S  K 
FLIGHT 
S  I  M  U  L  A  T 


SubLOCic  Scenery  Disks  expand  the  potential  Hying  environ" 
ment  of  Ftlght  Simulator  II  and  Microsoft  Flight  simulator. 

Twelve  separate  Scenerv  Disks  coverthe  entire  continental 
united  states.  Each  disk  covers  a  geographical  region  of 
the  country,  and  Includes  the  major  airports,  radlo-nav 
aids,  cities,  highways,  rivers,  and  lakes  located  in  that  region. 
Enough  detail  is  available  on  each  disk  for  either  visual  or 
Instrument  cross-country  navigation. 

A  STAR  Scenery  Disk  (available  4th  quarter  1985)  covers  a 
smaller  area  wflth  a  relatively  dense  amount  of  scenery. 
STAR  scenery  Disks  are  primarily  intended  for  visual  flight 
sight-seeing.  They  include  buildings  and  landmarks,  as  well 
as  detailed  renditions  of  all  major  airports  in  the  area. 


Trtdlvldual  Scenery  Disk  price:  Si9.95 
western  U.S.  (Disks  1-6):  $99.95 

-coming  soon - 
Eastern  U.S.  (Disks  7-12):  $99.95 

See  Your  Dealer... 

or  write  or  call  for  more  information.  For  direct  orders 
please  specify  which  disk  or  disk-set  you  want.  Enclose  the 
correct  amount  plus  S2.00  for  shipping  (Se.OOfortheslx-disk 
set)  and  specify  UPS  orfirst  class  mall  delivery.  Visa,  Master- 
Card, American  Express,  and  Diners  Club  cards  accepted. 

commodore  64  Is  a  trademarK  of  Commodore  Electronics  Ltd. 

IBM  Is  a  registered  trademarx  of  IntemaHonal  Business  Machines  Corp. 

For  the  Commodore  64™  and  IBM  PC® 


saDfeUOGIC 

Corporation 

7T3  Edgebrook  Drive 
Champaign  IL 61620 

(217)  359-8462  Telei:  206995 


Order  Line:  (800)637-4983 

(except  ri  IBince,  Alaska,  and  Hawaii) 


you  want,  press  the  button  again  to 
set  down  the  block.  It  changes 
places  with  the  block  in  that 
position. 

VIC-20  Version 

VIC-20  Puzzler  is  played  with  the 
cursor  keys.  The  maximum  puzzle 
size  is  four  columns  by  six  rows, 
with  up  to  six  colors.  Your  position 
in  the  grid  is  shown  by  two  index 
arrows,  normally  colored  black, 
Press  RETURN  twice  to  rotate  a 
block.  Press  RETURN  once  to  pick 
up  a  block,  then  move  it  with  the 
cursor  keys  and  press  RETURN  to 
put  it  down.  The  arrows  turn  blue 
when  RETURN  is  pressed  once, 
and  red  when  it  is  pressed  a  second 
time. 

Plus/4  And  1 6  Version 

Puzzler  for  the  Commodore  Plus/4 
and  16  permits  up  to  seven  rows 
and  columns  and  seven  different 
colors.  It  is  played  exactly  like  the 
VIC-20  version. 

Atari  Version 

Plug  a  joystick  into  port  1.  Atari 
Puzzler  lets  you  build  puzzles  with 
as  many  as  eight  rows  and  columns 
and  up  to  four  different  colors.  Ma- 
nipulate the  joystick  as  explained  in 
the  Commodore  64  instructions. 

IBM  Version 

IBM  Puzzler  allows  grids  as  large  as 
seven  rows  and  columns  with  up  to 
seven  different  colors.  Index  arrows 
indicate  your  position  in  the  grid,  as 
explained  in  the  VIC-20  instruc- 
tions. Use  the  cursor  keys  to  move 
within  the  grid.  Press  Enter  to  move 
or  rotate  a  block. 

TI-99/4A  Version 

You  have  the  option  of  playing 
with  either  a  joystick  or  keyboard 
controls.  Puzzles  can  be  as  large  as 
six  rows  and  six  columns  with  as 
many  as  six  different  colors.  The 
box-shaped  cursor  shows  your  po- 
sition in  the  puzzle  grid  and 
.changes  colors  to  indicate  when 
you're  carrying  a  block.  When 
using  the  keyboard,  make  sure  the 
Alpha  Lock  key  is  down.  Move  the 
cursor  with  the  arrow  keys  and 
press  Enter  to  rotate  or  move  a 
block. 

Apple  Version 

Puzzler  runs  on  any  Apple  Il-series 
computer  with  either  DOS  3.3  or 
ProDOS.   Press   the  space  bar  to 
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move  or  rotate  a  block,  and  press  I, 

I,  K,  and  L  to  move  up,  left,  down, 
and  right,  respectively.  Your  posi- 
tion in  the  grid  is  indicated  by  small 
white  highlights  in  the  corners  of 
the  block. 


Program  T :  Commodore  64 
Puzzler 

Version  by  John  Krause,  Assistant 
Technical  Editor 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTErs  Guide  to  Typing  In 
Programs"  published  bimonftiiy  in  computei. 

100  GOSUB460  :rem  171 

110  IFT<TI/60THENPOKE53269,0:G 

OTO790  :rem  185 

120  A=INT(T-Tl/60+.5) ;B=INT{A/ 

60)  :rera  89 

130  PRINT" (HOME) [3  DOWN) "SPC { 1 

7)B" (left) :";      : rem  226 
140  Z5=STR5(A-60*B) :Z9=RIGHTS( 

Z?,LEN(ZS)-1):IFLEH(Z5)=1T 

HENPRINT"0" ;       : rem  236 
150  PRINTZ5  :rem  161 

160  A=N0TPEEK( 56  320)  : rem  124 
170  R=R+SGN( (AAND2)-(AAND1)) 

: rem  55 
180  C=C+SGN( {AAND8)-(AAND4) ) 

:rem  3  5 
190  IFR<0THENR=0  : rem  213 
200  IFR>=R3THENR=R3-1  : rem  20 
210  IFC<0THENC=0  : rem  176 
220  IFC>=C3THENC=C3-1  : rem  218 
230  P0KE53248,CS+16*Ct POKE5324 

9,RS+16*R  :rera  218 

240  IF(AAND16)=0THEN110:rera  31 
250  IFF=0THEHF=1:POKE53287, 14: 

RR=R:CC=C:WAIT56320, 16:G0T 

0110  :rem  115 

260  F=0JIFRR=RA1IDCC=CTHENGOSUB 

3O0:GOTO280        : rem  111 
270  GQSUB330  : rem  175 

280  POKE53287, 15:WAIT56320,  16: 

IFA? <>a?THEN110     :rem  53 
290  GOTO800  :rem  108 

300  B=C1+80*R+C+C+41:GOSUB420 

: rem  81 
310  POKEB,PEEK(A) :P0KEB+1,PEEK 

(A+1)  :rem  46 

320  POKEB+40,PEEK(A+tJC>  :POKEB  + 

41 , PEEK ( A+NC+1 ) : RETURN 

: rem  132 
330  GOSUB360:B=C1+80*R+2*C+41: 

GOSUB310  :rem  147 

340  B=C1+80*RR+2*CC+41:A=AA:GQ 

TO310  : rem  201 

350  REM  ***  MOVE  :rem  49 
360  AA=SS+2*NC*RR+2*CC:A3SS+2* 

NC*R+C+C  :rem  191 

370  D=PEEK(A)!POKEA, PEEK(AA):P 

OKEAA,D  :rem  251 

380  D=PEEK(A+1) :P0KEA+1,PEEK(A 

A+1) :P0KEAA+1,D    : rem  108 
390  D=PEEK(A+NC) :P0KEA+NC, PEEK 

( AA+NC ) : POKEAA+NC,  D 

: rem  2  37 
400  D=PEEK(A+NC+1):P0KEA+NC+1, 

PEEK(AA+NC+1 ) :P0K£AA+NC+1, 

DjRETURN  :rem  111 

410  REM  ***  ROTATE  : rem  198 
420  A=SS+2*NC*R+C+C  : rem  42 
430  D=PEEK(A) !P0KEA,PEEK(A+KC) 

rrein  24 
440  P0KEA+NC,PEEK(A+NC+1) 

:rem  191 
450  POKEA+NC+1, PEEK ( A+1) :P0KEA 


+1,D: RETURN        trem  240 
460  POKE53269,a:A?="":POKE5328 

0,6!POKS53281,6    :rem  233 
470  PRINT" {CLR)"CHR5(14)SPC(16 

)"(2  DOWN) [WHT} PUZZLER" : PR 

INTSPC(16)"E7  t1"  :rem  153 
480  FORT=54272TO54295:POKET,0: 

NEXT:POKE54296, 15   :rem  91 
490  INPUT" (HOME) (7  DOWNlUUMBER 
OF  ROWS  (2-7)";R3:rem  203 
500  IFR3<2ORR3>7THEU490 

:rem  126 
510  INPUT" (HOME) (10  DOWNJNUMBE 

R  OF  COLUMNS  (2-7) "rC3 

:rem  190 
520  IFC3<2ORC3>7THEN510:rem  91 
530  INPUT" [HOME) (13  DOWN)NUMaE 

R  OF  COLORS  (2-14)", -CO 

:rem  238 
540  IFCO<2ORCO>14THEN530 

:rem  197 
550  PRINT" (2  DOWN J  PLEASE  WAIT 

(SPACE) ..."         :rem  134 
560  Sl=1473-40*R3-C3!Cl=Sl+542 

72:S2=S1+20:C2=C1+20:NR=2* 

R3:NC=2*C3  : rem  120 

570  F0RA=1T0NR*NC;A5=A5+CHR5(R 

ND(1)*C0) :NEXT:B?=A? 

:rem  203 
580  A=256*PEEK(46)+PEEK(45) 

:rem  204 
590  SS=256*PEEK(A+4)+PEEK(A+3) 

trem  158 
600  FORR=0TOR3-1:FORC=0TOC3-1 : 

B=1NTCRND(1)*4)    :rem  195 
610  IFBTHENGOSUB420:B=Q-1:GQTO 

610  :rem  15 

620  NEXT: NEXT  : rem  80 

630  FORil=0TOR3-l:FORC-0TOC3-l 

:rem  13 
640  RR=INT(RND(1)*R3) :CC=INT(R 

HD(1)*C3) :GOSUB 360: NEXT :NE 

XT  :rem  80 

650  PRINT" (CLR) "SPC{ 17 ) " (DOWN) 

PUZZLER  :rem  141 

660  FORA=1TONR:FORB=1TONC:POKE 

C1+40*A+B,PEEK{SS+E) 

:rem  113 
670  P0KESl+4a*A+B, 160tE=E+l:NE 

XT: NEXT  s rem  201 

680  FORA=1TONR:FORB=1TONC:POKE 

C2+40*A+B,ASC(MID?(B?,G+1) 

)  :rem  153 

690  POKES2+40*A+B, 160:G»G+1:NE 

XT: NEXT  : rem  208 

700  POKE2040, 14:POKE53287, 15:P 

OKE53277, 1 : POKE 532 71, 1 

: rem  183 
710  FOSA=896T0924:READB:POKEA, 

B:HEXT  : rem  15 

720  FORA=925TO958:POKEA,0:NEXT 

:rem  102 
730  RS=144-4*NR:CS=102-4*NC:R= 

0:0=0  :rem  22  3 

740  T=NR*NC*3:POKE53269, 1:TIS= 

"000000" :RETURN    :rem  105 
750  DATA255, 192,0,128,64,0, 128 

,64,0  :rem  232 

760  DATA128, 64, 0,128, 64,0, 128, 

64,0  :rem  182 

770  DATA12a, 64,0, 128,64,0,128, 

64,0  :rem  183 

780  DATA255,192         : rem  29 
790  Zl=50:Z2=i0:Z3=-2:GOSUB830 

: PRINT" (HOME) ( DOWN) "SPC( 15 

) " (YELITIME'S  UP":GOTO820 
: rem  114 
800  Z1=10!Z2=50:Z3=2:GOSUB830 

:rem  180 
810  PRINT" (HOME) (DOWN] "SPC(13) 

"(YELIYQU  SOLVED  ITI" 

:rem  19 


Photo  by:  Bobbi 
Grenada,  California 


Give  yourl54r 

Simply  plug  the  STARDOS  ROM  Chip  into  the  drive 
unit  and  insert  the  STARDOS  cartridge.  That's  all  you 
need  to  do  to  complete  a  transplant  procedure  that 
will  give  your  Disk  Drive  and  Computer  higher 
intelligence. 

Other  Quick  Loaders  and  Fast  Loaders  try  to 
'Patch'  the  DOS  of  the  Disk  Drive.  This  does  not 
significantly  speed  up  much  of  today's  Software  and 
sometimes  it  fails  to  load  altogether. 

But,  STARDOS  electronically  replaces  the  entire 
DOS  and  KERNAL.  This  means  STARDOS  will  speed- 
up finding  records  in  your  Database,  any  changes  you 
wish  to  make  to  your  Spreadsheet  and  playing  your 
favorite  adventure  or  other  Disk  Intensive  work  with 
your  C-64*. 

The  STARDOS  transplant  offers: 

Speed for  'All  Types'  of  Disk  Access  at  an 

incredible  6007o-WOO%  faster! 
Reliability end  overheating  and"SAVE  @0:" 

woes! 
Convenience.,  with  single  l<ey  load,  SAVE,  and 

Directory  Etc.  Built  in  File  and  Disk 

Copiers! 
Power full  Word  Processor,  M.L.  Monitor  and 

Sector  Editor,  Screen  Dumps  to  Printer 

and  lots  more! 


Trademark  of  Commodore  Business  Machines 


rain  transplant! 


Compatibility.  STARDOS  works  witfi  virtually  all 
C-64'  Software  and  Hardware! 

Guarantee 720  day  repair  or  replacement 

warranty.  Your  satisfaction  guaranteed 
or  your  money  is  refunded! 

The  power  of  a  Computer  is  a  terrible  thing  to  waste. 
Help  your  C-64'  live  up  to  its  full 
potential. ..Transplant  with  the  very  best!. ..Transplant 
with  STARDOS! 

Personalize  your  C-64'  for  a  $10  (non-refundable)  charge.  We  will 
Include  a  21  character  power-on  message  with  your  favorite  screen, 
border  and  text  colors,  Example: 


MIKE'^       6  O  M  MO  P  OR^   •-  64- 


Background 


et-ACK 


.  Border    &^^^H    jext    ^^P 


Write  or  phone  for  additional  information. 


SnkRPOlNT  SOFTWARE 

star  Route  10       Gazelle,  California  96034        (916)  435-2371 


When  ordering  by  malt: 
$64.95  +  3.00  shipping 
$64.95  -Y-  4.00  COD  orders 


Shipping  out  of  USA  $6.00 
California  residents  add  6%  sales  (ax 
VISA  or  Mastercard  accepted 


Please  allow  4$  weeks  for  delivery 


320  PRIMTTAB ( 3 ) " [ DOWH 1  FIRE  BUT 
TON  TO  PLAY  AGAIN (HOME )" :W 
AIT56320, 16,16:RUN:rem  238 

830  A=15:D-107:POKE53248+2I,0i 
POKE54277, A:POKE54284,A:PO 
KE54291,A:POKE54278, D 

: rem  165 

840  POKE54285,D:POKE54292,  D:PO 
KE54286, 50 :POKE54287, 40: PO 
KE54276,33  : rem  43 

850  POKE54283,33:POKE54290,33: 
FORrl=ZlTOZ2STEPZ3:POKE542 
73,Fl:POKE54287,Fl:rera  226 

860  FORF2=30TOlSTEP-5iPOKE5428 
0,F2:POKE53  2  80,F2:NEXTF2,F 
1  :rem  194 

870  POKE54276,32:POKE54283, 32; 
POKE54290, 32: RETURN 

:rem  127 

880  POKE54277,26:POI^54276,23: 
POKE54273, 30:RETURN 

:rem    133 


R 


I 


■  ■  I 


"Commodore  6i  Puzzler"  permits  large 
puzzles  zvith  up  to  16  different  colors. 


T    I  r-IF:       :-:•> 


Index  arrows  indicate  your  position  in 
"VIC-20  Puzzler." 


Program  2:  VIC-20  Puzzler 

Version  by  Kevin  Mykytyn,  Editorial 

Programmer 

For  Instructions  on  entering  this  listing,  please 

refer  to  "COMPUTEI's  Guide  to  Typing  In 

Programs"  published  bimonthly  in  computei. 

10X5="(RVSl  (off)" :CO(0)=0:CO 
(l)=6:CO(2)=2:DN5="[HOME} 
{22  DOWN)"  .  :rem  53 

20  PRINT"[RED} {CLRl {4  D0WN)"SP 
C( 8) "PUZZLER" : PRINT" 
(4  D0WN)£BLKJ(4  spacesJente 
R  GRID  SIZE"  iLN=2:HbI=4 

:rem  87 

30  PRINT"  [2  DOWtlH4  SPACESjCOL 
UMNS?  (2-4)" :GOSUB370:CQL=A 
:HN=6  :rein  199 


40  PRINT"{2  DOWNJU  SPACES} ROW 

S?{4  SPACES] (2-6)" :GOSUB370 

:ROW=A  :reni  203 

50  PRINT" {2  DOWN} HOW  MANY  COLO 

RS?  (2-6)":GOSUB370:CR=A 

:rem  19 
70  PRINT" (CLR)  iBLK]  CONSTRUCT 
ING  PUZZLE" : PRINTDN$SPC(5)" 
{BLU} PLEASE  WAIT(BLK}"? 

:rera  238 

80  PRINTLEFTSCDN?,  11-ROW) :GOSU 

B390  :rem  84 

90    F0RI=1T0R0W*2:PRINTLEFT?(DN 

5, I+12-R0W) ; :PRINTSPC(5-C0L 

)X5; :PRINTSPC{C0L*2 )X5; 

:rem   98 

95    PRINTSPG(9-2*COL)X5; jPRINTS 

PC(2*C0L)X?,-  :NEXT:  IFC0LO4T 

HENPRINT  :rem   2 

100    GOSUB390:A?="":FORA=1TOROW 

*C0L*4 : A5=A5+CHR5 ( INT ( RND ( 

l)*CR)+2) !NEXTAsB?=A5 

:rem   22 

110    F0RA=lT0ROW*C0LtQ=(A-l)*4+ 

l:Q2=INT(RND(l)*ROW*COL)*4 

+1:GOSUB400:NEXT   : rem  132 

120  F0RA=1T0R0W*C0L:R=RND(1)*4 

:Q=(A-l)*4+l:GOSUB410tNEXT 

:IFA5=B$THEN110     : rem  37 

130  F0RA=lT0R0W*COLiQ=(A-l)*4+ 

1 : T?=B 5 : XBAS=1 7-COL : YBAS=1 

3-ROW:GOSUB440:XBAS=6-COL 

:rem  19 

135  TS=A$:GOSUB440:NEXT 

srem  126 
140  PRINT" {HOME) tOFF) 

{21  SPACES) "iPRINTDN?" 
fBLK){8  SPACESjTIME 
{4  SPACES)";       :rem  19.8 
150  A=-l!PB  =  l:OA=l:FL=0:TM=ROW* 
COL*2.5-«-30  :reni  85 

160  IFFL=1THENQ2=(0A-1)*4+1:FL 
=2  :rem  73 

170  ZZ=A:A=OA!GOSUB460:A=ZZ:XP 
=XBAS-2:YP=YBAS+Y1*2:G0SUB 
600: PRINT"  ";      :rem  116 
175  YP=YBAS-2:XP=XBAS+X1*2:GQS 
UB600: PRINT"  " ; : GOSUB460 

:rem  88 

180  P0KE646,C0(FL):YP=YBAS+Y1* 

2 : XP=XBAS-2 : GOSUB600 : PRINT 

"> "; !XP=XBAS+X1*2:YP=YBAS- 

2  :reiii   244 

190  GOSUB600:POKE646,CO(FL)!PR 

IHT"V"; :OA=A:MAX=ROW*CQL:G 

ETK5  :rem  36 

200  1FK$="{Up1"THENA=A-COL:G0T 

0240  :rera  164 

210  IFK5="{LEFT)  "THEtIA=A-l:GQT 

O240  :rem  4 

220  IFK5=" {RIGHT) "THENA=A+1:G0 

TO240  :rem  131 

230  IFK5  =  "  {DOWN)  "THENA=>A+COL:  G 

OTO240  :rem  37 

235  GOTG250  :rem  106 

240  IFA>MAX0RA<1THENA=0A 

:rein  22 

250  IFK?=OK5THEN290     :rem  90 

260  OK$=K?:IFK5=CHRS(13)ANDFL= 

0THENFL=1:GOTO2  90   :rem  60 

270  IFK$=CHR$(13)ANDFL=1THENQ= 

(A-1 )*4+l:R=l:GOSUB410!T5= 

A? 1 GOSUB440 :FL=0 i GOTO290 

:rein  2  50 
280  IFK5=CHR?(13)ANDFL=2THENGO 
SUB470:FL=0        : rem  226 
2  90  PRINTDN5SPC(12)INT(TM)" 
{LEFT)  ",- :TM=TM-.0a 

:rem  237 
300  IFTM<0THENPRINTDNS" (BLU) 
(OFF) [7  SPACES) TIME'S  UP 
{3  SPACES)"; :Z1=255:Z2=150 


:GOTO330  : rem  95 

310  IFA5=B$THENPRINTDK?"{BLU) 
{off) {3  SPACES)YOU  SOLVED 
(SPACE) IT[3  SPACES)"; :Z1=1 
50:Z2=255:GOTO33O  :rem  116 

320  IFAOOATHES160      :  rem  S3 

322  IFK$=CHR5(13)THEN170 

: rem  79 

325  GOTO190  :rem  109 

330  GOSUB360:PRIHTDN?" 

{4  SPACES) PRESS  ANY  KEY"; 
:rem  9 

340  POKE198,0:WAIT198,1:RUN 

:rera  97 

360  POKE36878,15:FQRA=ZlTOZ2ST 
EP2*SGN(Z2-Z1) :POKE36875,A 
:POKE36874,A-5     :rem  255 

365  PQKE36879, (PEEK(36879)AND2 
48)0RRND(1 )*a:NEXTA:FORT=l 
5TO0STEP-1 : POKE36878, T :NEX 
T  :rera  109 

367  POKE36879,27:RETURK 

:reni  143 

370  Z=RND(1):GETK?jA=VAL(K5):I 
FA<LNORA>HNTHEN3  70srera  218 

380  RETURN  : rem  123 

390  PRINTSPC(5-C0L); :F0RI=1T0( 
COL+l)*2:PRINTX$; :NEXT:PRI 
NTSPC(9-2*COL);     : rem  13 

395  FORI=1TO(COL+1)*2:PRINTX5; 
sNEXTs RETURN       : rem  218 

400  T5=A5;GOSUH500:FORZ=0TO3:T 
=P£EK ( Q+Z+BP ) : POKEQ+Z+BP , P 
EEK(Q2+Z+BP)       :rem  242 

405  POKEQ2+Z+BP,T:NEXT:A$=T5:R 
ETURN  :rem  244 

410  IFR=0THENRETURtI    :  rem  242 

420  T?=A$JGOSUB500:FORX=1TOR:T 
=PESKCBP+Q) :PQKEBP+Q, PEEK( 
BP+Q+2 ) : POKEBP+Q+2, PEEK(BP 
+Q+3)  :rem  144 

430  P0KEBP+Q+3,PEEK(BP+Q+1) :P0 
K£BP+Q+1,T:NEXT:A'5=T5:RETU 
RN  :rem  120 

440  GOSUB460:XP=XBAS+X1*2:YP=Y 
BAS+YI*2:GOSUB600sFORT=0TQ 
3 ; IFT=2THENYP=YP+1 : GOSUB60 
0  :rera  109 

450  POKE646, ASC(HID5{T?,Q+T,1) 
) : PRINTX5 ; j  NEXT : RETURN 

:rem  237 

460  Z=A-1:Y1=INT(Z/C0L):X1=Z-Y 
1*C0L:RETURN       : rem  167 

470  Q=(A-1)*4+1:GOSUB400:T?=A$ 
!GOSUB440:ZZ=A:AA=Q:Q=O2:A 
=(Q2-1 ) /4+1 ;T?=A$:GOSUB440 
:A=ZZ  :rem  131 

480  Q=AA: RETURN        : rem  198 

500  T$=T5:BP=PEEK(51)+256*PEEK 
( 52 )-l: RETURN      :rem  238 

600  PRINTLEFT?(DN?, YP)SPC(XP); 
: RETURN  :rem  130 


Program  3:  Puzzler  For 
Commodore  Plus/4  And  16 

Version  by  Patrick  Parrish, 
Programming  Supervisor 
For  instructions  on  entering  ttiis  listing,  please 
refer  to  "COMPUTE! 's  Guide  to  Typing  In 
Programs"  published  bimonthlv  in  COMPUTE!. 

10XS="{RVS)     (OFF) " :CO(0)=] :C0 
(  1,  )  =  7  :  CO  {  2  )  =  3  :  DN?=  "  (  HOME ) 
(22    DOWW)":COLOR0, 2:COLOR4, 
2 

20    PRINT"g73(CLR) {6    D0WN)"SPC( 
16) "PUZZLER": PRINT" [3    DOWN) 


48     COMPUTEI      November  1 985 


EFFECTIVE 


Shadow  is  a  new  and  revolutionary 
way  to  back  up  your  most  protected 
software.  It  encompasses  all  the  latest 
advances  in  software,  as  well  as  a 
highly  sophisticated  piece  of  hardware. 
This  is  absolutely  the  best  utility  available 
today.  You  may  not  even  need  updates,  but  if 
you  do,  the  Shadow's  unique  design  allows  for 
updates  to  be  available  for  a  nominal  fee. 

By  the  time  you  place  your  order  we  expect 
the  Shadow  to  back  up  100%  —  that's  right,  100% 
of  all  software  available  for  the  C-64. 


Order  by  phone  24  hrs.'7  days  or  send  cashier's  check,  money  order 
payable  to  Megasolt.  Vtsa.  MasterCard  include  card  #  and  exp.  date.  Add 
S3-50  shipping/handling  lor  continental  U.S..  £5.50  for  UPS  air.  CODs  add  S7.50, 
Canada  add  SlO.OO  Other  foreign  orders  add  SISOO  and  remit  certified  U.S.  funds 
only  Distributors  invited  and  supported. 


P.O.  Box  1080     Bailie  Ground,  Washington  98604 

Phone  (206)  687-5116  •  BBS  687-5205  Aller-Hours  Computei-lo-Compule; 
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JK  ATARI  JK    appkZ 


COMMODORE 


ATARI 

800XL CALL 

130XE  (NEW} Call 

520ST  (NEW),....  call 

1050  Drive 165 

1010  Recorder 42 

1020  Printer S5 

1025  Printer 159 

1027  Printer.. 179 

850  Interlace 109 

'"ATARI  SOFTWARE  (NEW) 

Codewrlter 35.75 

FilBwriter 20.75 

Rsportwrlier 20.75 

Menuwriter 20.75 

Home  Integrator 19.75 

Small  Bus.  Inventory 11.75 

Salesman  Expenses 11.75 

Aces  Rec/Pay 11.75 

Retail  Invoice 11.75 

.  Final  Legacy 15.75 

•Adveniura  Writer 18.75 

Star  Voyager 11.75 

SSI  (Atari) 

kColonial  Conquest 24.75 

VField  of  Fire 24.75 

Kampfgruppe.,-,. 36.75 

Objective:  Kursk 24.75 

r^arket  Garden 29. 7S 

Six  Gun  Shootout 24.75 

1  War  in  Russia 49.75 

^Computer  Baseball 24.75 

Computer  Quarterback. .24.75 

Gemstone  Warriir 22.75 

50  Mission  Crush 24.75 

Questron 29.75 

SPINNAKER 

Delta  Drawing  Room 19.95 

Cosmic  Life  Floom 19.95 

Up  for  Grabs  Room 19.95 

PERSONAL  PERIPHERALS 

Super  Sketch  C-64 29,95 

Printer  Ulility  C-64 1499 

.Super  Sketch  Alan 25,95 

rSuper  Sketch  Apple/lbm 55,00 


ADVENTURE  INT'L  (Atari) 

Diskey 32.75 

Ultradissambfer 32.75 

Maxi  Golf 18.75 

Ralley  Speedway 26.75 

Whomper  Stoniper 18.75 

Adventures  1-12  eaoti...14.50 
Adv.  Hint  Book 5.50 

MICROPROSE  (Atari) 

Kennedy  Approach 21.75 

Crusade  In  Europe 24.75 

Decision  in  Desert 24.75 

Solo  Flight 20.75 

Nato  Commender 20.75 

Spitfire  Ace 18.75 

F-15  Strike  Eagle 20.75 

Hellcat  Ace 18.75 


SYNAPSE  (Atari) 

SynFile 33.75 

SynCalc  (AT/C-64) 33.75 

SynComm 26.75 

SynTrend 26.75 

SynChron...... 26.75 

SynStock 26.75 


BRODERBUND  (Atari) 

The  Print  Shop 28.95 

Graphics  Library 18.95 

Graphics  Library  II 19.50 

Sank  St.  Writer.. 42.75 

Whistler's  Brother 18.95 

Spelunker 18.95 

Sleallh 18.95 

Serpent's  Star 24.95 

Mask  of  the  Sun 24.95 

SCARBOROUGH  (Atari) 

NET  WORTH  (AT/C-B4).. ,48.75 

filastertype 22  75 

Improved  Mastertype 23.75 

Masle rtype   Filer 22.75 


SCARBOROUGH  (Apple) 

NET  WORTH 48.75 

Improved  Mastertype 22.75 

Mastertype  Filer 22.75 

BRODERBUND  (Apple) 

The  Print  Shop 31.50 

Graphics  Library 18.50 

Graphics  Library  II 18.95 

Paper  Refill 11.95 

Bank  St  Writer  64K 41.50 

Bank  St  Writer  128K 42.75 

Bank  St  Filer 42,75 

Bank  St  Mailer 42.75 

Bank  St  Speller 42.75 

Carmen  Sandiego 22.75 

Karateka 22.75 

Captain  Goodnight 22.75 

Muppey  Cruise 25.75 

SUB  LOGIC  (Apple) 

Flight  Simulator  )l....52.n 

Night  Mission  Pinbail 20.75 

MICROPROSE  (Apple) 

Crusade  in  Europe 25,75 

Decision  in  Desert 25.75 

F.15  Strike  Eagle 21.75 

Nato  Commander 21.75 

SSI  (Apple) 

Mech  Brigade 36  75 

Norway  f985 22.75 

Market  Garden 29.75 

Six  Gun  Shootout 24.75 

50  Mission  Crush 24.75 

Phantasie 24.75 

Spjnnakor 

Alphabet       $1B.7S 

Story  Mactiine 519,75 

Kids  on  Keys       $18  75 

Grandma  S19,75 

Snooper  Troop  $22  75 


COMMODORE 

C-128  NEW CALL 

1571  Drive CALL 

1572  Drive CALL 

1902  Monitor CALL 

1670  Modem CALL 

C-64  Computer CALL 

1541  Drive 189 

MPS801  Printer LOW 

1702  Monitor 199 

Simon's  Basic ..24.75 

Assembler  64 34.75 

Super  Expander 22.75 

Logo  64 49.75 

Pilot  64 38.75 

Easy  Cale 34.75 

Easy  Script 38.75 

CARDCO 

Digitizer  Camera 189.95 

32K  Printer  Buffer 59.95 

Numeric  Keypad 34,95 

CB/S  5-slot  Board(64)... .54.00 
Ce/2  2-sloi  Boafd(64)..,.25,00 

S'More  Basic  Rom 49,95 

Write  Now-64 35  00 

Mail  Now-64 2900 

Spell   Now.64 29.00 

File  Now-64 2900 

Paint  Now-64 29,00 

Calc  Now.64 29  00 

Tax  Survival 29,00 

Super  Printer  Utility 27.95 

Write  Now-Vic-20 29,95 


SPINNAKER  (C-64ROM) 

Cosmic  Life  P.OW, 19  75 

Jukebox.. 19.75 

Alphabet  Zoo 17.75 

Alf  in  Color  Caves 19.75 

Up  for  Grabs 19.75 

Delta  Drawing 19.75 

Kids  on  Keys 16.75 

Kindercomp 14.75 

Facemaker 17.75 

Fraction  Fever 17.75 


SUB  LOGIC  (Atari) 

^Flight  Simulator  It. ...32.75 

NigTit  Mission  Pinbail 20,75 

ATARI 

rssO  Interface 109 

CONTINENTAL 

Home  Accountant 44,75 

V 1985  Book  of  Aiain  Software    1 6. 95 

TRONIX 

S.A.M.  -Atari 38.50 

S. A.M. -C-64 38.50 


US  ROBOTICS 

Password  1200M.. 229 

Password  1200F 229 

Password  300M 139 

Password  300F .     139 

Autodial  212A 359 

PCM5 319 

PCM64 519 

PCM256 769 

S-100 ...379 

Courier 469 

Microlink 469 

Telpac  Ms-DOS 79 


RACAL-VADIC 

2400PC 549 

2400PA 799 

2400V 559 

1200PC 329 

300V 205 

300PC 199 

George  Software 69 


MODEMS 


HAYES 

SMARTMODEM   300 139 

SMARTMODEM  1200 379 

SMARTMODEM   1200B....349 

SMARTMODEM  2400 599 

MICROMODEM  HE 135 

TELE  LEARNING 

Total  TelBcommunications 

];C-64) 29.95 

AP-250  (300  Baud  Apple) 69.95 

IB-250  (300  Baud  IBS^ 69,95 


ANCHOR 

Volksmodem 55 

Volksmodem  12 186 

Mark  12  229 

NOVATION 

IBM-300/1200  MS-DOS  exi  319 

IBM-300/1200  CPM-ee  em 319 

IBM  300/1200/2400  ext 529 

IBM  300/1200/2400  MS-DOS        579 

iBM  MS-DOS  im 325 

IBMCPM.86inI 325 

Macmodein  300/120O.  ,  315 

Macmodem  300/1200/2400  585 

Apple  Cat  il 219 

Upgrade  Apple  Cat  II 225 

CalSOO  Acoustic 139 

J-Cal  HS232 8S 


MICROBITS 


1064  Modem 


weSTRIDGE  MODEM  (C-«| 59 

MITEY  MO  MODEM  (C.641 69 

57     CompuServe 19.86 


BATTERIES  INCLUDED 

Paper  Clip 59.95 

Spell  Pak 34.95 

Consultant 59.95 

Paper  Clip 

w/Spell  Pak 75.95 

Home  Pak 34.95 

Bus  Card 129.95 

80  Column  Board 109.95 

TRe"rint  SF^p 2875  '^ 

Graphics  Library 1 8.75 

Graphics  Library  II  ...  1  9.75 
Graphics  Library  III  ,, ,  19.95 

Karateka 19.75 

Castles  Dr.  Creep  ■■■  19.75 

Bank  St.  Writer 32.75 

Loderunner 20.75 

Mask  of  tfie  Sun 24.75 

Spelunker 19.75 

Serpent's  Star 24.75 

Whistler's  Brottier...  18.75 
Raid  Bungeling  Bay ,,,  1 8.75 

HES 

HES  Games  64    22.95,' 

Microsoft  Mulliplan 55.00  \ 

Type  IM  Write  19.95 

Turtle  Graphics  II  23.95 

Cell  Defense   22.95 

Paint  Brush 12.95 

Tri  Math  ■. 22.96 

Graphics  Basic  27.95 

HES  Kit    29.95 

Millionaire  23.95  i 

HES  Writer  64 24,95^ 

SCARBOROUGH  (C-64) 

Build  A  Book 24.75 

Iniproved  Mastertype 23.75 

NET  WORTH 48.75% 

Mastertype   Filer 22.75 

Boston  64  Diet 27.75 

MICROPROSE  (C-64)  i 

Kennedy  ApjOroach 21.75^ 

Crusade  in  Europe 24.75 

Decision  in  Desert 24.75 

Solo  Flight 20.75 

Nato  Commander 20  75 

Spitfire  Ace 18.75 

F-15  Strike  Eagle 20.75   ■^ 

Hellcat  Ace .18.75 

PERSONAL  PERIPHERALS 

Super  Sketch  64 32.75 

Printer  Utility 18.75 

SUB  LOGIC  (C-64) 

Flight  Simulator  II. ...32.75 

Nighl  Mission  Pinbail 20.75  ■« 

QR  &  D 

Copy  a 27.95 

GPC  Printer  Interface. ...65  00 
■ 1 


AMDEK 

300  Green II8 

300  Amber 128 

310  Amber  iBM 155 

Color  300  Audio 234 

Color  500  Composite 369 

Color  BOO 397 

Color  700 495 

Color  710 569 

TEKNIKA 

'  MJ-10  Composite ,179 

MJ-22  RGB 255 


MONITORS 


NEC  _ 

JB-1260  Green 95 

JB-1201  Green 135 

JC  1215  Color 235 

JC  1216  RGB 375 

JC1460  Color 265 

JB-1205  Amber 139 

PRINCETON  GRAPHICS 

MAX-12  Amber 185 

HX-12  RGB 465 

SR-12  RGB 595 


SAKATA 

SGlOOO  12"  Green 99 

SA1000  12"  Amber 109 

SG1500  12"  Green  TTL...119 
SA1500  12"  Amber  TTL.,.129 
SClOO  13"  Color  Comp,..209 
SC200  13"  RGB ^..389 

_      PANASONIC 

OT  130O  RG1  composite ^^^ 


ZENITH 

ZVM  122A  Amber 75 

ZVM  123G  Green 75 

ZVM  124  Amber  IBM 129 

ZVM  131  Color ...275 

ZVM  133  RGB-- 369 

ZVM  135  Composite 449 

ZVM  136  Hi  Res  Color 589 

X-TRON 

Comcolor  1  Composite  Gifcii.177 


TAXAN 

115  12"  Green  Composite  ...CALL 
tl6  12'  Amber  Composile,,,CALL 

121  12'"  Green  TTL 13S< 

122  12"  Amber  TTL 145 

220  14"  Color  Composite 259 

410  12'  RGB  Hi  Res  IBM 329 

420  12"  RGB  Super  Hi  IBM....409 

440  12"  RGB  Ultra  Hi  Res 555, 

TrII  Stand 35  ' 


AMERICA'S  MAILORDER  HEADQUARTERS 

LYCO     COMPUTER 

WORLD'S  LEADER  IN  SALES  &  SERVICE 


TO  ORDER 
CALL  TOLL  FREE 

800-233-8760 

In  PA1  717-327-1824 

Lyco  Computer 

P.O.  Box  5088 

Jersey  Shore,  PA  1 T740 


A 
i 
i 


Lyco  Computer  Marketing  &  Consultants 


SAVE  ?™  PRINTERS 


SG-W S212.00 

AXIOM 

GP550AT  (Alari) ^ 

GP550CD   C-64 22Z 

eP700AT  (Atari) 439 

GP700AP  (Apple) 439 

ELITE5CD  |CSS4> 229 

C.  ITOH 

e510Ap+ Z99 

1550P ...437 

15S0BP    437 

155CeP 437 

ISSOeCO 489 

F1(M0    Bse 

F10-S5   1038 

7500AP .204 

750CIAn 244 


TOSHIBA 


P1340 
P351 


557 
1286 


CARDCO 

32K  BUFFER., 10-54) 59 

CORONA 

LP3O0  Laser  Primer 2686 

200361  Toner  Cartridge 89 


EPSON 

FX85  (New) 333 

LX80        212 

FX18S  (New) 464 

LX90  (New) 226 

SCttOOO  (New) 1555 

JX80  467 

Homewrtef    10 193 

CFI-20.AIan 153 

CR-220&64 153 

DXIO  (New)    207 

DX-20  (New)   297 

HSm   (New)    288 

LO1600P 975 

LQ1600S 1039 

HX-lOO 356 

FX-100+  ,  .    CAU, 


CITIZEN 

MSP-10 287 

MSP-15 447 

MSP-20 447 

MSP-25 563 

Sheetfdr  (10/20) .-189 

Sheetfdr  (15/25)  199 

OKIDATA 

Skimale  10 CALL 
kimate  20 CALL 

182 214 

192 348 

193 563 

92P 349 

93P -565 

84P 645 

92  Imagewriter 349 

'IBM  versions  also 

BROTHER 

HR-ISXL-P 359 

HR-ISXL-S 359 

HR.35P 839 

HR.35S 839 

2024L-P 949 

M1009.P 189 


JUKI 

Juki   6100,. 347 

RS232  Serial  Board 55 

6100  Tractor 119 

6100  Sheel  Feeder 209 

Juki   6300 757 


LEGEND 


880  , 
1080., 
1380., 
1385., 


,262 
.296 


DIGITAL  DEVICES 

T6K   BUFFER 75 

32K   BUFFER 89 

64K    BUFFER 125 


DIABLO 

025 549 

630API 1599 

630ECS 1759 

DBOIF 2395 

P32CQ1 699 

P38         1749 

C150  999 


_3) 

-  ■■'"■■■■■' 

1091 $233.00 

PANASONIC   _ 

1091 2M 

1090 iS 

1092 3ra 

1093 428 

3151  Letter 425 

4K  BuHer 65 

SILVER  REED 

EXP400  249 

EXP500  2SS 

EXP550  399 

EXP770  749 

STAR  MICRONICS 

SG-10 2i| 

SG-IS 373 

SD-10 3X 

SD-15 442 

SR-10 483 

SR-15 583 

Powertype vi-SOS 

SB-10,  .  , CALL 

SG.lOC-64  (NEW) CALL 


i^    PRINTER     * 
INTERFACING 


AXIOM 


AT846  (Alari) 

Parallax  (C-64)., 


65 

65 


MICROBITS 

MPP-1150  (Atari) 54 

MPP-1150XL  (Atari) 59 

Microprint  JAtariJ 39 

64K  RAM  Board  (600x1) 65 

DIGITAL  DEVICES 

ApeFace  XLP  (Atari) 49 

ApeFace  12XLP  (I200xl)....49 

U-Print  A  (Atari) 54 

U-Print  C  (C-64) 49 

U-Print  A16K  Buffer 74 

U-Print  A64K  Buffer 99 

U-Print  AP16K  (Apple) 99 

U-Print  AP64K  (Apple) 139 

U-CALL  RS232  (Afari) 37 

MICROTEK 

Dumpling  QX  (Apple) 59 

Dumplirw  16K  (Apple) 89 

RV-611(T  (Apple) 49 

TYMAC 

Connection  (C-64) 55 

Tackier  (Apple) 49 

PPC- 100  (Apple) 39 

ORANGE  MICRO 

GHAPPLER+    (Apple) 85 


PRINTING 
PAPER 

3000  SHEETS 

FANFOLD $42.75 

1000  SHEETS 

FANFOLD $19.75 

lOOOSHEE-TLETTER  $21,95 
200  SHEETS  LETTER  $8,99 
1  50  RAG  STATIONARY  $  1 0.99 
MAILING  LABELS  (1  in) , , .  S9.95 
14  M  11  1000 

FANFOLD $24.79 

WICO  Joysticks 

15-9714  Bat  Handle 16.75 

50-2030  Boss - 11,99 

50-2002  Super  3-Way.,.. 19.99 

50-0110  IBM-Analog 29.95 

50-1030  Apple-Anafog.. ,29.95 
72-4545  Trackball °... 29.95 

INNOVATIVE  CONCEPTS 

Flip-n-File  10 3.50 

Flip-n-File  15 8.25 

Flip-n-File  25  Lock 17.95 

Flip-n-File  50 17.25 

Flip-n-File  50  Lock 22.95 

Flip-n-File  Rom 17.25 


DISKETTES 


SKC  (Box  10) 

(Oly)     10 

100 

50O 

SV.     SSOO              13  7S 

12  99 

1199 

SV.  ■  DSDD 15  75 

1499 

14  25 

ELEPHANT  (Box  1 

D) 

5'/,-   SSSO 13  50 

12  99 

11  99 

S'/i"  SSDD 1199 

13  99 

,12,99 

SVi"  DSDD 16  99 

15,99 

-  14,99 

Premium   SSDD  .   15  95 

14  9S 

13,95 

Promiunn  DSDD      17  95 

1695 

,15,95 

MAXELL  (Box  10) 

5V.'    MD.l               1675 

IS  75 

,14,75 

SV.-    MD!                22  99 

21  99 

,20.99 

IBM-PC 

COMPATABLE 


VERBATIM  (DataLHe)  (Box  10} 

5V.  ■  SSDD  1999      1B99      1799 

5'/.'  DSDD  2499      23,99,    22  99 

NO  LABEL  DISKETTES 

NL  5'/i"  SSDD. ..10.99  (Box  10) 
NL  S'A"  DSDD, ..15.99  (Box  10) 

■Free  Diskette  Writer  Pen! 

"Free  Storaae  Case! 

•Lifetime  Warranty! 


Grappler  16K  (Apple) 149 

QrAnGE  (Apple) 59 

Grappler  CD  (C-64) 79 

CARDCO 

G-Wiz  (C-64) 54 

C/7  +  G  (C-64) 45 

C/7PS  (C-64). 49 

C/?B,.(C-64) 39 

C/7AT  (Atari) 49 

C/7AP     Apple) 49 

C/7IBM   (fSM). 29 


DRIVES 


IBM-PC 

SOFT-WARE 


INDUS 

GT  ATARI 19 

GT  COMMODORE 19 

MSD 

fDl  Dfiv*  (0-64) 2i 
D2  Driva  \CS*) 4< 


*ASHTON-TATE 

Framework.- .385.00 

d  Base  II 289.00 

d  Base  III 385.00 

d  Base  U  upgrade 135.00 

PARADISE 

Multi-Display  Card 289 

Modular  Graphics  Card.. ..275 
Five-Oak 155 

•LOTUS 

Lotus  1-S-3 309.00 

Symphony 439.00 


PCCornpatable XaTl 


ZENITH    ^  ,, 

Z-150 , Call 

TECHMAR 

First  Male-64K 249 

Caplaln-64K 199 

Second  Mate 209 

Captain  JR-128K 309 

Graphics  Master 465 

OMEGA 

10  Meg  Bernoulli  Box  ll8M)..189g 
5  Meg  Bernoulli  Box  (MAC).  1499 

TALLGRASS 
TECHNOLOGIES 

25mb  drive CALL 

35mb  drive CALL 

50mb  drive CALL 

80mb  drive CALL 

AST 

Six  Pack  Plus  64K CALL 

Iwlega  Plus  II  64K 269 

Memory  128K  (mega) 199 

Memory  256K  Mega) 335 

Mono-(3raph  Plus 339 

AdvantagB-AT-128K 389 

*QUADRAM 

Quad  JrTExp.  Chassis, ...519,00 
Quad  Jr.  Exp,  Memory.. ..209.00 
Quad  Memorv  Jr 209.00 

•LEADING  EDGE 

Nutshell 69.95 

LEWP  Basic 65.00 

LEWP  Merge  Print 99.00 

LE  Spelt  Correction 169.00 


TOLL  FREE  1-800-233-8760 


TO  ORDER 

CALL  TOLL  FREE 

►     800-233-8760 

Customer  Service  1  -71 7-327-1 825 


or  s«nd  order  to 
Lyco  Computar 
P.O.  Box  5088 

Jai9«y  Shore,  PA 
17740 


RISK  FREE  POLICY 

In-siock  items  shipped  wilhin  24  hours  of  order.  No  deposit  on  CO  D,  orders  Free 
shipping  on  prepaid  cash  orders  within  Ihe  continental  U-S-  Volume  discounts 
available.  PA  rssldenis  add  sales  tax.  APO.  FPO,  and  Inlerrtational  orders  add 
$5,00  plus  3%  for  priorily  mail  service.  Advertised  prices  show  4%  discoun!  for 
cash,  add  4%  for  MasterCard  or  Visa.  Personal  checks  require  4  weeks'  clearance 
twfore  shipping.  Ask  abput  UPS  Blue  and  Red  latjel  shipping.  All  merchandise 
carried  under  manutacturer's  warranty.  Free  catalog  with  order.  All  items  subject 
to  change  without  notice. 


{BLK)"SPC( 12) "ENTER  GRID  SI 
ZE:":LN=2:HN=7 
30  PRINT" [DOWH)"SPC{ 12) "COLUMN 

S?  (2-7)":GOSUB430:COL=A 
40  PRINT" {DOWN) "SPC: 12) "ROWS? 
[4  SPACES) (2-7)" :GOSUB430:R 
OW=A 
50  PRINT" [down) "SPC{ 10) "HOW  MA 
NY  COLORS?  (2-7) ":GOSUB430: 
CR=A 
60  PRINT"  {CLR]  "SPC(  10)"C:ONSTRU 
CTING  PUZZLE" :PRINTDN5SPC(1 
4)"§73PLEASE  WAIT[aLK)"; 
70  PRINTLEFT? (DNS, ll-ROW) :GOSU 

11450 
80  FORI=ITOROW*2tPRINTLEFT5{DN 
?, I+12-R0W) ; :PRINTSPC(9-C0L 
)X9; :PRIUTSPC(C0L*2)X?r 
90  PRINTSPC( 1 7-2*COL)X$; :PRINT 

SPC(2*COL)X?r :NEXT:PRINT 
100  GOSUB450sA5="" :FORA=lTOROW 

*COL*  4 : A?  =  A5+CHR5 ( INT ( RND ( 

0)*CR)+2) :NEXTA:B5=A? 
110  FORA=ITOROW*COL:Q=(A-1 )*4+ 

1 : Q2=INT ( RND ( 1 ) *R0W*COL ) *4 

+1;GOSUB470:NEXT 
120  F0RA=1T0RUW*C0LjR=RND(1 )*4 

: Q= ( A-1 ) *4+l : GOSUB490 : NEXT 

!lFA5=B5THEN110 
130  FORA=1TOROW*COL!Q=(A-1 )*4+ 

l:T?=B5:XBAS=29-COL:YBAS=l 

3-ROW:GOSUB520:XBAS=10-COL 
140  TS=A$:GOSUB520:NEXT 
150  PRINT" (HOME) JOFF] "SPC ( 10 ) " 

(19  SPACES )" :PRINTDM?5PC( 1 

4) "{2  SPACES) g7gTIME 

{6  SPACES]"; 
160  A=i:PB=l:OA=l:FL=0:TM=ROW* 

COL* 3 +30 
170  IFFL=1THENQ2=(0A-1 )*4+l:FL 

=2 
180  za=A:A=OA:GaSUB540:A=ZZ:XP 

=XBAS-2 : YP=YBAS+Y1 *  2 : GOSUB 

580: PRINT"  "; 
190  YP=YBAS-2:XP=XBAS+X1*2:G03 

UB580:PRINT"  "r:GOSL;B540 
200  C0L0R1,C0(FL),4:YP=YBAS+Y1 

*2 :XP=XBAS-2 : GOSUB580  :  PRIM 

T">"; :XP=XBAS+X1*2:YP=YBAS 

-2 
210  GOSUB580:COLOR1,CO(FL) ,4:P 

RINT"V"; :OA=A:MAX=ROW*COL: 

GETKI 
220  IFK?="(UP)"THENA=A-COL:GOT 

0270 
230  IFK?="{LEFTJ "THENA=A-1 :GOT 

0270 
240  IFK5="{RIGHT)"THENA=A+1:G0 

TO270 
250  IFK5="{D0WN)"THENA=A+C0L:G 

OTO2  70 
260  GOTO280 

270  IFA>MAXORA<]THENA=OA 
280  IFK?=OK5THEN320 
290  0K$=K?:IFK5=CHRSC13)ANDFL= 

0THENFL=1 : GOTO320 
300  IFK?=CHRS(13)ANDFL=1THENQ= 

(A-1 )*4+l:R=l :GOSUB490:TS= 

A5:GOSUB520!FL=0:GOTO320 
310    IFK$=CHR$(13)ANDFL=2TUt;NGO 

SUB550:FL=0 
320  PRINTDN$" [aLK]"SPC(20)INT( 

TM)"jLEFT)  ";:TM=TM-.08 
33  0  IFTM<0THENPRINTDN$GPC( 10) " 

B73EOFF)[5  SPACESJTIME'S  U 

P{3  SPACES)"? :Z1=1023:22=0 

:GOTO380 
340  IFA5=B$THENPRINTDN5SPC(10) 

"E73{OFF)[3  SPACESJYOU  SOL 

VED  ITl(2  SPACES)"; :Z1=0:Z 

2=102  3: GOTO  380 
350  IFAOOATHEN170 

52    COMPUTEI     November  1985 


"Puzzler"  for  the  Commodore  Plus/4 
and  16  uses  keyboard  controls. 


360 
370 
3  80 

390 
400 

410 

420 
430 

440 
450 


460 
470 

480 

490 
500 

510 
520 

530 

540 
550 


560 

570 

580 


IFK?=CHR5 ( 13 )THEN 1 80 
GOTO210 

GOSUB4O0:PRINTDN5SPC(  10) " 
(3  SPACES) PRESS  ANY  KEY"; 
POKE239,0:WAIT239, J :RUN 
VOL  8:FORA=Z1TOZ2STEP10*SG 
N(Z2-Z1 ) :SOUND  1,A,2 
COLOR0,RND( 1 )*1 5+1 : NHXTA : F 
ORT=8TO0STEP-1 : VOL  T:NEXT 
CQLOR0, 2 : C0L0R4 , 2 : RETURN 
2=RND(1 ) :GETK5:A=VAL(K5) :I 
FA<LNORA>HNTHEN430 

RETURN 

PRINTSPC(9-C0L) ; :FQRI=1T0( 

COL+l>*2:PRINTX5; :NEXT:PRI 

NTSPC( 17-2*COL); 

F0RI=1T0(C0L+1 )*2:PRINTX$; 
: NEXT : RETURN 

T5=A$ : GOSUB 570 iFORZ=0TO3 :T 

=PEEK(Q+Z+QP) :POKEQ+Z+BP, P 

EEK(Q2+Z+BP) 

P0KEQ2  +  Z+BP, T : NEXT : A5=T  ? : R 

ETURN 

IFR=0THENRETURN 

T$=«A5!GOSUB5  70:FORX=1TOR:T 

=PEEK(BP+Q) :POKEBP+Q,  PEEK( 

BP+Q+2 ) : POKEBP+Q+2, PEEK(  BP 

+Q+3) 

POKEBP+Q+3, PEEK(BP+Q+1) : PO 

KEBP+Q+l,TtNEXT:A5=TS:RETU 

RN 

GOSUB540 : XP=XBAS+X: *2 : YP=Y 

BAS+Yl *  2 : GOSUB580 :FORT=0TO 

3:IFT=2THENYP=YP+1 :GOSUB58 

0 

P=ASC ( MID$ ( T? , Q+T, 1 ) ) : COLO 

R1,P+(P=4)*2,P-1-(P=4)*4:P 

RINTX?; : NEXT: RETURN 

Z=A-1:Y1=INT(Z/C0L) !X1=Z-Y 

1*C0L: RETURN 

Q=(A-1 )*4+l:GOSUB470:T$=A$ 
!GOSUB520:ZZ=A:AA=Q:Q=Q2:A 

=(Q2-I)/4+l:T5=A5:GOSUB5  20 
:A=Z2 

Q=AA: RETURN 

TS=T5:BP=PEEK(51)+256*PEEK 
( 52 )-l: RETURN 

PRINTLEFT$(DN5, YP)3PC(XP) ; 
: RETURN 


Program  4:  Atari  Puzzler 

Version  by  Kevi?i  Mykytyn,  Editorial 
Programmer 

For  instructions  on  entering  this  listing,  pfease 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  published  bimonthly  in  compute!. 

AS  10  OPEN  #1,4,  12,  "K:  ":  POKE 
106, PEEK (10&) -8;  GRAPH 


ICS  0! CHBflS-PEEK ( 106) » 
256JPDKE  e2,0:SaUND  0, 
0,0,0 
CI  20  POKE  752,  1;  POSITION  14 
,ll!PRINT  "PLEASE  WAIT 

IJ  30  FOR  fi-0  TD  1023iPOKE  C 
HBAS+ft, PEEK (57344+fl) :N 
EXT  A: FOR  A-CHBAS+B  TO 

CHBAS+39: READ  BsPDKE 
A,B:NeXT  fliGRAPHICS  0 
6J  40  SPRBAS-PEEK  U06) +4:  POK 
E  53277, 3:P0KE  623, 1:P 
OKE  704,0 
HN  50  SPR"SPRBAS»256  +  512!  0Y  = 
SPRiFOR  ft-SPR  TO  SPR+1 
27iPaKE  fi,0!NEXT  AiPDK 
E  53256, 1 
HD60  DIM  T«(256)  ,  A*  (256)  ,  B» 
(256) ,T2«(1) ,R (4) , SP(8 
> iFOR  A-1  TO  BiREAD  Zi 
BP(A)-ZiNEXT  A 
JF  70  GRAPHICS  17iP0SITI0N  7 
,6iPRINT  *bi"f^ZtmMES": 
FDR  A-1  TO  3!R(A>»32+fi 
t NEXT  fti R(4) -161 
EE  B0  POSITION  3,10iPRINT  #6 
(  "antar  grid  sizB"sLN  = 
3i  HN-e 
HS90  POSITION  3,14iPRINT  *»6 
J "COLUMNS  ?  (3-a)"sG0S 
UB  4B0:COL-A 
U100  POSITION  3,14:PRINT  « 
6; "R0HBf3  SPACES>":GO 
SUB  4B0!RDW=A 
BO110  POSITION  3,10tPRINT  « 
6|"H0W  MANY  COLORS  7" 
I LN-2!HN-4 
!N  120  POSITION  3,14!PRINT  tt 
6| "tS  SPACES> (2-4) 
ih     SPACES> ": GOSUB  4B0 
1 COLR-A 
FD  130  GRAPHICS  0lDL-PEEK(56 
0) +256 « PEEK (561 ) ! POKE 
DL+3,66:FDR  I-DL+6  T 
□  DL+27iPDKE  I,4iNEXT 
I 
EN  140  POKE  1,6:  I-I  +  1:PDKE  I 
,65iP0KE  I+l,0lPOKE  I 
+2, DL/2561 POKE  B2,0 
6P  150  POSITION  ll,0iPRINT  " 
CONSTRUCTING  PUZZLE"i 
POSITION  5,23iPRINT  " 
PLEASE  WflIT"j:POKE  75 
6, CHBAS/256 
EO160  POKE  55'?,46«P0KE  3427 
9, SPRBftS: POSITION  0,1 
2-ROWlBOSUB  520 
IF  170  FOR  I-l  TO  R0Wi2iPRIN 
T  I  POKE  B5,  10-COL:PRI 
NT  "•"! iPOKE  85,  1 1+CO 
LiPRINT  "»"; iPOKE  BS, 
29-CDLi PRINT  "«"( 
BB  180  POKE  85,  30  +  COLi  PRINT 
"«"!lNEXT  IiPRINT  I  GO 
SUB  520 
FD190  FOR  A-1  TO  ROW«C0Lt4l 
A» (A, ft) -CHR* (R(INT (RN 
D(  1 )  tCOLR+l )  )  }  ■ B« (A, A 
) -A*<A, A)  I  NEXT  A 
W 200  FDR  A-1  TO  ROWtCDLiQ- 
(A-1)  14+1102- I  NT (RND ( 
1 )  (ROMICOL) (4+1 1 GOSUB 
530:NEXT  A 
61:210  FOR  fi-1  TO  ROW»C0L:R- 
RND( 1 ) »4l Q- (A-1) »4+l! 
GOSUB  540!NEXT  A: IF  A 
«-B*  THEN  200 
ltC220  FDR  A-1  TO  ROW«COL:a- 
( A-1  >  «4+l I T»  =  B$;  XBAS- 
3  0-COL: YBAS=13-RaW: GO 
SUB  570! XBAS=1 l-CDL: T 
»=A*:GOSUB  570:NEXT  A 
KK  230  POSITION  ll,0sPRINT  " 


SOLO  FLIGHT 


'The  only  Flight  Simulator  that  gives  you  the  real  feel 

and  thrill  of  Primary  Flight  Training 

with  the  FUN,  Ease  of  Use  and  challenge 

even  for  the  best  fighter  pilot!" 


Major  BM 
3,000  Fbing  Hours 


ir*' 


NOW  INCLUDES: 

MAIL  PILOT  MISSION 

Brave  the  wind>  weather,  and  mechanical  Mures  in  an 
exciting  and  increasingly  challenging  race  to  deliver  the  mail  to 
21  different  airports  from  Kansas  to  Colorado! 

INSTRUaOR  PILOT  OPTION 

On  screen  guidance  from  a  real  instructor  pilot  to  help  you 
make  your  fiist  Solo! 


CESSNA  and  MICRO  PROSE 

present  the 
Great  American 

LEARN  TO  FLY  A  REAL  AIRPLANE 

Contest  ^^^  Qpp  COUPON  AMD 

FREE  FLYING  LESSONS!!! 

You  get  a  cou[x>n  worth  up  to  $30  towards  a  Cessna 
"Discovery  Right"  in  every  flying  simulation  product  box  — 
Rus  you  can  win  a  complete  flight  training  course  from 
Cessna.  Details  in  evety  box,  or  see  your  local  dealer. 


A  Truly  Unique  Flying  Experience  - 

Solo  Flight  is  an  exciting  and  stiphisticattd 
Priman'  Flight  Training  Simubtor  that  makes 
learning  to  fly  Fun  and  Eas)*  [Resigned  b\-  a 
real  filter  pilot,  wtio  taught  more  than  200 
Mt  Force  I.ieuicnimts  how  to  fl}-,  Solo  Flight 
takes  you  from  your  first  taxi  to  take-off; 
Ehrciu^  your  first  solo;  and  all  the  way  up  to 
the  challenge  of  the  .Mail  Pilot  Mission! 
Solo  Flight  features  full  instrumentation, 
multiple  air  navig;ition  maps,  emergency' 
procedure  practice,  the  unique  "in-tlie-s!ot"  3- 
Dimensional  flight  perspective,  and  fun  and 
challenge  for  pilots  of  all  ages! 


USA  TODAY -SOLO  FUGlfr 
"...  there's  a  revised  peddn^  order  in  the  air... 
easier  us  master  (than  another  famous  flight 
simulator)  (Solo  Higtu)  ...  loses  none  of  the  subtle!)' 
of  flight,  e\en  when  you've  logged  dozens  ()f  hours." 
Man:  Randolph 

CREATrVl  COMPmNG-SOLO  FUGHT 
"...  is  a  flight  simulator  desigtsed  Hith  firn  in  mind... 
it's  easier  to  fh'  than  Sublogic's  Flight  Simulator 
and...ir  is  more  fun  to  pla)'.  "  John  AndetMn 

COMPimr's  GAZETTE -SOLO  RIGIIT 
"...  The  word  thai  hesi  describes  Solo  Fli^t  is 
Fun...  it's  (for  those  who)  don't  wish  to  spend  a  lot 
of  time  reading,  but  would  rather  be  flying." 

David  Fforance 


Solo  Fligfit  Is  available  for  Commodore  64/128,  Apple  II  Fatriily,  IBM  PC/Jr.,  and  Atari 
XL/XE  and  Macintosh  computers,  Suggested  retail  is  only  S34.95,  For  Macintosh 
ortly  —  $39.95.  Call  or  write  for  more  Information  or  MC/VISA  orders. 


PROSE 


SIMULATION 


SOFTWARE 


1 20  Lakefront  Drive 


Hunt  Valley,  Maryland  21030 


301  -667-1 1 51 


COMMOOORE  64,  ATARI.  APPLE  and  IBM  are  repistered  trademarks  of  Commodore  Business  Inc.,  Atari 
Inc.,  Apple  Comouter  Inc..  and  fntemational  Business  Machines  Inc..  respectiveiy. 


NEW  &  IMPROVED! 

For  Commodore.  Atari  &  IB!^ 
fntroducing: 

•  Mew  &  Improved  Cockpit 

•  Mew  Mavigation  Maps 

•  Software  Speech  {C-64  only) 


K  ^^^|l> 


wtmm 


Experience  the  reality  of  these  other 
great  simulations  from  Micro  Prose: 


Tile  Thriiting 
Submarine 
Simuialign 


Challengiig  and  Exciting 

Air  Combat  from  the 
Modern  Electronc  Cockpit! 


You  are  in  Command  - 

D-Oay  to  the 

Battle  o1  the  Bulge! 


Play  "Atari  Puzzler"  with  a  joi/stick. 


t22  SPflCES>" r POKE  DL+3 
,6B!P0SITiaN  3,23!PRI 
NT  "t4  SPACEBJTIME 
<.7    SPACES!"; 

£0240  A»1:PB-1  :  0A=1  s  TIME-10 
000 

FN250  IF  PEEK(704)-15  THEN 
G2= (OA-1 ) «4+l : POKE  70 
4,47 

HK  2&0  GOSUB  5?0:POKE  S324S, 
0IFOR  X-OY  TO  aY+7iP0 
KE  X,0:NEXT  X 

KD 270  DY-Y1«B+16+YBAS»4+SPR 
;FOR  X=l  TD  BsPDKE  QY 
+X-1 , SP(X) :NEXT  X:POK 
e  33248, 46+XBASI4+X1* 

a 

HD  280  GA-Ai  MAX==ROMtCOL:  J-5T 
ICK(0)-6iaN  J  BDTO  29 
0,340, 340,340, 300, 340 
,310,320!SOTO  340 
LP  290  A-A+liBQTO  330 
11300  A>A-li60T0  330 
BF310  A-A  +  CDLlGOTO  330 
FP320  A-A-COL 
B6  330  IF  ft>MAX  OR  A<  1  THEN 

A=aA 
H 340  IF  STRIBt01-PB  THEN  3 

B0 
JL  330  PB-STRIBCB)  !  IF  STRI6C 

0)-0  AND  PEEK(704)-0 

THEN  POKE  704, 15! GOTO 
380 
PC360  IF  STRIB(0)-0  AND  PEE 

K(704)=15  THEN  a=(A-l 

) t4+l lR-1 I BOSUB  S401T 

♦-A«i60SUB  570IPOKE  7 

04,0ieOTO  380 
KB  370  IF  STRI(3(0)-0  AND  PEE 

K(704)-47  THEN  BOSUB 

&00tPOK£  704,0 
18  380  POSITION  12,23iPRINT 

INT (TIME)!"  "i:TIME=T 

IME-0. 1 
JK  390  IF  TIME<0  THEN  PDSITI 

ON  3, 23: PRINT  " 

{3  SPACESJTIME' S  UP 

"I  1 Zl-20>  Z2-70I GOTO  4 

30 
DB  400  IF  A«  (  1  ,ROWtC0Lt4)>-B« 

(1 ,RaH«CDL«4)  THEN  PQ 

SITION  4,23iPRINT  "YD 

U  SOLVED  IT"|lZl-70lZ 

2.201 6OT0  430 
80  410  IF  AOOA  THEN  BOTD  25 

0 
BJ  420  GOTO  280 
PI  430  GOSUB  460:  POSITION  2, 

23lPRINT  "PRESS  FIREB 

UTTON"; 
Pi  440  IF  STRIG(0J  THEN  440 
AE4S0  POKE  5324B,0tGaTQ  70 
PC  460  FOR  A-Zl  TO  Z2  STEP  8 

6N(Z2-Z1) :SOUND  0, A, 1 

0,15lFaR  T-A-1  TO  A+1 


AL  470 


Iffl  480 


HP  490 
CL  500 


■SOUND  1, 

T I  POKE  7 

NEXT  AiPO 

A-13  TD 
UNO  0,Z2 
, Z2, 10, A 
N 

GET  #1 , A: 
R  fl>HN+4a 
A-A-48>RE' 
DATA  255,: 
255,235,2! 
70, 170, 17( 
0, 170, 83, I 
aS,S5, 85 


T, 10, 13l NEXT 
12,  A 

KE  712,0!FOR 
0  STEP  -liSQ 

10,AeSOUND  1 
NEXT  AiRETUR 

IF  A<LN+4a  0 

THEN  480 
TURN 

255, 255,255, 
55,255, 170, I 

, 170, 170, 17 
83,85, 85,85, 


Ji:si0 


BE  520 


BN  530 


PB  540 
IE  550 


BN  560 
!C  570 

JS  580 
KL  590 

OD  600 


DATA 
220, 
32,  1 
2,  25 

FDR 

PDKE 

II  *  II 

1  !PR 

ETUR 
T«-A 
)-A» 

2  +  3) 
IF  R 
T«=.A 
TO  R 
,1)- 
*<4, 
)  :T« 
NEXT 
ETUR 

GOSU 
AS  +  X 
NT  T 
XBA 
1 

PR  IN 
URN 
2=A 
1=-Z 
□  ■=<  A 
:  T« 
:  AA 
+  1  :  T 
ZZ:Q 


220 
220, 
32,  1 

2 
I-l 

B5, 
!  :  PO 
INT 
N 

«  <□, 
(Q2, 
-T» 
-0  T 
«  (Q, 

T2» 
T«  (3 
4)  I  T 
(2,  2 

Xi  A 
N 


,220, 220, 220, 
220,220,252, 1 
32,  132,  132,  13 

TO  (C0L+1)*2: 
9-C0L+I:PRINT 

KE  a5,28-caL+ 

»" J  I  NEXT  I : R 

D-t-3)  :  A«  (G,Q-(-3 
□  2  +  3)  : A«  (Q2, Q 
RETURN 
HP  ■  --■ 


)-T2« 

$ (Q, Q+3) =T«:R 


B  590:POSITiaN  XB 
1*2, YBAS+Y1«2!PRI 
$ (0,Q+1) sPOSITIDN 
S  +  XU2,  YBAS  +  Y1»2  + 

T  T« (D+2, Q+3) :RET 

1: Y1=INT(Z/C0L) : X 

YI »COL: RETURN 

1  J  »4+l I GOSUB  530 

A»:GDSUB  570:ZZ=A 

QjQ=Q2! A= (Q2-1 ) /4 

«=A»:BOSUB  570:A= 

AArRETURN 


Program  5:  Puzzler  For  IBM 

PC/PCjr 

Version  by  Kevin  Mykytyn,  Editorial 

Programmer 

For  instructions  on  entering  this  listing,  please 

refer  to  "COMPUTEI's  Guide  to  Typing  In 

Programs"  published  bimonthly  in  COMPUTE'. 

HP  10  DEF  SEG=0:POKE  1047,64:WID 

TH  40: KEY  OFF: SCREEN  0,0: C 

LS!X»-CHR«(219):CD(0)=15!C 

0(l)=14tC0(2)=12 
KF  20  COLOR  12:L0CATE  5,1B,0:PRI 

NT  "Puzzler": COLOR  9:LDCAT 

E  10,14:PRINT  "Enter  grid 

aize":LN=3iHN=7 
ON  30  LOCATE  14,  14:  PRINT  "Column 

»?  (3~7)":GDSUB  370!CGL=A 
CF  40  COLOR  10:  LOCATE  14,14:PRIN 

T  "Raws?    ": GOSUB  370: ROW 

"A 
£0  50  COLOR  14:L0CATE  10,14;PRIN 

T  "Hon  many  calars?":LN"2! 

HN=7 
PB  60  LOCATE  14,  14:  PRINT  "       ( 

2-7)       ": BOSUB  370sCDLR= 

A 
OF   70   CLS:LnCfiTe    1,12:  PRINT    "Con 

structing    puzzle"! LOCATE    2 


"IBM  PC /PCjr  Puzzler.' 


5, 16: COLOR  UsPRINT  "Pleas 
B  wait"; : COLOR  14 

OL  80  LOCATE  12-ROW,  1 :  GOSUB  390 

CD  90  FDR  1  =  1  TD  RaW*2!  PRINT;  PRI 
NT  TAfl(10-COL)X*i iPRINT  Tft 
B(11+C0L>X«! iPRINT  TAB (29- 
C0L)X«5 ! PRINT  TAB(30+COL)X 
•;: NEXT! PRINT: GOSUB  390 

MH  100  A»=""!FOR  A=l  TO  ROWtCOL* 
4i A»=A«+CHR» ( INT (RND ( U  tC 
OLR) +1)1  NEXT  A;B«-A» 

KN  110  FDR  ft=l  TO  RDWtCOL:Q=(A-l 
)  t4+l !  (a2-INT  (RND  (  1 )  «ROW«C 
0L>t4+l: BOSUB  400: NEXT  A 

OH  120  FOR  ft=l  TD  ROWtCOL:  R=RND  ( 
I) t4:Q=(A-l) t4+liG0SUB  41 
0: NEXT! IF  A«-B»  THEN  110 

SN  130  FDR  fi^l  TO  ROWtCOL:  Q=  (A-1 
) t4+l ! T«-B« : XBAS=30-COL: Y 
BAS-13-R0W: GOSUB  440:XBAS 
=11-C0L!T«=A*:G0SUB  440sN 
EXT 

EP  140  LOCATE  1,12: PRINT  STRING* 
(20, 32) 1  LOCATE  25, 13! COLO 
R  12!PRINT  "    Tim« 
"I 

PB  150  A=l:PB=l:Dfl=i:FL=0:TIME=R 
OWtCDLt2.5+30 

BD  160  IF  FL=1  THEN  02=  (0A~1 )  «4+ 
1 : FL-2 

KA  170  COLOR  CO(FL)  !ZZ=A!A=.OA:GO 
SUB  4601 A-ZZ I  LOCATE  YBAS+ 
Yl*2,XBAS-2: PRINT  "  " ; : LO 
CATE  YBAS-2,XBAS+X1»2!PRI 
NT  "  "! 

CJ  1B0  GOSUB  460: LOCATE  YBAS+Ylt 
2,XBAS-2iPRINT  CHR«(26);: 
LOCATE  YBAS-2,XBAS+Xlt2!P 
RINT  CHR»(2S) j 

B«  190  DA=A:MAX="ROWtC0L!K«=INKEY 
♦:K«-RIBHT*(K»,1)!J=ASC(K 
«+CHR»(0) )-71lON  ABS(J)  8 
OTD  200,250,250,210,250,2 
20 , 250 , 250 , 230; GOTO  250 

it   200  A=A-C0L:BDTO  240 

LO  210  A=A-1:60TD  240 

Kft  220  A=fl+l!G0TO  240 

DP  230  A=A+CaL 

PL  240  IF  A>MAX  OR  A<1  THEN  A=OA 

ES  250  IF  J=PB  THEN  290 

05  260  PB=J:IF  J=-58  AND  FL=0  TH 
EN  FL-1:G0T0  290 

W  270  IF  J =-58  AND  FL=1  THEN  G= 
(A-1) «4+l:R-ls GOSUB  410: T 
*-A«! BOSUB  440tFL~0iGOTO 
290 

EP  280  IF  J=-5B  AND  FL=2  THEN  GO 
SUB  470:FL-0 

KI  290  LOCATE  25,  21:  COLOR  12:  PRI 
NT  INT(TIME)"  ";!TIf1E-TIM 
E-.025 

W  300  IF  TIME<0  THEN  LOCATE  25, 
13iPRINT  "     Time'B  up 

"! :Z1-500!Z2«100:GOTO  3 
30 
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NEW  =  = 

FOR=  ^^ 

vni  iR=^  = 

MacOffice;  Using  the  Macintosh  for  Everything 

Sharon  Aker  Paul  Freiberger        Arlan  Levitan 

Selby  Bateman      Vahe  Cuzelimian     Dan  McNeill 
Charles  Brannon 

This  newest  release  from  COMPUTE!  Books  shows  you  how  to  get 
the  most  out  of  your  Macintosh  and  software.  Practical  demonstra- 
tions teach  you  how  to  fully  utilize  several  commercially  available 
programs,  such  as  Microsoft's  Word,  Chart,  File,  and  Multiplan, 
Apple's  MacTerminal,  and  others.  You'll  see  how  to: 

•  Create  form  letters  with  Word, 

•  Use  Multiplan  for  your  accounting, 

•  Share  information  between  offices  with  MacTerminal. 

Here  are  the  ins  and  outs,  hints  and  tips  on  how  to  use  each  pro- 
gram most  efficiently,  and  previously  undocumented  techniques. 
Extensively  illustrated  with  actual  Macintosh -created  docu- 
ments and  graphics,  MacOffice  shows  you  how  you  can  integrate 
programs,  let  them  share  information,  making  it  even  easier  to 
manage  your  business  with  a  computer.  You'll  also  learn  about 
networks — where  computers,  printers,  and  other  devices  are  con- 
nected to  create  an  office-wide  working  environment — with  details 
on  how  to  create  a  network,  and  what  to  look  for  in  network 
software, 

$18.95     ISBN  0-87455-006-8 


personal 
computer 


MacOffice 


UsInQ  the  MaclntMh' 
for  EverylNrvo 


[paJOo  inrormatkan.  CirocflCQl  applccnfcffl.  and  Wnt^ 

pnd  IW  on  t»w  Moclnlotfi  ihow  yo<j  haw  in  um 

Ivfccrowtt"  Wtvd  FfB.  ChCJft  Multlpkn*  and 

iWdcTewnintf  -  to  tun  vouf  offce  hto  a  frwro 


Look  for  these  new  titles  at  your  local  book  or  computer 
stores  or  order  directly  from  COMPUTE!  Books. 


COMPUTEI'S 
SECOND  BOa< 
OF 


RootJirtouas  homs 

titQ^^n^  fnt  QcHon  Qorrm,  qud^v 

prosromming  \jmn  for  tha  d^^spta  1. 1+. 
le.  ond  ic  ccmputao. 


<lCOWUTB  WMkM  Pt^QtPlQft 


COMPUTE!  Books  are  available  in  the  U.K.,  Europe,  ihe 
Middle  East,  and  Africa  irom  Holt  Saunders,  Ltd.,  1  St, 
Anne's  Road,  Eastbourne,  East  Sussex  BN  21  3UN  England. 

COMPUTE!  Publicattons,lnc.® 


COMPUTE!'s  Second  Book  of  Apple 

Edited 

With  over  30  programs,  this  collection  for  Apple  II +,  He,  and  Mc 
owners  contains  arcade-style  games,  games  of  logic  and  education, 
applications,  graphics  generators,  and  programming  utilities.  Com- 
piled from  the  most  recent  issues  of  COMPUTE!  magazine  and 
COMPUTE'S  Apple  Applications  Issue,  these  programs  include 
dazzling  graphics,  high-speed  game  play,  and  valuable  program- 
ming techniques.  All  the  programs  are  ready  to  type  in. 

Applications  calculate  your  financial  situation  and  turn  your 
computer  into  a  remote  terminal  for  accessing  sophisticated 
databases.  Action  games  put  you  in  a  jet  fighter  and  in  a  bowling 
alley.  Educational  games  range  from  a  five-level  chess  game  to  a 
program  which  lets  you  write  quizzes  on  any  subject.  Graphics  and 
programming  utilities  help  you  design  custom  graphics  or  put  a 
RAM  disk  in  your  lie. 

$12.95     ISBN  0-87455-008-4 

There  is  also  a  disk  available  which  includes  the  programs  in  the 
book.  You  can  order  this  disk  directly  from  COMPUTE!  for  only 
$12.95  plus  $2.00  shipping  charges. 

To  order,  call  toll-free  800-334-0868  (in  NC  919-275-9809)  or  mail 
your  payment  (including  $2.00  shipping  charges)  to  COMPUTE! 
Books,  P.O.  Box  5058,  Greensboro,  NC  27403. 


NF 

320 

PB 

330 

EB 

340 

GH 

350 

PD 

360 

OC  310  IF  A»=B»  THEN  LOCATE  25,  1 
SiPRINT  "You  solved  it";! 
Z 1-100:22-500! GOTO  330 
IF  AOOA  THEN  li0  ELSE  IF 

J— 58  THEN  170  ELSE  190 
GOSUB  360! LOCATE  25, 13: PR 
INT  "  Press  any  key   "; 
A«-INKEY«iIF  AS=""  THEN  3 
40 
RUN 

FOR  A=Z1  TO  Z2  STEP  20t5G 
N(Z2-Z1): SOUND  A, 2: COLOR 
0,0,RND(l)«6+l!FDR  TD«1  T 
0  99! NEXT! NEXT! COLOR  15,0 
,0! RETURN 

L£  370  Z=RND(1) :Kt=INKEY*:A=VAL( 
K«) I  IF  A<LN  OR  A>HN  THEN 
370 

m   380  RETURN 

HI  390  FOR  1  =  1  TD  (COL+1 )  «2s  LOCA 
TE  ,9-COL+l! PRINT  X*|!LOC 
ATE  ,2B-CaL+ 1  SPRINT  X»;!N 
EXT  I ! RETURN 

6K  400  T*=MID«(A«,Q,4)!MID»(A»,a 
, 4> -MID*  < A», Q2, 4) ! MID«  CAS 
,Q2,4)=T«iRETURN 

BE  410  IF  R=0  THEN  RETURN 

PK  420  T«=MID»(A«,Q,4>!FOR  X=l  T 

0  RlT2»-MID»(T«, 1,1):MID» 
(T«,l,  l)-riID»tT«,3,  1)  sMID 

»<T»,3, 1)-=MID»(T«,4,  1):MI 
D«(T»,4,1)-MID«(T»,2,1)SM 
ID*(T«,2,1)-T2$ 

OF  430  NEXT!MID*(A*,a,4)=T«8RETU 
RN 

GC  440  GOSUB  460:  LOCATE  YBAS+Yl* 
2,XBAS+Xl»2lC0L0R  ASC(MID 
*(T«,Q,1)}!PRINT  X«;!COLD 
R  ASC(MID»{T»,Q+1,1) ) !PRI 
NT  X*;: LOCATE  YBAS+Y 1*2+1 
,XBfiS+Xl«2 

JH  450  CDUOR  ASC{MID*(T«,a+Z, 1)) 

1  PRINT  X») I  COLOR  ASC(MID» 
(T«,a+3, 1) )! PRINT  X»;:RET 
URN 

EB  460  Z=A-l!Yl=INTCZ/CDL) !X1=Z- 
YltCOL: RETURN 

CP  470  D=(A-1)«4+1:  GOSUB  400:  T«= 
A»!BOSUB  440iZZ-A!AA-Q!Q- 
Q2! A- {Q2-1 ) /4+1 ! T»-A»! eOS 
UB  440: A-ZZiQ=AA I  RETURN 


Program  6:  TI-99/4A  Puzzler 

Version  by  Patrick  Parrish, 
Programming  Supervisor 


100  RANDO 
AR  :  : 
LL  MA 

110  BOSUB 
EEN  (2 
,  11)  : 
ISPLfl 
T  GF^I 

120  DISPL 
WS  ? 
,  18) 
>6  TH 

130  DISPL 
LUMNS 
{  16 
R  C>6 

140  DISPL 

MANY 

:  :  AC 

OLS  : 

0LS>6 

150  CALL 
TO  B 


MIZE 
GOS 

GNIF 

370 

) 

"PUZ 
Y  AT 
D  SI 
AY  A 


R  : 
EN 

AY 


0>  :  C 
THE 

AY  A 
COL 

CEPT 

:  IF 
THE 

CLEA 


CAL 
UB  380 
Y  C3) 

CAL 
DISPLAY 
ZLER  : " 
(12,4): 
ZE  t3-6 
T(14,  1  J 
ACCEPT 

IF  R<3 
20 

T(16, 10 
: :  ACCE 

:  :   IF 
N  130 
T ( 18, 3) 
ORS   (2- 

AT ( 18, 

C0LS<2 
N  140 
R  :  :  FO 
CALL  CO 


L  CLE 
CA 

L  SCR 

AT  (7 
:  :  D 

"  INPU 
) 

)  :  "RO 

AT  (  14 

OR  R 

)  :  "CO 
PT  AT 
C<3  0 

:  "HOW 
6)  ?■■ 
6)  :C 
OR  C 

R  1  =  1 
LOR  (  I 


"Puzzler"  for  the  TI-99/4A  can  be 
played  with  a  jo]/stick  or  the  keyboard. 


,2,1)::  NEXT 
L  SCREEN ( IS) s 
3  :  :  U=INT  (  (  1 
:  D=RtC«10 
TE=12-R  ; :  DI 

(2,5): "CONSTR 
UZZLE"  ! :  DIS 
23, 9) : "PLEASE 
MT=C«2+2  : :   C 
R (TE, U, 35, MT) 
HCHAR (TE, U+16 
:  A=R*2 
CALL  VCHAR(TE 
A) : :  CALL  VCH 
U+Ct2+1 , 35, A) 
VCHAR (TE+1 , U+ 
: :   CALL  VCHAR 
Ct2+17, 35, A) 
CALL  HCHAR(A+ 
5, MT) : :   CALL 
TE+1 , U+16, 35, 
TE+1  : :  X=U 
At=" "   : :   FDR 
«C*4  : :  RANDO 
A*  =  ASS(CHR*  (  IN 
LS) *a+96) : :  N 

B*=A$  : :  FDR 
RtC 


160 


170 


180 


190 


200 


210 


220 


230 


TEM«=SEe* ( A*, T, t J : :  ^ 
1=INT(RND»4) : :  FOR  J= 
I  TO  Rl  : :  GOSUB  520 
: :  NEXT  J  : :  GOSUB  53 
0  : :  NEXT  T  : :  IF  A4= 
B«  THEN  200 

240  FOR  1=0  TO  R-1 
J  =  0  TO  C-1  :  : 
420 

250 


260 


270 
280 


NEXT  J  : :  NEXT  I  : :  U 
ALL  HCHAR (2, 7,32, 19) : 
:  CALL  HCHAR (23, 1 1 , 32 
,11)::  SC=2  ::  LY=TE» 
8+1  : :  LX=Ut8+l  : :  SY 
S> 
) 

TIM 
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3L-  — i    ;.    i_i  —  It 

LX=Ut8+l  : :  £ 
-,.  .   .  .  SX  =  LX  :  :  Q-=l 
:  F,I,J=0 

DISPLAY  AT(2,10):"T: 
E  :  •■  ;  D 

CALL  SPRITE (#1 , 100, CS 
(F) , SY, SX) : :  D=D-. 25 


I  : :  CAL 
:  U=C«2+ 
9-U) /2) : 

320 
330 

SPLAY  AT 

UCTING  P 

PLAY  AT( 
WAIT" 

340 

ALL  HCHA 

: :  CALL 

, 35, MT) : 

+1,U,35, 

350 

AR(TE+1, 

: :  CALL 

16,3S, A) 

(TE+1,U+ 

TE+1 ,U, 3 

360 

HCHAR(A+ 
MT) : :  Y= 

370 

1=1  TO  R 

MIZE  : : 
T(RND*CO 

380 

EXT  I  :  : 

1  =  1  TO 

:  :  DISPLAY  AT (2,  16)  :  I 
NT (D) : :   IF  INT (D) =0  T 
HEN  GOTO  340 
290  CALL  KEY (0, K, ST) : :   CA 
LL  KEY ( I , KK, STJ : :   IF 
ST=0  THEN  CALL  JOYST( 
1 , H, V)  :  :  H  =  5GN (H)  :  :  V 
=SGN(-V)ELSe  H=(K=B3) 
-(K=6B)::   V=(K=69)-(K 
=  88) 
300  J=J+H  ::  I=I+V  ::  J=J 
+  ( J>C-1) *C- (J<0) «C  :  : 
1=1+ ( I >R-1 ) «R- ( I<0) « 
R  :  :  SX  =  LX  +  a* 16  :  :  SY 
=LY+I t 16  : :   IF  KK=1B 
OR  K  =  32  THEN  GDSUB'*40 
310  IF   (DXOSX  OR  OY<>SY) 
AND  F=l  THEN  F=2  : :  G 
OSUB  470 

IF  A«<>BS  THEN  280 
FOR  l-l     TO  30  STEP  3 
::  CALL  SOUND (75, 220+ 
20*1,4)::  CALL  SCREEN 
( INT ( 1/2) +1 ) : :   NEXT  I 

: !   REM  WIN  GAME 
FOR  1=30  TO  1  STEP  -3 
::  CALL  5OUND(73,220 
+20*1,4)::  CALL  SCREE 
N ( INT ( 1/2) +1 ) : :   NEXT 
I   : :   CALL  SCREEN* 15> 
DISPLAY  AT (23, 6) : "PLA 
Y  AGAIN  (Y/N) 7"      : :   AC 
CEPT  AT (23, 24) BEEP  VA 
LIDATE ( " YNyn" >  :  At  :  : 
IF  A»="N"  OR  At="n"  T 
HEN  STOP 

CALL  DELSPRITE (#1 ) : : 
GOTO  110 

CALL  CLEAR  : :   FOR  I»l 
TO  8  -.  :  CALL  COLOR  (  I 
,16,1)::  NEXT  1  : :   RE 
TURN 

CALL  CHAR ( 100, "FF80a0 
8  0808  080808  0808080  808 
0B0FFFF010 10101010 101 
0101010I010101FF" ) 
390  FDR  1=96  TO  136  STEP 
a  : :  CALL  CHAR ( I, "FFF 
FFFFFFFFFFFFF" ) : :   NEX 
T  I 
400  FOR  1=9  TO  14  ::  READ 
A  : :  CALL  COLOR ( I , A, 
1  )  :  :  NEXT  I  :  :  CALL  C 
HAR  <35, RPT« (  "F" ,  16)  )  : 
:  FOR  F=0  TO  2  : :  REA 
D  CS (F) : :   NEXT  F  : :   R 
ETURN 
410  DATA  3,5,7,8,11,14,2, 

16,  10 
420  DISPLAY  AT ( Y+2*I , X+2* 
J-1) :SEG«(A*,J«4+1+IN 
T ( ( 1*2+1 ) /2) «C*4, 2) ; : 
:  DISPLAY  AT(Y+2«I+1, 
X  +  2*J-n  :SEQ*(A*,J*4  + 
3+1  NT (  (2«I  +  1)/2)*C*4, 
7  )  • 


430 

RETURN 

440 

IF  F=0  THEN  OX=SX  : : 

OY=SY  : ;  QQSUB  510  : : 

Rl=T  : :  F= 1  : :  GOSUB 

470  : :  OJ=J  : :  01=1 

: :  RETURN 

450 

IF  F=l  THEN  GOSUB  510 

! :  TEM*=SEBS (A», T, 4) 

: :  GOSUB  520  : :  GOSUB 

530  : :  GOSUB  420  : : 

F=0  : :  GOSUB  470  : :  R 

ETURN 

460 

BOSUB  510  : :  R2=T  : : 

GOSUB  480  : :  GOSUB  42 

0  ::  TJ=J  ::  TI=I  :: 

1=01  : :  J=DJ  : :  GOSUB 
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4 

470  C 

480  r 

490  I 

R 
S00  A 

S 


510  T 
) 
M 

520  T 
E 
M 
) 
A 

530  A 
* 


420 
70  : 

RET 
ALL 

RET 
F  Rl 
:  RE 
F  R2 
B  =  R2 
1 

S  =  5E 
(AS, 
B-A- 
EG*  ( 
5)  :  : 
=  J*4 
«C*4 

CAL 
EMS  = 
G*  (T 

R 

TE 

t  =  SE 

a<SE6 

T-3) 

SUBS 

BSTR 


: :   F=0  : :   GOSUB 
:   J=TJ  : :   I=Tr   : 
URN 

COLOR (#1 , CS (F) ) : 
URN 
=  R2 
M  TR 
>R1 
ELS 


THEN  RETURN 
AN5PDSE 
THEN  A=R1   : : 
E  A=R2  : :   B= 


G*  CA 
B,  4) 
4)  &S 
AS,  B 
RET 
+  1  +  1 

C  ST 
SEG$ 
EM* 
1  )  S.S 
ETUR 

G*  (A 
$  <A4 
:  :  R 
TITU 
ING 


*,  1, 
StSEG 
E64  C 
+  4,L 
URN 
NT  (  ( 
RETU 
RING 
(TEM 
1,1) 
EGS  C 
N     :  : 


ft-1  )  !<SEB 
$ (AS, A+4 
AS, A, 4) & 
EN (AS) -B 

I «2+l ) /2 
RN     : :      RE 

POINTER 
*,3, 1 J&S 
&BEES (TE 
TEMS, 2, 1 

REM     ROT 


4,1,  T-1  )  S<TEh 
, T+4, LEN (AS) 
ETURN  : :  REM 
TE    ROTATED     S 


"Puzzler"  mm  on  any  Apple  U-series 
computer. 

Program  7:  Apple  Puzzler 

Version  by  Kevin  Martini,  Editorial 
Programmer 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTERS  Guide  to  Typing  In 
Programs"  published  bimonthly  in  compute!. 

19    100    AS    =    "":     IF    PEEK     (24576) 

=  162  THEN  140 
55  110  FOR  I  =  24576  TO  24872 
BZ  120  READ  A:  POKE  I,  A 
FE  130  NEXT 
C5  140  HIMEM:  24576 
31  150  GOSUB  550 
SI  li0  IF  T  =  0  THEN  WTAB  21:  PR 

INT  TABC  14) "OUT  OF  TIME" 

!  GOTO  380 
BB  170  HTAB  17:  VTAB  23:  PRINT  T 

V   180  T  =  T  -  1 

a  190  IF  PEEK  (  -  163B4)  <  128 

THEN  li0 
II  200  GET  CS!  IF  (CS  <     "I"    OR  C 

*    >    "L")  AND  C*  <  >  "  "  T 

HEN  160 
Bl  210  R  =  R  -  (C«  =  "I")  +  (CS 

=  "K") 
59  220  C  =  C  -  (CS  =  "J")  +  (CS 

_  ML", 

TE  230  IF  R  <  0  THEN  R  =  0 

9E  240  IF  R  >  =  R3  THEN  R  =  R3  - 

1 

(If  250  IF  C  <  0  THEN  C  =  0 
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DE   260    IF    C    >    =    C3    THEN    C    =    C3 

1 
41   270    POKE    773,  XI    +   C    *    2    -    1: 

POKE    772, Yl    +    R    »    2    -    I: 

CALL    24671 
CI   2S0    IF    C*    <     >    ■■     "    THEN    160 
<4   290    IF    F    =    0    THEN    440 
M   300    F    =    0:     IF    RR    =    R    AND    CC    ■ 
C    THEN    GOSUB    5108     GOTO    : 

20 
li   310    GOSUB   460 
D2   320    CALL    24691 
»   330    POKE    768, Xl:     POKE    769, Yl 

CALL    24576 
Bl   340    POKE    773,  XI    +    C    t    2    -    1: 

POKE    772, Yl    +    R    »    2    -    1: 

POKE  774,255:  CALL  24753 
C!  350  IF  AS  <  >  BS  THEN  160 
Dfl  360  CALL  24691 
7*  370  HOME  8  PRINT  TAB  ( 

RRECT ! " 
59  380  HTAB  13:  VTAB  22: 

PRESS  ANY  KEY. " 
IC  390  HTAB  17:  VTAB  23: 
IF  400  POKE  -  16368,0 
IF  410  IF  PEEK  (  -  16384) 

THEN  410 
D*  420  GET  AS 
AC  430  RUN 

30  440  F  =  1:RR  =  R:CC  =  C: 
773, XI  +.  C  «  2  -  l! 
772, Yl  +  R  t  2  -  1: 
CALL  24671 


16) ; "CO 


PRINT 


PRINT  T 


<  128 


POKE 
POKE 

POKE 


774,1191 
9B  450  GOTO  160 

B9  460  AA  =  SS  +  2  t  NC  «  RR  +  2 
«  CC:A  =  SS  +  2  »  NC  «  R 
+  C  t  2 
«  470  D  =  PEEK  (A) :  POKE  A,  PEE 

K  (AA);  POKE  AA.D 
CI  480  D  =  PEEK  (A  +  1):  POKE  A 

+  1,  PEEK  (AA  +  1) :  POKE 

AA  +  1,D 
9B  490  D  =  PEEK  (A  +  NC)  !  POKE  ft 
+  NC,  PEEK  (AA  +  NC):  PO 

KE  AA  +  NC,D 
S(  500  D  =  PEEK  (A  +  NC  +  1):  PO 

KE  A  +  NC  +  1,  PEEK  (AA  + 
NC  +  1 ) :  POKE  AA  +  NC  + 

1,0:  RETURN 
IE  510  A  =  SS  +  2*NC*R  +  C« 

2 
4B  520  D  =  PEEK  (A)  :  POKE  A,  PEE 

K  (A  +  NC) 
K   530  POKE  A  +  NC,  PEEK  (A  +  NC 

+  1) 
iF  540  POKE  A  +  NC  +  1,  PEEK  (A 

+1):  POKE  A  +  1,D:  RETUR 

N 
i^  550  TEXT  s  HOME 
IB  560  PRINT  TAB(  16) ; "PUZZLER" 
F2  570  INPUT  "NUMBER  OF  ROWS  (2- 

7)  :  ";R3 
JS  300  IF  R3  <  2  OR  R3  >  7  THEN 

570 
n   590  INPUT  "NUMBER  OF  COLUMNS 

(2-7):";C3 
6F  600  IF  C3  <  2  OR  C3  >  7  THEN 

590 
eC  610  INPUT  "NUMBER  OF  COLORS  { 

2-15) :";CD 
FB  620  IF  CO  <  2  OR  CD  >  15  THEN 

610 
«D  630  PRINT  "PLEASE  WAIT..." 
FC  640  NR  =  2  «  R3:NC  =  2  t  C3 
7E  650  FOR  A  =  1  TO  NR  t  NC:B  = 

INT  <  RND  (1)  »  CD  +  Dift 

«  =  AS  +  CHRS  (B  +  B  »  16 

) !  NEXT  :B$  -  AS 
fi2  660  ft  ■=  PEEK  (105)  +  PEEK  (10 

6)  «  256 
CF  670  SS  =  PEEK  (A  +  3)  +  PEEK 

(A+4)  t  256 
H   680  XI  =  10  -  C3:Y1  =  9  -  R3: 

X2  =  XI  +  20 
51  690  POKE  24600,  PEEK  (A  +  3)  : 


POKE  24601,  PEEK  (A+4) 
9i  700  POKE  768,  X2:  POKE  769,  Yl: 

POKE  770, NCs  POKE  771, NR 

+  Yl 
<9  710  BR 

F*  720  CALL  24576 

ED  730  FOR  R  =  0  TO  R3  -  1:  FOR 
C  =  0  TO  C3  -  1:B  =  INT  ( 

RND  (1)  »  4) 
4B  740  IF  B  THEN  GOSUB  510:  B  =  B 

-  1:  GOTO  740 
a   750  NEXT  :  NEXT 
42  760  FOR  R  =  0  TO  R3  -  1 :  FOR 

C  =  0  TO  C3  -  1 
H  770  RR  =  INT  (  RND  (1)  »  R3> : 
CC  =  INT  (  RND  (1)  «  C3) : 

BOSUB  460s  NEXT  s  NEXT 

12  780  POKE  768,  XI:  POKE  769,  Yl: 

CALL  24576 
5E  790  HOME  :  PRINT  TAB  (  16);"PU 

ZZLER" 
2t   800  POKE  772,  yi.    -    1:  POKE  773 

,X1  -  1:  POKE  774,255:  CA 

LL  24753 
B3  810  R  =  0SC  =  0:T  =  NR  t  NC  « 

75:  RETURN 
IE  820  DATA  162,0,172,1,3,185 
C9  830  DATA  47,96,24,109,0,3 
91840  DATA  133,251,185,71,96,10 

5 
72  850  DATA  0,133,252,160,0,189 
B6  860  DATA  140,89,145,251,232,2 

00 
ftF  870  DATA  204,2,3,208,244,238 
7B  880  DATA  1,3,173,1,3,205 
DD  890  DATA  3,3,208,212,96,0 
7E  900  DATA  128,0,128,0,128,0 
39  910  DATA  128,40,168,40,168,40 
F5  920  DATA  168,40,168,80,208,80 

13  930  DATA  208,80,208,80,208,4 
*ft  940  DATA  4,5,5,6,6,7 

21  950  DATA  7,4,4,5,5,6 

IE  960  DATA  6,7,7,4,4,5 

3E  970  DATA  5,6,6,7,7,32 

Cfi  980  DATA  115,96,76,177,96,24 

EJ  990  DATA  121,47,96,133,251,18 

5 
K   1000  DATA  71,96,105,0,133,252 
IB  1010  DATA  96,172,7,3,173,8 
Ffi  1020  DATA  3,32,101,96,160,0 
47  1030  DATA  162,0,189,9,3,145 
D!  1040  DATA  251,232,200,200,200 

,189 
A5  1050  DATA  9,3,145,251,232,173 
8C  1060  DATA  7,3,24,105,3,141 
31  1070  DATA  7,3,168,173,8,3 
72  1080  DATA  32,101,96,160,0,189 
9:  1090  DATA  9,3,145,251,232,200 
CD  1100  DATA  200,200,189,9,3,145 
BD  1110  DATA  251,232,96,172,4,3 
Cfi  1120  DATA  140,7,3,173,5,3 
19  1130  DATA  141,8,3,32,101,96 
27  1140  DATA  160,0,162,0,177,251 
47  1150  DATA  157,9,3,232,41,15 
6D  1160  DATA  145,251,173,6,3,41 
31  1170  DATA  240,17,251,145,251, 

200 
IF  1180  DATA  200,200,177,251,157 

,*? 
FE  1190  DATA  3,232,41,15,145,251 
11  1200  DATA  173,6,3,41,240,17 
3fi  1210  DATA  251,145,251,173,4,3 
FB  1220  DATA  24,105,3,141,4,3 
HF  1230  DATA  168,173,5,3,32,101 
2F  1240  DATA  96,160,0,177,251,15 

7 
DF  1250  DATA  9,3,232,41,240,145 
31  1260  DATA  251,173,6,3,41,15 
IF  1270  DATA  17,251,145,251,200, 

200 
EE  1280  DATA  200,177,251,157,9,3 
94  1290  DATA  232,41,240,145,251, 

173 
C(  1300  DATft  6,3,41,15,17,251 
23  1310  DATA  145,251,96        © 


"If  you  know  BASIC  and  want  to  learn 
macliine  language,  this  is  the  place  to  start 
....  Building  on  your  experience  as  a 
BASIC  programmer,  Mansfield  very  gently 
takes  you  through  the  fundamentals  of 
machine  language." 

— Whole  Earth  Software  Catalog 

COMPUTE!  Books' 

Best-seilmg  Machine  Language  Books 


'Understandable' 


-The  New  York  Times 


"Presents  the  machine  language  novice  with  a  v^ry 
good  tutorial  in  simple,  understandable  terms." 

— Antic 

"I  highly  recommend  Machine  Language  for  Begin- 
ners as  your  first  introduction  to  the  world  of 
machine  language."  — Commodore  Poiirer/f  lay 


The  LADS  Disk 

LADS,  the  assembler  used  in  The  Second  Book  of 
Machine  Language,  is  available  on  disk  for  only  $12.95. 
This  is  a  great  accompaniment  to  the  book,  saving  you 
hours  of  typing  time  by  providing  the  complete  source 
and  object  programs  for  oil  versions  of  the  assembler, 
and  more.  And  LADS  disks  are  specific  to  your  Apple, 
Atari,  or  Commodore  computers. 


Machine  Language 
for  Beginners 

Richard  Mansfield 
Most  commercial  software  is 
written  In  machine  language  be- 
cause It's  far  faster  and  more 
versatile  than  BASIC.  Machine 
Language  for  Beginners  Is  a 
step-by-step  introduction.  In- 
cludes a  simple  assembler,  a 
disassembler,  and  utilities,  to 
help  beginners  write  programs 
more  quickly  and  easily. 
$14.95 

ISBN  0-942386-11-6 


Machine  Language  for  Beginners  and  The  Second  Bool<  of  Machine  Language: 
everything  you  need  to  leom  machine  language  programming 
on  your  Apple,  Atari,  and  Commodore  personal  computers. 


The  Second  Book  of 
Machine  Language 

Rlchord  Mansfield 
The  follow-up  to  the  best-selling 
Mactiine  Language  for  Begin- 
ners, this  book  leads  the  pro- 
grammer deeper  Into  the  most 
powerful  and  efficient  program- 
ming techniques  available  for 
personal  computers.  Fully  tu- 
torial, with  easy  step-by-step 
explanations,  the  book  shows 
how  to  construct  significant, 
effective  machine  language 
programs.  Included  Is  a  high- 
speed, professional-quality,  la- 
bel-based assembler,  Ever/thing 
that's  needed  for  optimized 
programming  on  the  Com- 
modore 64,  Apple,  Atari,  VIC-20, 
and  PET/CBM  computers. 
SI  4.95 

ISBN  0-942386-53-1 


To  Order;  Call  Toll  Free  800-334-0868  (in  NC  919-275-9809)  or  moil  this  coupon  with  your  pay- 
ment to  COMPUTE!  Books,  P.O.  Box  5058,  Greensboro,  NC  27403. 


The  Second  Book  of  Macliine  Language,  $14.95 

Machine  Language  for  Beginners,  $14.95 

LADS  Disl<  (Apple)  $  1 2.95 

LADS  Disic  (Atari)  $1 2.95 

MD5£?/s/f  (Commodore),  $12.95 

n  Payment  Enclosed  (check  or  money  order) 

D  Chorge    D  MasterCard     D  Visa     D  American  Express 

Acct.  No 

Signature 

Name 


Address . 

City  

State 


1  Book  for 

2  Books  for 
LADS  Disl<  for 


NC  residents  odd 
4.5%  sales  tax 

Shipping  and  handling 
($2.00  per  book 
$1.00  per  disk) 

Total  Paid 

All  orders  must  be  prepaid. 
Please  allow  4-6  weeks  lor  delivery. 


$14.95 
$25.00 
$12.95 
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1.            2.        F- 15  Strike  Eagle 

MicroProse 

Air  combat  simulation 

• 

• 

• 

• 

2.            3.       Flight  Simulator  II 

SubLogic 

Aircraft  simulation 

• 

• 

• 

3.                      Goto 

Spectrum 
Holobyte 

Submarine  simulation 

• 

• 

4.            5.       Karateka 

Brederbund 

Action  karate  game 

• 

• 

5.             4.        Flight  Simulator 

Microsoft 

Aircraft  simulation 

• 

1 ,             2.        Typlr^g  Tutor  III 

Simon  &  Sctiuster 

Typing  instruction  program 

• 

• 

• 

• 

2.            3.       Math  Blasterl 

Davidson 

Introductory  moth  program. 

• 

• 

• 

• 

ages  6-12 

3.             1 .       New  Improved 

Scarborough 

Typing  instruction  program 

•        • 

• 

• 

• 

MaslerType 

4 ,                       Charlie  Brown 's  ABC's 

Random  House 

Letter  and  word  introduction, 
ages  3-4 

• 

• 

5,            5.       Music  Construction  Set 

Electronic  Arts 

Music  composition  program 

• 

• 

1.             1.       Print  Shop 

Brodefbund 

Do-it-yourself  print  shop 

• 

• 

2.            4.        r/ie  Newsroom 

Springboard 

Do-it-yourseif  newspaper 

• 

• 

• 

3.            2.       Wn^  S/iop  Graphics 

Br©derbund 

100  additional  graphics 

• 

• 

Library 

4.                      Prfn/  Ma5/er 

Unison  World 

At-home  print  shop 

• 

5,                       Bank  Street  Writer 

Brsderbund 

Word  processor 

• 

• 

• 
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THE  ULTIMATE  DISK  UTILITIES  FOR  YOUR  64 
&  1547  DRIVE! 
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.TEST  8. 


FAT-TwsJi 


$39.95 

To  Order  CALL 


805-687-1541  ext.  94 


WORLD'S  FASTEST  DATA  COPIER  actually 
Dacks-up  unprotected  disks  in  just  ONE  MINUTE!!! 
Removes  errors  while  copying  to  recover  lost  data! 
SUPER-FAST  (8  second)  format  to  track  40.  SUPER- 
QUICK  Scan  for  errors  S  Half-Tracks!  FAT -TRACK 
COmmjfTlON  KIT  with  State-of-the  Art  FAT-TRACK 
EMOljftTOI?  allows  mo?t  i54T's  to  put  on  new  "wide- 
.-track"  proteaion  &  spe^s  loadfRgpLNEW  "wide-track" 
protected  products/jrue  GCR  editorlor-ariaJysJs  from 
.c^ri,  i.^n  "^/iTH-ab^-Sate  &  Half-Track  cdntroHf- 

-adertTsynd  &  data  blocks  of  3riy  length 
If  I  HtA,  ,Mji_ii,  ci  GCI?  byte«l  Use  with  piskMaker'"  to 
dunlirjjip  pxtra-tougti  protefeon.  Package  a/SQ-fhcludes 
)^MSD  Drive  Of^assembier,  JMSD  Sfjeedloader, 
"""  Alignmer^  package;'  and/nore!! 
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MORE 
FANTASTIC 


COMPUTEI's  Afari  Coltection,  Vol.  2 

Edited 

More  than  30  never  before  published 
programs  and  articles  make  COMPUTEI's 
Atari  Collection.  Vol.  2  an  outstanding      9~ 
value  and  an  excellent  addition  to  any 
software  library.  Packed  full  of  games  like 
"Speedway,"  "Electronic  Football," 
"Termite,"  and  "Granite  Cracker," 
applications  sucfi  as  "Personal  Net  Wortti 
Statements,"  and  numerous  tutorials  and 
utilities,  this  book  brings  you  the  variety 
and  value  you've  come  io  expect  from 
COMPUTE!  Publications.  A  disk  is  also 
available  for  $12.95  whicti  Includes 
programs  in  ttie  book. 
$14.95     ISBN  0-87455-029-7 


40  Great  Flight  Simulator  Adventures 

Charles  Gulick 

Forty  exciting,  customized  flight  simulator 
scenarios  put  you  in  the  pilot's  seat  as  you  fly 
under  bridges,  around  skyscrapers,  and  land 
at  mysterious  airports.  Fligt)t  Simulator  (IBM 
PC)  and  Fllgtit  Simuiator  il  (Apple  11, 
Commodore  64,  Atari  800  XL)  are  two  of  the 
most  popular  games/simulations  for  personal 
computers.  With  this  book,  you  can 
experience  flight  adventures  from  the 
moment  you  load  the  program.  Parameters 
set  up  each  flight  and  a  running  commentary 
describes  what  you'll  see  (and  where  to  look 
to  see  It).  You'l!  land  in  San  Ciemente  without 
engine  power,  sightsee  over  the  Hudson  j 

River,  practice  night  flying,  and  put  your         * 
aircraft  through  Its  aerobatic  paces.  Ranging 
from  the  simple  and  straightforward  to  the 
advanced  and  even  mystical,  these  40 
flights  will  open  a  new  dimension  to  an 
already  outstanding  program. 
S9.95     ISBN  0-87455-022-X 


This  fall  COMPUTE!  Books  brings  you 
the  best  in  gannes,  utilities,  graphics, 
music  generators,  applications,  and 
programming  tutorials  for  your 
Commodore,  Atari,  Apple,  and  IBM 
PC  personal  computers. 

FALL  TITLES 

from  COMPUTE!  BOOKS 

Advanced  Macintosti  BASIC  Programming 

Philip  Callppe 

The  Macintosh  Is  an  exciting  machine — and 
Microsoft  BASIC  2.0  lets  you  put  it  to  work  for  you. 
This  tutorial  and  reference  guide  to  Microsoft 
BASIC  2.0  shows  you  how  to  use  the  computer's 
advanced  features  to  create  impressive  programs 
of  your  own.  You'll  quickly  learn  how  to  access 
everything  from  keyboard  Input  and  graphics  to 
the  fvlacintosh's  sophisticated  ROM  routines. 
Sample  programs  are  built  one  piece  at  a  time, 
and  Individual  subroutines  wl!l  easily  find  their  way 
into  your  own  programs.  Macintosh-specific 
features,  tike  creating  pull-down  menus,  windows, 
and  dialog  boxes,  are  explained.  You'll  build  a 
set  of  software  tools,  which  will  aid  in  developing 
such  working  applications,  as  a  mailing  list  and 
business  graphics.  You'll  even  write  an  arcade- 
style  game  on  the  Macintosh.  Everv'thing  you  need 
to  become  a  proficient  Macintosh  programmer  is 
here,  ready  for  you  to  explore. 
$16.95   ISBN  0-87455-030-0 


r 


Ttie  Elementary  Atari  ST 

William  B.  Sanders 

This  friendly,  easy-to-use  guide  to  the  Atari 
ST  will  step  you  through  the  process  of 
connecting  your  computer,  loading 
programs,  creating  graphics  and  music, 
and  writing  your  own  programs.  Written  by  ^ 
the  author  of  the  bestselling  The 
Elementary  Commodore  64,  Ttie  Elementary 
Atari  ST  contains  lots  of  helpful  Information 
for  both  the  novice  computer  user  and  the 
seasoned  programmer. 
Si 6.95      ISBN  0-87455-024-6 


Order  any  of  COMPUTEI's  new  books  today. 

Call  toll  free  800-334-0868  (In  North  Carolina  919-275-9809). 

Or  write  COMPUTE!  Books,  P.O.  Box  5058,  Greensboro.  NC  27403. 

(Please  add  S2.00  per  Hem  for  shipping  and  handling  in  Ih©  U.S.  or  surface  mail;  add  $5.00  per  item  air  mail.) 
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Appift  ApckiOiont 


COIV1PUTE!  books  are  available  in  the  U.K.,  Europe, 
the  Middle  East,  and  Africa  from  Holt  Saunders, 
Ltd.,  1  St.  Anne's  Road,  Eastbourne,  East  Sussex 
BN21  3UN,  England. 


This  unique  program,  written  by  a 
planetarium  director,  presents  the  sky 
as  it  can  be  viewed  at  any  date  ajid 
time  from  the  year  1977  onward — 
including  zodiac  constellations  and 
all  the  visible  planets.  It  also  calcu- 
lates planet  tables,  positions  of  the 
sun,  and  phases  of  the  moon  for  any 
date  and  time  from  1977  into  the 
future.  As  an  extra  (and  timely)  bonus, 
it  can  even  display  Halley's  Comet, 
due  to  become  visible  in  late  1985  and 
early  1986.  "Skyscape"  is  both  educa- 
tional and  entertaining.  The  original 
version  is  for  the  Commodore  64,  and 
we've  written  additional  versions  for 
Apple  //-series  computers  with  DOS 
3.3  or  ProDOS;  the  T1-99/4A  with 
Extended  BASIC;  the  IBM  PC  with 
color /graphics  adapter;  the  PCjr  with 
Cartridge  BASIC;  and  Atari  400/800, 
XL,  and  XE  computers  with  at  least 
24K  RAM  for  tape  or  32K  for  disk. 


For  thousands  of  years  the  sun, 
moon,  and  planets  in  our  solar  sys- 
tem have  excited  human  imagina- 
tion. In  ancient  times  they  were 
regarded  as  gods  whose  distant  mo- 
tions influenced  the  course  of 
earthly  events.  Though  we  now  un- 
derstand more  about  the  true  na- 
ture of  celestial  objects,  many  facts 
remain  unknown,  and  a  brilliant 
nighttime  sky  still  presents  an  in- 
spiring spectacle. 
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Whether  you're  seriously  in- 
terested in  the  sky  or  just  casually 
curious,  "Skyscape"  is  a  convenient 
tool  for  extending  your  knowledge. 
It  opens  a  movable  window  on  the 
heavens,  displaying  the  position  of 
our  sun,  moon,  and  neighboring 
planets  from  almost  any  location  on 
Earth,  at  any  point  in  time  from 
1977  into  the  distant  future.  Since  it 
performs  all  the  necessary  calcula- 
tions, you  can  enjoy  and  learn  from 
this  program  even  if  you're  not  an 
expert  in  astronomy.  In  addition  to 
providing  data  about  the  position  of 
celestial  objects,  it  draws  a  sky  map 
on  the  screen,  showing  each  object 
as  it  would  appear  to  you  at  the 
chosen  location  and  time. 

To  get  started,  type  in  the  ap- 
propriate version  of  Skyscape  for 
your  computer  and  save  a  copy 
before  running  it. 

Past,  Present,  Or  Future 

Skyscape  begins  by  asking  you  to 
answer  several  questions.  Enter  the 
year,  choosing  any  year  from  1977 
forward.  In  some  ways  this  is  the 
most  important  input  of  all,  since 
objects  in  our  solar  system  move 
significantly  from  one  year  to  the 
next.  After  you  choose  the  year. 
Skyscape  allows  you  to  enter  the 
month  and  day. 

Next  you  must  enter  the  lati- 
tude (north/south  position  on 
Earth)  from  which  you  wish  to  view 


the  sky.  Latitude  0  places  you,  the 
observer,  at  the  equator.  Latitudes 
1-90  place  you  in  the  northern 
hemisphere  (north  of  the  equator). 
To  choose  a  southern  latitude 
(south  of  the  equator),  enter  a  nega- 
tive number  from  —1  to  —90, 
Skyscape  generally  represents 
southerly  locations  with  negative 
values. 

Whenever  Skyscape  asks  for 
information,  it  checks  your  entry  to 
make  sure  it's  in  the  acceptable 
range.  If  you  enter  an  illegal  value, 
the  program  displays  an  error  mes- 
sage and  gives  you  another  chance. 

The  Sun  And  Moon 

Though  very  different  in  size  and 
composition,  the  sun  and  moon  are 
alike  in  being  the  largest  celestial 
objects  visible  from  Earth.  After 
you  enter  the  date  and  latitude. 
Skyscape  displays  a  table  of  data 
for  the  sun  and  moon.  In  addition 
to  the  date,  day  of  the  year,  and 
latitude  north  or  south,  you'll  see 
the  following  information: 

•  Sun's  geocentric  angle.  This 
figure  represents  the  sun's  position 
as  a  number  of  degrees  relative  to 
the  vernal  equinox.  The  vernal 
equinox  is  where  the  sun  is  located 
when  spring  begins  in  the  northern 
hemisphere  (the  same  time  that  au- 
tumn begins  in  the  southern 
hemisphere). 


't  -i*. 
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EIELD  OF  FIRE. 


When  you  play  FIELD  OF  FIRE~  you'll  lead  one 
of  the  finest  fighting  forces  of  World  Wau-  n  — 
Easy  Company  of  the  First  Infantiy  Division  —  into 
eight  historical  battles. 

Dividing  your  company  into  fireteam  units  of  six 
men,  you'll  engage  in  such  exciting  combat  as  a  night 
raid  in  North  Africa,  the  storming  of  Omaha  Beach 
on  D-Day,  or  a  defensive  delaying  action  in  the  Battle 
of  the  Bulge  —  aU  against  Germaji  forces  con- 
trolled by  your  cunning  computer. 

Special  attention  has  been  paid  to  ; 

the  Hi-Res  graphics  and  ^ ,,. 

lively  sound  effects.  Real- 
istic rules  cover  every  " 
aspect  of  the  fighting;  Line-of-sight,  hidden  ; 
movement,  weapons  ratings.  Even  yoxir  soldiers' 
abilities  will  improve  through  time. 

lb  experience  the  heart-poimding  thrUl  of 
commanding  these  heroic  men,  run  to  yo\ir 
nearest  game  or  computer/software  store  today! 

If  there  are  no  convenient  stores  near  you.  VISA 
and  M,/C  holders  can  order  this  §39.95  game  direct 
by  calling  800-827-1617.  ext.  335  (toll  free). 
In  California,  call  800-772-3545,  ext.  335. 
Please  specify  computer  format  and  add  S2.00 
for  shipping  and  handling.  i 

lb  order  by  mall,  send  your  check  to:  , 

STRATEGIC  SIMULATIONS,  INC.,  883  StierUn 
Road.  Bldg.  A-200,  Mountain  View.  CA  94043. 
t  California  residents.  add7%salestax.)  AIlom• 
games  carry  a  "14-day  satisfaction  or  your  ; 
money  back"  guarantee.                                              J 

WBITB  TOR  A  FBZE  COI^H  CAXALOa  J 

OF  ALL  OUTR  GAMES.  M 


CmolQiKlIlS  64,  Ac&BI,  ami  .S^FUS  are  (rad^pvardKufrComnu. 


^.c.        5i  1985  by  Straiegio  SimulatLonfl,  Inc. 
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THE  #1  BACKUP  COPY  SYSTEM 
IS  rJOW  BETTER  THAIM  EVER! 


/    THE  AUTOMATIC  DISK  BACKUP 
SYSTEM  FOR  COMMODORE  64  SOFTWARE 


The  LATEST  breakthrough  in  copy  technology! 
Copies  NEW  custom  G.C.R.  code  protection 
Accesses  &  copies  NEW  no-sync  data  blocks! 
Now  includes  NEW  long  data-block  logic 
Copies  normal  S  PROTECTED  data  up  to  track  40 

■  3  New  IIWPI^OVED  copiers!  Includes  FAST  Copier, 
VARI-SECTOI?  Copier,  and  AUTO-LOGIC  NIbbler 

■  Aaually  copies  a  FULL  disk  in  only  2.75  minutes! 


Includes  one  F[?EE  Masterkey  Module! 
Inexpensive  MODULE  releases  keep  you  up-to-date 
MODULES  available  individually  or  by  subscription 
Works  with  DiskMaker  TOOLKIT  and  FAT-TRACK  Kit 
Requires  standard  1541  disk  drive  or  SX- 64 
Special  version  available  for  INDUS  GT  drive! 
I^RODUCT  SUPPORT  tel.  #  &  future  module  updates 
You've  tried  the  rest,  now  get  the  BEST!! 


ONLY 

$49.95 

for  copier  system 


THE  FASTEST  NIBBLE  COPIER  YOU  CAN  BUY! 


TO  Oder  CALL  805-687- 1541  cxt.  94 

Technical  line  805-682-4000  ext.  55 
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DISKMAKER.. .THE  OMLY  COPY  SYSTEM  YOU'LL  EVER  NEED! 


3463  State  Street  •  Suite  154IF  •  Santa  Barbara  •  CA  93105  - 


•  Sun's  declination.  The  num- 
ber of  degrees  north  or  south  of  the 
equator.  Negative  values  indicate  a 
southerly  location. 

•  Sun's  altitude  at  noon.  The 
location  of  the  sun  in  degrees  from 
the  northern  or  southern  horizon  at 
noon. 

•  Sun's  right  ascension.  Just  as 
longitude  and  latitude  indicate  lo- 
cations on  the  Earth,  right  ascension 
and  declination  are  used  to  pinpoint 
locations  in  the  sky.  For  this  pur- 
pose the  sky  is  visualized  as  a  gi- 
gantic sphere  surrounding  the 
Earth.  Declination  locates  a  point 
vertically  in  the  celestial  sphere  and 
right  ascension  locates  it  horizon- 
tally. Right  ascension  values  are 
given  in  hours  and  minutes  in  the 
range  0:00-23:59,  Right  ascension 
0:00  is  exactly  at  the  vernal  equi- 
nox. Larger  right  ascension  values 
lie  to  the  east  of  smaller  ones. 

•  Right  ascension  at  9  p.m.  The 
right  ascension  which  would  be  on 
the  meridian  at  9  p.m.  This  coordi- 
nate system  would  be  found  on  star 
charts.  By  comparing  this  number 
with  those  charts,  you  can  tell  what 
stars  and  constellations  would  be 
visible  at  that  time. 

•  Moon's  age.  The  number  of 
days  since  the  last  new  moon. 

•  Moon's  elongation.  The  loca- 
tion of  the  moon  in  degrees  east  or 
west  of  the  sun. 

•  Moon's  phase.  The  phase  of 
the  moon  on  this  particular  day. 

The  Planet  Table 

After  viewing  the  sun  and  moon 
display,  press  P  to  continue  to  the 
next  display  screen,  which  contains 
the  planet  table.  (Press  D  if  you 
wish  to  enter  a  new  date.)  The  plan- 
et table  shows  vital  information 
about  the  visible  planets  (through 
Uranus,  which  is  at  the  limit  of  our 
visibility).  The  table  shows  the  po- 
sition of  each  planet  in  right  ascen- 
sion and  degrees  east  or  west  of  the 
sun.  It  also  shows  the  distance  of 
each  planet  from  Earth  in  millions 
of  miles. 

If  you'd  rather  see  the  distance 
in  kilometers,  modify  the  program 
to  change  the  value  of  ES  =  93  to 
ES  =  149.6  (the  program  line  which 
defines  the  value  of  ES  varies  with 
the  version  of  Skyscape:  Commo- 
dore 64— line  220;  Atari— line  190; 
IBM— line    130;    Apple— line    80; 


TI— line  150). 

Some  planets  have  an  asterisk 
to  the  left  of  the  right  ascension 
figure.  This  signifies  that  they  are 
visible  at  9  o'clock  this  evening.  For 
reference,  the  planet  table  also  in- 
cludes the  sun's  present  right  as- 
cension and  its  right  ascension  at  9 
p.m.  Press  D  to  input  a  new  date  or 
S  to  view  a  graphics  display  of  the 
sky  at  any  time  in  the  current  day. 

The  Visible  Sicyscape 

After  selecting  the  sky  display,  you 
must  enter  the  hour  when  you  wish 
to  view  the  sky.  The  hour  value 
should  be  a  whole  number  from 
0-23  (enter  22  for  10  p.m.,  etc.). 
You'll  also  need  to  enter  the  min- 
utes (0-59).  Skyscape  then  displays 
the  time  and  offers  you  a  chance  to 
enter  different  values.  Press  RE- 
TURN or  Enter  when  you're  satis- 
fied with  the  time. 

Skyscape  now  displays  the  sky 
as  it  would  appear  at  the  chosen 
latitude,  date,  and  time.  Since  the 
sky  looks  very  different  from  differ- 
ent places  on  Earth,  the  latitude 
affects  the  display  considerably.  If 
your  latitude  is  in  the  range  24-90 
degrees  north  or  south,  the  sky 
shows  a  dashed  line  representing 
the  position  of  the  celestial  equator, 
along  with  symbols  representing 
the  sun,  moon,  and  planets  visible 
at  that  time.  If  your  latitude  is  in  the 
tropical  region — from  23  y2  degrees 
north  to  23y2  degrees  south — the 
dashed  line  indicates  a  position  di- 
rectly overhead. 

If  you're  viewing  in  the  north- 
ern hemisphere,  north  is  above  the 
dashed  line  and  south  is  below  it.  In 
the  southern  hemisphere  these  di- 
rections are  reversed.  Below  the  sky 
display  is  a  key  that  interprets  the 
symbols  used  to  represent  celestial 
objects.  If  more  than  one  object  is 
positioned  at  the  same  spot,  the 
symbols  are  displayed  above  each 
other. 

At  the  bottom  of  the  sky  you 
may  see  two-letter  abbreviations. 
These  represent  zodiac  constella- 
tions that  would  be  visible  from 
your  chosen  vantage  point.  Sky- 
scape uses  the  abbreviations  AR 
(Aries),  PI  (Pisces),  AQ  (Aquarius), 
CP  (Capricorn),  SA  (Sagittarius), 
SC  (Scorpio),  LI  (Libra),  VI  (Virgo), 
LE  (Leo),  CA  (Cancer),  GE  (Gemini) 
and  TA  (Taurus).  Each  constellation 
is  located  above  the  spot  where  its 


abbreviation  appears.  In  northern 
latitudes,  the  border  of  each  con- 
stellation's zone  begins  at  its  abbre- 
viation and  extends  left.  In 
southern  latitudes,  the  constella- 
tion extends  right  from  the  position 
of  its  abbreviation. 

Daytime  skies  are  shown  in 
blue  and  nighttime  skies  in  black. 
Skyscape  does  not  calculate  the  ac- 
tual rising  or  setting  dme  of  the  sun. 
Average  rising  and  setting  times  of 
6  a.m.  and  6  p.m.  are  used  in  every 
case.  You  may  obtain  exact  rising 
and  setting  times  from  local  news- 
papers. However,  keep  in  mind  that 
there  is  usually  about  an  hour  of 
twilight  before  sunrise  and  after 
sunset, 

Halley's  Comet 

In  addition  to  permanent  objects, 
Skyscape's  graphics  display  in- 
cludes Halley's  Comet,  which 
should  be  visible  during  late  1985 
and  early  1986.  If  you  choose  a  date 
from  November  1,  1985  to  May  29, 
1986,  Skyscape  calculates  the  posi- 
tion of  Halley's  Comet  and  includes 
it  in  the  graphics  display  (if  it  would 
be  visible  at  the  place  and  time  you 
select).  The  comet's  position  is 
based  on  the  best  predictions  avail- 
able at  the  time  of  this  writing 
(summer  1985).  These  posidons 
may  differ  slightly  from  the  comet's 
actual  position  when  it  finally 
makes  its  appearance. 

While  Skyscape  is  generally 
accurate,  it  bases  most  position  cal- 
culations on  circular  orbits.  This  in- 
troduces a  certain  element  of  error, 
since  no  object  in  our  solar  system 
has  a  perfectly  circular  orbit.  The 
position  error  is  most  pronounced 
for  Mercury  and  Mars  (whose  orbits 
are  quite  elliptical),  but  does  not 
significantly  affect  other  objects. 
I've  found  Skyscape  accurate 
enough  for  my  own  purposes, 
which  include  planning  astronomy 
classes  and  planetarium  displays. 

For  instructions  on  entering  these  listings, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  pubtisfied  bimonthly  in  COMPUTE", 

Program  1 :  Commodore  64 
Sicyscape 

100  P0KE56, S6:POKE55,0:CLR:FOR 
I=828TO909:READA:X=X+A:POK 
EI , A : NEXTI : PRINTCHR5 ( 3 ) 

:reni  2  46 
110  IFX<>9923THENPRINT"ERR0R  I 
N  DATA  STATEMENTS. " I  STOP 

;rem  187 
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Hov  •;&,   19^ 


tniH  noon  »  SUB    <-,hsllev's  coffer 
I-  Mcu  nw:,p-  f.ii-,r;ii:.c-  oiiir.i-  Lsi 


Halley's  Comet  blazes  across  the  sky  in 
the  graphics  dispiaij  of  "Ski/scape"  for 
the  Commodore  64. 


120  DATA  173,14,220,41,254,141 

,  14,  220,173,24      :i:em  93 
130  DATA  208,41,14,10,10,133,1 

67,169,208,133     :reml02 
140  DATA  252,173,0,221,41,3,73 

,  3,  10,  10,  10, 10     •■rem   69 
150  DATA  10,10,5,167,133,254,1 

65, 1,41, 251        irem  205 
160  DATA  133,1,169,0,133,251,1 

33,253, 168, 162     :rem  109 
170  DATA  3,177,251,145,253,200 

,208, 249, 230        :rem  21 
180  DATA  252,230,254,202,208,2 

42,165,1,9         :rem  168 
190  DATA  4,133,1,173,14,220,9, 

1,141,14,220,96    irem  144 
200  POKE53281, 1:POKE646,0:GOSU 

B2210  :rem  5 

210  D?="0000310590901201511812 

12243273304334" :K1=1440:DI 

MHC(22)  :MM?="041081040-' 

:rem  225 
220  M5="2863173450110410721021 

33 16419422  5255 '■:D5(1)  =  "S": 

D?(2)="N":ES=93      : rem  28 
2  30  A5="JANFEBMARAPRMAYJUUJULA 

UGSEPOCTNOVDEC" :O0$=" 

(DOWN} OUT  OF  RANGEl 1 {down] 

"  irem  232 

240  MD$="312831303130313130313 

031"  :D9=_T/180:READEE:READM 

9!DIMP(6,6)         rrem  66 
250  DEFFNR(X)=INT(X*100+.5)/10 

0  :rem  207 

260  DEFFNS(X)=INT(X*10+.5)/10 

:reni  113 
270  FORY=lT02:F0RX=lTO6:READP( 

X, Y) : NEXT: NEXT: Y=0: rem  162 
280  F0HX=1T06:READP?(X),P{X,3) 

: NEXT : FORX^ 1 T08 : READA : POKE 

i4335+X,A:tIEXT     :rem  187 
290  FORX=15024TO15079:READA:PO 

KEX,A:NEXT:F0RX=1T07;PP(X) 

=X+aS:NEXT         : rem  228 
300  J$="SATSUNMONTUEWEDTHUFRI" 

:FORX=lTOl2:READF5:rem  151 
310  CC5=CC$+"(5  SPACES} "+F5:NE 

XT!CC$=CC$+CC9:FS=RIGHT$(C 

C?,9) :CC5=F$+CC?   : rem  133 
320  F0RX=1T08!READPH5(X) :NEXT 

: r  em  81 
330  F0RX=1T022!READHC(X)!NEXT; 

POKE53281,7:GOTO920:rem  42 
340  CC=HT-720;IFCC<0THENCC=CC+ 

Kl  ;rem  155 

350  CC=CC/120:CD=CC-INT(CC) :CC 

=INT(CC) jCD=INTCCD*7+.2) :C 

C=81-(CC*7+CD)     srem  255 
360  GOSUB2000:PRINTCHR9(18);CD 

$?CHR5(146); : IFLL<0THENGOS 

UB2590  :rem  242 

370  FORX=55976TO56015:POKEX,2i 

GOTO2620  :rem  38 
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380    PRINT" {CLR) tDOWN}"TAB( 10) " 

-*    DAYS    SKY    **":GOSUB1770: 

PRINT  :rem   253 

390    PRINT: PRINT" INPUT    THE    TIME 

:":PRINT"Ei5    Y^ " :T1=0 :T2=0 

jrem   43 

400  PRINT: INPUT" {5  SPACES} HOUR 

(0-23)  ":T1:1FT1<0ORT1>23 

THENPRINTO05 : GOTO400 

;rem  72 
410  PRINT:  INPUT"  {3  SPACES)MIK[U 

TE  (0-59)  ";T2:IFT2<0ORT2> 

59THENPRINTOO9:GOTO410 

:reni  243 
420  RS=STR5(T1) :T5=STR9(T2) :T? 

=RIGHT$(T$,LEN(T?)-1 ) : IFLE 

N{TS )=1THENT$="0"+TS 

: rem  133 
430  PRINT"  [2  DOWN] TIME—  "R$": 

"TS  :rem  127 

440  PRINT:GOSUa2230SIFZ$="N"TH 

EN380  :rem  134 

450  PRINT" (CLR} " :T3=T1*60+T2+A 

A-720tIFT3<0THENT3=T3+Kl 

:rera  17 
460  IFT3>KlTHEbn'3=T3-Kl 

:rem  141 
470  MT=T3-360: IFMT<0THENMT=MT+ 

Kl  :rem  241 

480  PT=T3+360:IFPT>K1THENPT=PT 

-Kl  :rem  76 

490  GOSUB1770:PRINTTAB(27)R5": 

"T?  jrem  176 

500  C9S=" iBLU) " !TM=VAL(RS+" . "+ 

TS) :IFTM<60RTM>18THENC95=" 

(BLK}"  :rem  124 

510  XX=7+LC:FORX=1T014:IFX=XXT 

HEN530  :rem  56 

520  PRINTC95+"(RVS] {40  SPACES) 

";"(BLK]"; :GOTO540!rem  155 
530  PRINTC9S+" {RVS}  ----- 

(space)-  ---__-,,_ 
-  {2  SPACES)"; "(BLK) 

"-•  :rera  231 

540  NEXTX:GOSUB340:IFLL<0THEN5 

70  :rem  25 

550  IFLL>24THENPRINT " ( 3LU ] E " SP 

C(18) "S"SPC(19)"W(BLK)":GO 

TO590  :rem  221 

560  PRINT" {BLU)UP-{BLK)NORTH 

[5  SPACES) (BLU) {BLK)0V 

ERHEAD(5  SPACES) { BLU ) DOWN- 

(BLK) SOUTH" :GOTO590 

:rem  22  5 
570  IFABS(LL)>24THENPRItJT" 

(BLU)W"SPC(18)"N"SPC(19)"E 

[BLKJ^rGOTOSge       :rem  1 
580  PRINT" {aLU)UP-{BLK)SOUTH 

(5  SPACES) (BLU) {BLK)0V 

ERHEAD{5  SPACES) {BLU} DOWN- 

{ BLK} NORTH"        : rem  210 
590  T4=AA:GOSUB800:Ya=88a:IFY9 

=999THEN630        :rem  242 
600  Y8-Y9!GOSUB2450:IFA1<0THEN 

630  :rem  234 

610  IFPK>1703ORPK<1144THEN630 

:rem  212 
620  POKEPK, 170  :rem  38 

630  T4=AA+M2*K1:IFT4>K1THENT4= 

T4-K1  :rem  96 

640  GOSUB800!lFY9=999THEN680 

I  rem  194 
650  MM= INT (Ml/9. 83333 )+l:GOSUB 

900:IFY9=999THEN680 

:rem  133 
660  GOSUB2450:IFPK>1703ORPK<11 

44THEN680  :rem  99 

670  POKEPK, MM+128jPRINTCKR?( 14 

6 ) : IFABS ( Y8-Y9 ) <= . 5THENP0K 

EPK,81  :rem  81 

680  FOR  X=1TO7:IFX=7THEN2350 

:rem  179 


690  T4=P(X,6) :GOSUB800:IFY9=99 
9THEN750  irem  31 

700  U9=SIN(P(X,6)*D9/4):U9=-3* 
U9+.5:U9=INT(U9) :U(X)=U9*4 
0  :rem  13 

710  PK=1423-Y9+U(X)+LB:GOSUB24 
60  :rem  97 

720  IFPK>1703ORPK<li44THEN750 

:rem  217 

730  Z=PEEK(PK) :IFZ<>160ANDZ<>1 
73THENPK=PK+SGN (LL ) *40+ ( LL 
=0)*40:GOTO730       :rem  0 

740  POKEPK, PP(X)       :rem  218 

750  NEXTX: PRINT" [HOME} 

(19  DOWN)"  :rem  148 

760  PRINT" {UP) VMERCURY 

{2  SPACESJWVENUS (4  SPACES) 
XMARS{5  SPACES )YJUPITER" 

:rem  107 

770  PRINT"ZSATURN(4  SPACES)+UR 
ANUS [3  SPACES) (RVS)* (OFF) S 
UN{6  SPACES} {RVS) )Q( (OFF) H 
OON"  :rem  162 

780  PRINT" (2  SPACES )QNEW  MOON 
{SPACE}+  SUN{2  SPACES}"B? 
:rem  235 

790  PRINT:PRINT"T-  NEW  TIHE.P- 

P. TABLE, D-  DATE.L-  LAT":G 

OTO1920  :rem  225 

800  Y9=999;IFMT<PTTHEN850 

:rem  40 

810    IFT4>=MT    OR    T4<=PTTHEN830 

srem    220 

820  RETURN  :rem  122 

830  IFT4>=MT  AND  T4<=K1THEN870 

:rem  236 

840  T4=T4+K1:GOTO870   :rem  162 

350  IFT4>=MT  AND  T4<=PT  THEN87 
0  irem  22 

860  RETURN  :rem  126 

870  Y9=INT( {T4-MT)/l8+,5) :IFY9 
=40THENY9=39        irem  221 

330  RETURN  :rera  128 

890  U9=SIN(T4/4*D9) :U9=-3*U9+. 
5iU9=INT(U9) :U9=U9*40:RETU 
RN  :rem  238 

900  MM=VAI,(MID5(MM5,3*MM-2,  3>) 
: IFLL<0ANDMM<>81THENMM=ABS 
(MM-81)  ;rem  12 

910  RETURN  :rem  122 

920  PRINT" {CLR} (DOWN} 

(6  SPACES)**********  SKYSC 
APE  **********" :PRINT" 
(DOWN} DATE  INPUT" :S1=0 

:rem  176 

930  PRINT"|10  Y3":IFY<>0TliENGQ 
SUBi770j  PRINT:  PRINT 

:rem    107 

940  INPUT"YEAR(2  SPACES] " ;Yi IF 
Y<1977THENPRINT"MUST  BE  GR 
EATER  THAN  1977 " :GOTO940 

:rem  89 

950  GOSUBie20:PRINT:INPUT"MONT 
H  (1-12)  ";M:IFM<10RM>12TH 
ENPRlNTOO5:GOTO950!rem  127 

960  D1=VAL(MID$(HD5, 2*M-1, 2)) s 
DI=DI- (M=2 ) *LY: DI $=STR$ ( 01 
):DI?=RIGHT?(DI$, 2) :rem  25 

970  PRINT" {down) DAY  {1-"DI?") 
(SPACE)"; :INPUTD: IFD<10RD> 
DITHENPRINTOO? : GOTO970 

:rem  8 

980  H?=MID5(A?,H*3-2,3) :PRINT: 
PRINT "LATITUDE  (-90  TO  90) 
";  :INPUTLL  :!rem  80 

990  GOSUB2430  : rem  240 

1000  IFABS (LL)>90THENPRINTOO?: 
G0TQ98e  :rem  72 

1010  PRINT: PRINT" (2  DOWN) 

{4  RIGHT) "H?;D" (LEFT) , "Y: 
PRINT:GOSUB2  2  30:IF  a?="N" 
THEN920  :rem  105 


It's  easy  to 
It's  quick. 
It's  illegal. 
It's  wrong. 

It's  hard  to  believe. 


copy. 


1.'^ 
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People  who  wouldn't  think  of  shoplifting  a  softwar 
product  on  their  lunch  hour  don't  think  twice  abouP 
going  back  to  the  office  and  making  several 
illegal  copies  of  the  same  software. 

Making  unauthorized  copies  of  software  is  a  violation  of ' 
Copyright  Law.    Yet,  the  problem  has  reached  epidemic 
proportions  because  many  people  are  unaware,  or  simply 
choose  to  ignore  the  law.    The  software  industry  is  urging 
decision-makers  and  software  users  to  take  steps  to  stop  soft-,' 
ware  piracy  in  their  organizations.    In  the  meantime,  the  Indus-: 
try  has  been  forced  to  prosecute  willful  copyright  violators. 

There  are  legal,  moral  and  economic  imperatives  forbidding 
theft  of  copyrighted  software. 


There  is  a  free  pamphlet  on  the  subject.  Call  or  write  for  a 
copy.  A  copy.  A  copy.  A  copy  for  everyone  you  know.  ■ 
Please  ask  for  Priscilla. 


A 


ADAPSO 

1300  North  Seventeenth  Street 

Arlington,  Virginia  22209 


1020  D2=VAL(MID$(M5,M*3-2,3))+ 

D:  GOSUB1860  :  IFrl>2THENDl=D 

1+LY:Y1=Y1+LY     :rem  253 
1030  D3=D2-185:IFH=3ANDD<20THE 

ND2=D2+LY:D3=D3+LY:rem  8L 
1040  S=0:IFD3<=0TKENA=180*D2/1 

85:GOTO1060        :rein  91 
1050  A=1Q0*D3/(130+ZY)+180 

:rem  57 
1060  IFA<>ia0THENS=23. 43333333 

*SIN(D9*D2*180/185) 

:rein  167 
1070  IFA>130THENS=-23. 43333333 

*SIN(D9*D3)        :rem  10 
1080  IFA>=360THENA=A-360 

:rem  97 
1090  A=FtIR(A)  ;rem  192 

1100  S=FNR(S) :A1=(SGN(LL)-(LL= 

0))*S+90-ABS(LL) :Ai=FNRCA 

1)  :GOSUB1470:GOSUB1420 

;  rem  0 
1110  W=1-(SGN(LL)<0) :IFA1>90TH 

ENA1=180-A1 :W=ADS (W-3 ) 

:rem  231 
1120  -pR INT "tCLK}{ DOWN) ":G0SUB1 

770!PRINT: PRINT" B32  Y3 " : I 

?="{LEFT1@"       :rem  121 
1130  PRINT: PRINT "DAY  OF  THE  YE 

AR ",Dl:rem  114 

1140  PRINT"SUN'S  GEOCENTRIC  AN 

GLE ■',A;I$      :rem  26 

1150  PRINT-'SUN'S  DECLINATION  — 

",S;I$     :rein  233 

1160  PRINT"SUN'S  ALTITUDE  AT  N 

OON ■',A1;I$:DS(W) 

irem   121 
1170    PRINT"SUN'S    RIGHT    ASCENSI 

ON ",A35  :rem    208 

1180    PRINT"R.A.    AT    9:00PM 

",A55  :rem    113 

1190    PRlST"HOON'S    AGE 

",M1;"DY"     sretn    178 

1200  PRINT"MOON'S  ELONGATION — 

",Ma; "{LEFT)@"rL5: 

IS=""  :rem  172 

1210  PRINT"M0ON'S  PHASE  -  "PH? 
(M3)  :rem  115 

1220  PRINT" (2  DOWN)-P-  PLANET 
{space] TABLE  ,  -D-  NEW  DA 
TE":GOTO1920      : rem  159 

1230  PRINT" {CLR} {DOWN}": PRINTT 
AB ( 7 ) " *  *  PLANET  TABLE  *  * " 
:GOSUB1770: PRINT: PRINT: SI 
=1  :rem  188 

1240  PRINT"PLAMET{3  SPACESJdIS 
T.{2  SPACES)ANG.  W/  SUN 
[4  SPACES  )R.  A"    :reni  255 

1250  PRINT"g38  Y3":PRINT 

:rem  138 

1260  F0RX=1T06:A2=Y1/P(X,2)-IK 
T(Yl/P(X,2))iQ3-l:rem  238 

1270  A2=A2*360+P(X,1) :IFA2>360 
THENA2=A2-360       : rem  92 

1290  E=180+A:IFE>360THENE=E-36 
0  :rem  243 

1290  S1=ABS(E-A2) :IFE1>180THEN 
E1=3G0-E1       jrem  191 

1300  GOSUB1530:E1=E1*D9jP5=P(X 
, 3 ) : IFX=3THENGOSUB1930 

:rem  125 

1310  P(X,4)=SQR(l+P5r2-2*P5*CO 
S(E1)) :XX=(P5t2-i-P(X,4)t 
2)/(-2*P(X,4))     :rem  90 

1320  P(X, 5)=-ATN(XX/SQR(-XX*XX 
+  l))+_r/2:P(X,4)  =  INT(P(X,4 
)*ES+.5)  :rem  55 

1330  P{X,5)=P(X,5)/D9;P(X,5)=F 
NS(P(X,5))!Q15=STRS(PtX,4 
))sQ2$=STR5(P(X,5)) 

:rem  145 

1340  Q1=LEN(Q15) :Q2=LEN(Q25):G 
OSUB1630  :rem  178 


1350  PRINTP$(X) rTAB(14-Ql);Q15 

;TAB(22-Q2 );Q2  5; :IFQ3=-1T 

HENPRINT"(aw";  :  rem  25 
1360  IFQ3=1THENPRINT"@E"; 

:rem  11 
1370  GOSUB1680:Q4?=STR?(Q4) :Q5 

5=STR$(Q5) :IFQ5<10THENQ5? 

="0"+RIGHT$(Q55,l) 

:rem  221 
1380  Q5?=RIGHT?(Q5$,2) :Q4?=Q4$ 

+":"+Q5?:Z=LEN(Q4?) 

:rera  159 
1390    PRINTTAB(26)QQ5TAB(34-Z)Q 

4$:NEXT:PRIKT"i2    DOWN]*    - 
VISIBLE    AT    9    P.M." 

irern  65 
1400    PRINT" (2    DOWN] SUN'S    R.A. 

{SPACE] "SPC(Q8)A3? 

: PRINT" R.A.    AT    9 : 00PH    

"SPC(09)A5S  :reiii   139 

1410    PRINT" (DOWN) -S-    FOR    DAYS 

(SPACE) SKY    -D-    FOR    NEW    DA 

TE":GOTO1920  : rem  43 
1420  A2=K1*A/360:IFA2>K1THENA2 

=A2-K1  :rem  23 

1430  A3=INT(A2/60):A4=A2-A3*60 

:A5=A3+9:IFA5>23THENA5=A5 

-24  :rem  223 

1440  A4=INT(A2-A3*60+.5) :IFA4= 

60THENA4=0:A3=A3+1 

:rem  150 
1450  IFA3=24THENA3=0  :rem  128 
1460  AA=A3*60+A4:GOTO1780 

:reni  113 
1470  M1=(Y1/M9-INT(Y1/M9) )*M9+ 

10 : IFMl >M9THENM1=M1 -M9 

:rem  33 
1480  GOSUB2260:M8=360*M2:IFM8> 

180THENL?="W"  srera  241 
1490  IFM8<-180THENL$="E" 

:rem  89 
1500  IFM8>ie0THENH8=360-M8 

: rem  237 
1510  H1=FNR(M1) !Ma=FNRCH8):YY= 

INT{7*(Yl/7-INT(Yl/7) )+.2 

) : IFYY=0THENYY=7  :rem  2  3 
1520  K5=MID?(J?,YY*3-2,3) sRETU 

EIN  :rem  68 

1530  Q3=0:Ql=E+ia0:IFQl>360THE 

N1570  :rem  218 

1540  IFA2>EANDA2<Q1THE«1560 

:rem  78 
1550  Q3=1:RETURN  :rem  215 
1560  Q3=-1:RETURN  :rem  S 
1570  Q1=Q1-360:IFA2<=360ANDA2> 

ETHEN1560  :rem  230 
1580  lFQ3<>0THENRETURN:rem  154 
1590  IFA2>0ANDA2<=Q1THEN1560 

:rem  123 
1600  IFQ3<>0THENRETURN:rem  147 
1610  IFA2>Q1THEN1550  : rem  132 
1620  RETURN  :rem  169 

1630  Q5=Q3*P(X, 5)*4+AA:IFQ5<0T 

HENQ5=Q5+K1  : rem  122 
1640  IFQ5>K1THENQ5=Q5-K1 

:rem  187 
1650  P(X,6)=Q5:Q4=INT(Q5/60):Q 

5=INT(Q5-Q4*60+. 5) :IFQ5=6 

0THENQ5=0!Q4=Q4+l:rem  189 
1660  IFQ4=24THENQ4=0  :rem  165 
1670  RETURN  : rem  174 

1680  SU=A5*60+A4:PS=SU+360:MS= 

SU-360:IFPS>K1THENPS=PS-K 

1  :rem  230 

1690  IFH3<0THENMS=MS+K1 

:rera  190 
1700  IF  MS>PSTHEN1730  :rem  210 
1710  IFP(X,6)<PSANDP(X,6)>MSTH 

EN1760  :rem  155 

1720  QQ?="  ": RETURN     : rem  43 
1730  IF  P(X,6)<K1ANDP(X,6)>MST 

HEK1760  irem  118 


1740  IFP(X,6)<PSTHENi760 

:rem  145 
1750  GOTO1720  : rem  208 

1760  QQ5="*" : RETURN     :rem  89 
1770  PRINT:PR1NT  K? " —  "H$;D" 

(LEFT) , "Y;TAB(20)ABS(LL)L 

L5; : RETURN         : rem  22 
1780  A35-iSTR5(A3):A3?=RIGHT$(A 

3?, 2) :A45=STR$(A4) :A4S=RI 

GHT5(A45,2)       :rem  108 
1790  IFA4<10THENA4$="0"+RIGHT5 

(A4?,l)  :rem  255 

1800  A35=A39+"!"+RIGHT5(A4$,2) 

:A5S=STR5(A5)  lASS-sRIGHT?  ( 

A5$, 2)+" :"+A4?     :rem  82 
1810  Q8=7-LEN{A3$) :Q9=7-LEN(A5 

? ) : RETURN  : rem  5 

1820  LY=0:IFY/4=INT(Y/4)THENLY 

=1  :rem  217 

1830  IFY/100=INT(Y/l00)ANDY/40 

0  <> INT ( Y/400 ) THENLY=0 

:  rem  8 
1840  IFY/1000=INT(Y/1000)ANDY/ 

4000=1NT{y/4000}THENLY=0 
:rem  140 
1850  RETURN  : rem  174 

1860  Y9=Y+1:IFY9/4=INT(Y9/4)TH 

ENZY=1  :rem  207 

1870  IFY9/100=INT(Y9/100)ANDY9 

/400  <  > INT ( Y9/400 )THENZY=0 

:rem  254 

1880  IFY9/1000=INT(Y9/1000)AND 

y9/4000=INT(Y9/4000)THEN2 

Y=0  :rem  130 

1890  Y1=Y-1977:Y1=Y1*365+INT(Y 

1/4 )+Dl ; IFY<2000THEN1910 
:rem  38 
1900  Y1=Y1-INT( (Y-2001)/1O0)+I 

NT((Y-2001)/400)-INT((Y-l 

)/4000)  ;rem  6 

1910  RETURN  :rem  171 

1920  GETIS:IFI$=""THEN1920 

:rem  203 
1930  IFI$="D"THEN920  : rem  88 
1940  IF(I$="S"0RI?="T")ANDS1=1 

THEN380  :rem  97 

1950  IFI$="P"THEN1230  : rem  145 
1960  1F1$="L"ANDS1=1THEN2530 

:rem  87 
1970  GOTO1920  :rem  214 

1980  P5=1.3763440a6:K5=A2*4 

:rem  148 
1990  K5=ABS(K5-1233.73)*90/K1: 

K5=K5*D9:K5=SIN(K5)*.322  5 

81224  s  P5=P5+K3 : RETURN 

: rem  62 
2000  IFCC<=lTHENCC=CC+84 

:  rem  144 
2010  CD5=M1DS(CC5,CC-1,42) 

:rem  70 
2020  IFMID5(CD?,2,1)<>"  "ANDMI 

D? (CO?, 3,1)="  "THENCD5=HI 

D5(CD$, 1,40) :GOTO2050 

:rem  8 


2030  IFMIDS(CD5,41, 
ID$(CD$,40,  1)  = 
HID5(CD?, 3,42) 


2040  CD5=MID$(CD$,2 

2050 

2060 


CD$="{YEL)"+CD 

ETURN 

DATA36  5.26,29. 

8184, 42.719626 

,52.916763 
2070  DATA134. 69697, 

7.97,224.7,686 
2080  DATA4332. 79813 

,30686.5884 
2090  DATA"MERCURY", 

S", .7233, "MARS 

UPITER",5.2028 


1)<>"  "ANDM 
"  "THENCD5= 
:GOTO2050 

srem  113 
,40) 

:rem  150 
$+" (BLK)":R 

:rem  128 
53059, 59.81 
, 262. 364294 
:rem  2  3 
218.79464,8 
.98: rem  146 
,10759.7195 
:rem  90 
.3871, "VENU 
",1.5237,  "J 

:rera  148 
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2100  DATA"SATURN",9. 5308, "URAN 
US", 19. 182  jrem    14 

2110  DATA56, 63, 68, 68, 56,0,0,0, 
255,239, 199,131,131,199,2 
39,255  :reni   6 

2120  DATA195, 129,153,153,195, 2 
31,129,2  31,252,249,19  5,15 
3,153,153,199,255    :rem40 

2130  DATA255, 195,189,129,129, 1 
89, 195, 2  55,25  2, 193, 145, 13 
7,153,  131,63,127  :rein   2 

2140  DATA255, 153, 153,153, 219,2 
31,255, 255  :rem   230 

2150  DATA245, 234, 213, 202, 213,1 
39,7, 31  :rem   66 

2160  DATA"SA"  ,  ■'SC","LI",  "VI",  " 
LE", "CA", "GE","TA","AR", " 
PI",  "AQ","CP"  :reni    220 

2170  DATA"NEW", "WAXING  CRESCEN 
T","1ST  QUARTER" , "WAXING 
{SPACEjGIBBOUS", "FULL" 

:rem  255 

2180    DATA"WA1]ING    GIBBOUS"  ,"  3RD 

QUARTER" , "WANING    CRESCEN 

T"  :rem   2  24 

2190  DATA1770, 1719, 1620, 1500,1 
418,1365,133  5,1310, 1290,1 
275, 1260  :rem  96 

2200  DATA1238, 1220,  1200,  1178,1 
115,915,720,660,640,62  5, 6 
10  :rem  39 

2210  PRINT" (CLR) [11  DOWN}"SPC( 
liy****    SKYSCAPE  ****" 

;rem  116 

2220  POKE53272, CPEEK( 53272 }AND 
240)OR14:SYS828:POKE53  280 
,7:RETURN  : rem  32 

2230  print"-n-  to  re-input  or 
(space)return  to  continue 

:rera  192 

2240  GETZS:IE'Z?=""THEN2240 

:rera  229 
2250  RETURN  :reni  169 

2260  M2=M1/M9:IFM1<10RM1>28.5T 

HENM3=1  :reni  180 

2270  IFM1>=1ANDM1<6.9THENM3=2 

irem  204 
2280  IFM1<=8.0ANDM1>=6,9THENH3 

=3  :rem  112 

2290  IFM1>8.0ANDM1<14.2THE6IM3  = 

4  :rem  32 

2300  IFM1>=14.2ANDM1<=15.2THEN 

M3=5  :rem  195 

2310  1FM1>15.2ANDH1<21.6THENM3 

=6  irem  77 

2320  IFM1>=21.6ANDM1<=22.6THEN 

H3=7  irera  203 

2330  IFM1>22.6ANDM1<=28. 5THENM 

3=8  :rem  150 

2340  RETURN  ! rem  169 

2350  B5="":IFY<>19B5ANDY<>1986 

THEN750  :rem  109 

2360  IF(Y=1985ANDD1<305)OR{Y=1 

986ANDD1 > 149 ) THEN750 

irem  131 
2370  HD=D1+365:IFHD>516THENHD= 

nD-3  65  :rem  81 

2380  Hl=(HD-295)/10:HD=INT(Hl) 

:H1=H1-HD  :rem  151 

2390  T4=HC(HD)-HC(HD+1> :T4=HC( 

HD>-H1*T4: IFT4>K1THENT4=T 

4-Kl  :rem  219 

2400  GOSUBe00:IFY9=999THEN750 

irem  236 
2410  GOSUB890:IPT4>1115ANDT4<1 

200THENU9=U9+40   :rem  176 
2420  IFT4>1290THENU9=U9-40 

:rem  2 
2430  IFT4>615ANDT4<=1115THENU9 

=U9+80  :rem  113 

2440  U(7)=U9:B5="i-iHALLEY'S  C 

OHET":GOTO710      jrem  43 


2450  GOSUB890:PK=1423-Y9-I-U9+LB 

:rem  249 
2460  IFLL<0THENPK=2247+80*XX-P 

K  :rem  106 

2470  RETURN  irem  173 

2480  LL?="(LEPT3@S" iIFLL<0THEN 

LL5="{LEFTi@S"    :rem  159 
2490  L1=ABS(LL) :IFABS(LL)<24TH 

ENL1=40  jrem  191 

2500  LC=INT{ (Ll-40)/7+.5):LB=L 

C*40:Dl=VAL(MID5(D5,H*3-2 

,3))+D  :rem  30 

2510  IFABSCLL)<24THEKLB=40*INT 

(ABS(LL)/7+.5)     :rem  47 
2520  RETURN  : rem  169 

2530  PRINT" [CLR) [down] 

(6  SPACES)**********  SKYS 

CAPE  **********" :PRIUT" 

( DOWN  1  LATITUDE  CHANGE" 

:rem  8 
2540  PRINT"gl5  y3":GOSUB  1770 

:rem  222 
2550  PRINT"£3  DOWN} ": INPUT" INF 

UT  NEW  LATITUDE" ;LL SPRINT 

:PRINT  :rein  21 

2560  IF  ABS(LL)>90  THEN  PRINT 

E space! 00?: GOTO  2550 

:rem  127 
2570  GOSUB2230:rFZ5="N"THEN248 

0  :rem  40 

2580  GOSUB2480!l?="S" :GOTO1940 

:rem  217 
2590  FORX=1704TO1723:U1=PEEK(X 

) :U2=PEEK(3447-X) :POKEX, U 

2 : POKE { 3447-X ) , Ul : NEXT 

irem  206 
2600  FORX=1704TO1742iIFPEEK(X) 

=160THEN2620      : rem  229 
2610  U1=PEEK(X) ;U2=PEEK(X+1) :P 

OKEX, U2 : POKEX+1 , Ul : X=X+1 
: rem  72 
2620  NEXT:RETURN        srem  35 


A  view  of  the  night  sky  in  the  Atari 
version  of  "Skyscape." 


Program  2:  Atari  Skyscape 

Version  by  Kevin  Mykytyn,  Editorial 
Programmer 


CE  100  POKE  106,  P 
GRAPHICS  0 
8, "K: " 

Ha  1  10  DIM  D«  (36> 
36) , A*(36) 
« (24)  ,  ZZ«  < 
J$ (21 ) ,Ft ( 
0) , SPC« (30 

!D  120  DIM  PH«  (  12 
$  (  10)  ,  T*  t 1 
02* (10) ,Q3 
0) , Q5$ ( 10) 
( 10) , Alt ( 1 
A4S (10) 


EEK ( 106) -5: 
:  OPEN  *tl  ,  4, 

,MM» (9) ,M« ( 
, D0« ( 16) , MD 
20) , P$ (43) , 
200) , CC« (20 
),□«(!) 
0) , HC (22) , R 
0) , Ql t ( 10) , 
*  (  10)  ,  (34t  (  1 
, L* ( 10) , QQ* 
0) , A2« ( 10) , 


CH  130 


H  140 


SN  150 


EE  160 


m  170 

JO  180 


BD  190 
PN  200 

PO  2  10 

Hi  220 
6J  230 
CP  240 

LP  250 

LB  260 

NN  270 

JO  280 

PO  290 

CC  300 

KQ  310 
NN  320 

JK  330 
CO  340 

no  350 


HJ  360 
IS  370 


DIM 
(50 
5)  , 

1)  . 
0)  , 
FOR 
TO 
NEX 
PDK 
CRE 
EK  ( 
SRC 
P*  = 
)  =P 
=  PH 
GOS 
D$  = 
1  IB 
Kl  = 
B" 
MS  = 
210 
DIR 

2)  = 
ft*«= 
NJU 
DOS 
BE  ! 
MD« 
303 
65/ 
9:  B 
ZZ 
0:  R 

zz  = 

RET 

FOR 

TO 

Z:  N 

FOR 

:  PS 

«:  R 

EXT 

AD 

POK 

XT 

FOR 

BAS 

,25 

NEX 

P(X 

J*  = 

UFR 

EAD 

CCS 

+  5) 

(X- 

T  X 

LEN 

F*  = 

(CC 

EN( 

CCS 

FDR 

:PH 

-ZZ 

FDR 

!  HC 

X  =  C 

6B7 

EXT 

CC  = 

N  C 

CC 

C) 

CDt 

+  CD 

GOS 

!  IF 

620 

RET 

PRI 

ION 

YS 

i  PR 


A3* 

)  ,  PP 
LL*  ( 
KS  (2 
P  (6, 
A=l 
6!  P  ( 
T  B 
E  B2 
EN  =  P 
B9)  : 
S  (X, 

S:  PH 
S:  PH 
UB  2 

"000 
1212 
1440 


(  10)  ,  I* 

O)  ,  DIS 
3) ,DIRS 
1  )  , ASS ( 
6) , BS ( 1 

TO  6:  F 
A, B) =0: 
NEXT  A 
, 0: PI=3 
EEK (BB) 
FDR  X=l 

X  )  = 

PS (43) = 
S="  "iP 
S (2) =PH 
220 

0310590 
:2432733 

MMS="0 


(2) 

(3) 

(2) 

10) 

5) 

OR  B 

LJ  (A) 


CDS 
H$  ( 
ZS  ( 
U  (  1 

=  1 

■  a: 


1 415: S 
+256«PE 

TD  30! 
NEXT  X 
PS: PS (2 
HS ( 120) 
S 

9012015 
04334" : 
090B400 


63173 
31641 
,  1  )  =  " 
:  ES  =  9 
NFEBM 
GSEPD 
DDMN> 
OWN>  " 
12B31 
3  1  "  :  D 
:  READ 

240 
(ZZ«1 
RN 
(ZZ«1 


4501 104 107 
94225255"  : 
S" :DIR* (2, 
3 

ARAPRMAYJU 
CTNOVDEC" : 
OUT  OF  RAN 

3031303131 

9=3. 141592 

EE:READ  M 

00+0. 5) /10 

0+0. 5) /10: 


1  TD  2!FDR  X=l 
EAD  Z  Z !  P ( X ,  Y) =Z 

X:NEXT  Y:Y=0 
1  TD  6SREAD  Z2S 
-1 ) *7+l , Xt7) =ZZ 

ZZ:P(X,3)=ZZ:N 
FOR  X=l  TO  BiRE 


CHBAS+256+X, A: NE 


CHBAS+608  TO  CH 
3:READ  A:POKE  X 
PDKE  X+1024,A: 
FDR  X=l  TO  7:P 
+75;NEXT  X 
TSUNMONTUEWEDTH 
FOR  X=l  TO  12:R 

I )  »7+l ,  (X-l )  *7 
5  rf:J:!ri=b1>  "  :  CCS  ( 
7+6, Xt7) =FS: NEX 
S (LEN (CCS) +1,2* 
S) ) =CCS 

(LEN (CCS) -Q, LEN 
: FS  (LEN (FS>  +  1 ,L 
+LEN (CCS) ) =CC«: 


1  TD  8: READ 
X-l ) t 15+1 , X 
EXT  X 

1  TO  22!REA 
=ZZ:NEXT  X: 
S+680  TD  CH 
AD  B:PD'<E  X 
GDTD  920 
720: IF  CC<e 
C  +  Kl 

1  20: CD  =  CC- I 
INT (CC) : CD= 
. 2) ! CC=B1- ( 


ZZS 

t  15) 

D  Z2 
FDR 
BftS  + 
,  B:  N 

THE 

NT  (C 
INT  ( 
CC«7 


B  2010:PR1NT  CD*! 
LL<0  THEN  GDSUB  2 


URN 

NT  " CCLEARJ " : PDSIT 
10, 1 : PRINT  "«*  DA 
SKY  «*":GDSUB  1770 
INT 
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BJ  3B0  R«="  "  :  T*="  "  :  ZZ«="  "  :  PR 
INT  iPRINT  "INPUT  THE 
TIME  ":PRINT  "{15  U> 
"sTl=0: T2=0 
BP  390  PRINT  ;  PRINT  " 

{5  SPflCES>HDUR  (0-23) 

"  J  :  INPUT  Tl  :  IF  TK0 
OR  Tl>23  THEN  PRINT  D 
a*!GOTO  390 


LI  400 

PG  410 

EH  420 
IH  430 
Pt:  440 

m  450 
PA  460 
£L  470 
U  460 
HP  490 


•■;R«;' 
PRINT  I 

PRINT  ' 


IF 


H  see 

Dl  510 

H6  520 

FF  530 

BI  540 

m  550 

HE  560 


1J570 


HF  580 


PRINT  :PRINT  " 
{3  SPflCES>MINUTE  (0-5 
9)  "  ;  !  INPUT  T2;  IF  T2< 
0  OR  T2>59  THEN  PRINT 

OQtseOTO  400 
R«=STR*(T1) iTS=STR« (T 
2)  :  IF  LEN (TS) =1  THEN 
ZZS="0":ZZ«(2,LEN(T*) 
+1 ) =T*: TS=ZZ« 
PRINT  "C2  DOWNJTIME — 

:  ";  T4 

GOSUB  2260 

THEN  370 

<:CLEflR>  "  !  T3=T1 
*60+T2+fiA-720: IF  T3<0 

THEN  T3=T3+K1 
IF  T3>K1  THEN  T3=T3-K 
1 

MT=T3-360: IF  MT<0  THE 
N  MT=MT+K1 

PT=T3+360: IF  PT>K1  TH 
EN  PT=PT-K1 
GDSUB  1770:PRINT  SPC« 
(  1  ,  3)  ;  R$;  •'  :  "  ;  T* 
RF=128: ZZS=R$: ZZ* (LEN 
(ZZ«t  +  1  , LEN (ZZ$) +1 ) =" 
.  "  :  ZZ*  (LEN(ZZ*) +1 , LEN 
<ZZ*)  +LEN  (T«)  )=T«:Tri  = 
VAL (ZZS) 
IF  TM<6  OR  TM>18  THEN 

RF  =  0 
XX=7+LC:F0R  X=l  TD  14 
: IF  X=XX  THEN  530 
FOR  A=l  TO  40:PRINT  C 
HR« (RF+32> ; ! NEXT  A:GD 
TO  540 

FOR  ZZ=1  TO  40:PRINT 
CHR« (45+RF) ; : NEXT  ZZ 
NEXT  X:GDSUB  330: IF  L 
L<0  THEN  570 
IF  LL>24  THEN  PRINT  " 
EflS  SPACES>S 
{19  SPACES>W" : GOTO  590 
PRINT  "UP-NORTH 

{5  SPACES? OVERHEfi 

D<5  SPACESJDQWN-SOUTH 

"sGOTD  590 

IF  ABS(LL)>24  THEN  PR 

INT  "W{1B  SPACESJN 

{19  SPACESJE" : GOTO  590 

PRINT  "UP-SDUTH 

(5  SPACES} OVERHEA 

D{5  SPACES>DOWN-NDRTH 


DSUB  800:Ya=8a 

=999  THEN  650 

DSUB  2480: IF  A 

N  &30 

CREEN+679  OR  P 

N+120  THEN  630 

, 10+RF 

2«K1 : IF  T4>K1 

=T4-K1 

00: IF  Y9=999  T 


PCS90 

T4=AA:G 

8: IF  Y9 

ON  600 

YS=Y9:G 

1<0  THE 

ED  610 

IF  PK>S 

K<SCREE 

U  620 

POKE  PK 

GA  630 

T4=AA+M 

THEN  T4 

nC  640 

GOSUB  B 

HEN  680 

IF  650 

MM=INT ( 

GOSUB  9 

HEN  680 

OA  660 

GOSUB  2 

EN+679 

20  THEN 

ll»670 

PdKE  PK 

Ya-Y9) < 

PK,84 

LG  680 

FDR  X=l 

Ml/9. 83333) +1  : 
00! IF  Y9=999  T 

480: IF  PK>SCRE 
OR  PK<SCREEN+1 

680 
,MM+RF! IF  ABS ( 
=0.5  THEN  PDKE 

TO  7! IF  X=7  T 


BP  690 

DX  700 

Ct  710 

FD  720 

NL  730 

HEN  2380 

T4=P ( X , 6) : GDSUB  800:1 
F  Y9=999  THEN  750 
U9=SIN(P(X,6) /4*D9) :U 
9=-3*U9+0.5:U9»INT£U9 
) : U (X) =U9«40 
PK=SCREEN+399-Y9+U(X) 
+LB:GOSUB  2490 

TF   P  k'  N  Cr  D  [T  C  M  J.  i-70   HD   D 


fl]  770 

6J  780 
BH  790 

CI  S00 

HH  810 

UK  820 
OB  830 

JC  840 

BE  850 

HO  860 
AN  870 


PRINT  "{E>SATURN 

{4  SPACES>  {[TIURANUS 

{3  SPACESJQSUN 

{6  SPACES>atCJnMOON" 

PRINT  "    {TJNEW  MOON 

+SUN    ";B* 

PRINT  :PRINT  "T-  NEW 

TIME.P-  P. TABLE, D-  DA 

TE,L-  LAT" ; • GOTO  1930 

Y9=999:IF  MT<PT  THEN 

850 

IF     T4>  =  I1T     OR     T4<=PT     T 

HEN  830 

RETURN 

IF  T4>=MT  AND  T4<=K1 

THEN  870 

T4=T4+K1 : GOTO  870 

IF  T4>=MT  AND  T4<=PT 

THEN  870 

RETURN 

Y9»'INT(  (T4-MT)  /  18  +  0.  5 

):IF  Y9=40  THEN  Y9=39 

RETURN 


rr  9  00 


Hf  910 
Nil  9  20 


BH  930 


CA  940 


EH  95 


W.   960 


:PRINT  "{DOWN>DATE  IN 
PUT" : S1=0 

PRINT  " C10  UJ "! IF  Y<> 
0  THEN  GOSUB  1770:PRI 
NT  :PRINT 

PRINT  "YEAR    ";: INPUT 

Y: IF  Y< 1977  THEN  PRI 

NT  "MUST  BE  GREATER  T 


JN  1020 


FB  1030 


NH  1070 
GB  1080 


LB  1090 
Di;  1  100 


OB  1  1  1  0 


JC  1  120 


D2  =  V 
3)  )  + 
M>2 
=  Y1  + 
D3  =  D 

D<2 
D3  =  D 
3  =  0: 
180* 
A=  (  1 
180 
IF  A 
4333 
/185 
IF  A 
4333 
IF  A 
60 

ZZ  =  A 
ZZ  =  S 
Al=  ( 
S  +  90 
OSUB 

147 
W=l  + 
1  >90 
M=AB 
PRIN 
":  GO 
PRIN 


AL  (M«  ( 
D; GOSU 
THEN  D 
LY 

2-185: 
0  THEN 
3  +  LY 
IF  D3< 
D2/185 
B0»D3/ 

O180 
33*SIN 


1 

>180  T 
333»SI 
>  =  360 

: SOSUB 
: GOSUB 
SGN(LL 
-ABS (L 

220;  A 
0:  GOSU 
(SGN (L 

THEN 
B(W-3) 
T  "CCL 
SUB  17 
T  "{32 


(M»3) -2,  M* 
B  1B70: IF 
1=D1+LY: Yl 

IF  M=3  AND 

D2=D2+LY: 

=0  THEN  A= 
;60T0  1060 
( 180+ZY)  >  + 

THEN  S=23. 
(D9«D2«180 

HEN  S=-23. 
N (D9»D3) 
THEN  A=A-3 

220: A=ZZ 
220: S=ZZ: 
) + {LL»0) ) * 
L) : ZZ=A1 :G 
1=ZZ: 60SU8 
B  1420 
L) <01 : IF  A 
Al=180-A2: 

EAR> {DDWN> 

70:PRINT  : 

UJ ": I t="3 


HE  1130  PRINT  !  PRINT  "DAY  OF 
THE  YEAR 

",D1 
Bfll40  PRINT  "SUN'S  GEDCENT 

RIC  ANGLE ",A;I« 

00  1150  PRINT  "SUN' S  ^ECL  INA 

TION ",S;  I* 

JH1160     PRINT     "SUN'S     ALTITUD 

E     AT     NOON ",  Al  ;  1$ 

;  DtR«  (UJ,  M) 
NA1170     PRINT     "SUN'S     RIGHT     A 

SCENSION ",  A3* 

HB11B0  PRINT  "R.A.  AT  9!00P 

M ",A5« 

LC1190  PRINT  "MOON'S  AGE 

",M1;  " 

DY" 
PI  1200  PRINT  "MOON'S  ELONGA 

TION ",M8;  IS 

; LS: 1*="" 
IF  1210  PRINT  "MOON'S  PHASE 

-  " ; PH*( (M3-1 I «15+1 , 

M3tl5) 
LI  1220  PRINT  "{2  DOWNJ-P-  P 

LANET  TABLE  ,  -D-  NE 

W  DATE": GOTO  1930 
FD  1230  PRINT  "  {CLE AR>  {DOWN> 

":PRINT  "C7  SPACES}* 

«  PLANET  TABLE  *«"!G 

DSUB  1770:PRINT  : PR  I 

NT  : Sl=l 
PP  1240  PRINT  "PLANET 

{3  SPACESJDIST.   AN6 

.  W/  SUN{4  SPftCES>R. 

A" 
HO  1250  PRINT  "{38  U}":PRINT 


00  1260  FOR  X  = 
(X, 2>- 
:  D3=l 

fn  1270  A2  =  A2* 
A2>360 
0 

PD  1280  E=180 
N  E  =  E- 

LP  1290  E1  =  ABS 
80  THE 

HO  1300  GOSUB 
P5=P (X 
N  GOSU 

Fr.  1  3  1  0  P  (  X  ,  4  ) 


P5*C0S 

-1-P (X 
,  4)  ) 


1  TO  6:A2=Y1/P 
INT (Yl/P (X, 2) ) 

360  +  P (X,  1 )  :  IF 
THEN  A2=A2-36 

A: IF  E>360  THE 

360 

{E-A2) : IF  El >1 

N  E1=360-E1 

1530: E1=E1 tD9: 

, 3) ! IF  X=3  THE 

e  1990 

=  SQR  (  l+P5'^2-2« 

(El  )  )  :  XX=  <P5'^2 

,  4)  '-Z)  /   {-2tP  <X 
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WI  1320 


AD  1390 
JB  1400 

m  1410 

SK  1420 
KP  1430 

nS  1440 


»  1450 
HE  1460 

CB  1470 


23     THEN     A5=A5-24 

ft4=INT(A2-A3*60+0.5) 

: IF     fl4=60     THEN    A4=0: 

ft3=A3+l 

IF     ft3=24     THEN     A3=0 

flA=A3*60+A4i GOTO     178 

0 


PE  1480 

FJ  1490 

OH  1500 

DD  1510 

PS  1S20 

NK  1S30 

EO  1540 

m  1550 

AF  1560 

OG  1570 

JK  1580 

HL  1590 

Si  1600 

IE  16  10 

»  1620 

HI!  1630 

LL  1640 


IF  M 


e<=180  THEN  L*=" 
E" 

IF  MB>1B0  THEN  MB=36 
0-M8 


ETURN 

Q3=0: Ql=E+ia0: IF  Dl> 

360  THEN  1570 

IF  A2>E  AND  A2<Q1  TH 

EN  1560 


EN  1560 

Q3=l rRETURN 

Q3--1 : RETURN 

01=01-360! IF  A2<=360 
AND  A2>E  THEN  1560 

IF  Q3O0  THEN  RETURN 

IF  A2>0  AND  A2<=sQl  T 

HEN  1560 

IF  Q3< >0  THEN  RETURN 

IF  A2>Q1  THEN  1550 

RETURN 

a5  =  Q3*P(X,5) «4  +  ftfi:  IF 
<0     THEN  Q5=Q5+K1 
Q5>K1  THEN  D5=Q5- 


D5<„  ,.._.. _ 

IF  Q5>K1  THEN  D5=Q5 
Kl 


DN  1650  PtX,  6)  =05:  Q4=INT  (05/ 

60)  : 05=  ENT (QS-Q4t60  + 

0.5) s IF  05=60  THEN  0 

5=0: Q4=Q4+1 
KF  1660  IF  04  =  24  THEN  04  =  0 
KO  1670  F?ETURN 
OB  1680  SU  =  A5*60  +  A4! PS  =  SU  +  36 

0: MS=SU-360: IF  PS>K1 
THEN  PS=PS-K1 
LD1690  IF  MS<0  THEN  MS  =  MS  +  K 

1 
NO  1700  IF  MS>PS  THEN  1730 
JL  1710  IF  P(X,6)<PS  AND  P(X 

,6) >MS  THEN  1760 
CL  1720  00*="  "!RETURN 
6i;1730  IF  P<X,6)<K1  AND  PCX 

,6) >MS  THEN  2000 
JC1740  IF  P(X,6)<PS  THEN  17 

60 
HA  1750  GOTO  1720 
FJ  1760  0Q»="*":  RETURN 
«A  1770  PRINT  :PRINT  K%;"~- 

";H*;"  ";D;  ",  ■■;  Y;  :P0 

KE     85,20:PRINT     ABS(L 

L) ;LL*; iRETURN 
HE  1780     A3S  =  STR«  (A3)  !  A4«  =  STR 

t  (A4) 
NL17'70     IF     A4<10     THEN     ZZ$  =  "0 

": ZZ* (2,2)=A4»: A4*=Z 

Z* 
NL  1800  A3$  (LEN(A3*) +1  ,  LEN  (  A 

3*) +1 ) =": ": A3* (LEN (A 

3*) +1 , LEN (A3*) +LEN (A 

4*) )=A4*sAS4=STR«(A5 

) 
PD1810  A5«(LEN  (AS*) +1,  LEN  (A 

5«) +1 ) =" : ": A5« (LEN (A 

5«) +1 ,LEN (A54) +LEN (A 

4*) ) =A4* 
AS  1820  Q8  =  7-LEN  (A3*)  :  Q9-7-L 

EN  (  A5*>  :  F?ETURN 
NI(1B30  LY  =  0:  IF  Y/4=INT(Y/4) 

THEN  LY=1 
ftj  1B40  IF  Y/100=INT ( Y/100) 

AND  Y/400< >INT (Y/400 

)  THEN  LY=0 


IH  1850 


tP  1860 
HA  1870 


PP  1880 


IB  1890 


FB  1900 


AH  1910 


KH  1920 

P6  1930 

ES  1940 

HI  1950 

JK  1960 

SB  1970 

KI  19B0 

FP  19  90 

FH  2000 


JB  2010 


ItH  2020 
IIP  2030 


IF  Y 
)  AN 
000) 
RETU 
Y9  =  Y 
9/4) 
IF  Y 
)  AN 
/400 
IF  Y 
00} 
Y9/4 
Yl=Y 
INT  ( 
00  T 
Y1  =  Y 
00)  -I- 
)  -IN 
RETU 
XX  =  V 
#1,1 
IF  Q 
IF  ( 
>  AN 
IF  0 
IF  Q 
HEN 
GDTD 
P5=l 
4 

K5  =  fi 
0/Kl 
(K5) 
P5  +  K 
IF  C 
84 

CD*  = 
IF  C 


/1000=I 
D  Y/400 

THEN  L 
RN 
+1 : IF  Y 

THEN  Z 
9/100=1 
D  Y9/40 
>  THEN 
9/1000= 
AND  Y9/ 
000)  TH 

1977: Y 
Yl/4) +D 
HEN  192 
1-INT ( ( 
INT ( ( Y- 
T ( (Y-1 ) 
RN 

AL (STR* 
:Q*=CHR 
*="D"  T 
0*="S" 
D  Sl  =  l 
j="P"  T 
*="L"  A 
2560 

1930 
. 376344 

BS (K5-1 
: K5=K5« 
«0.3225 
5: RETUR 
C<=1  TH 

CCS (CC- 
D*(2,2) 


NT (Y/1000 
0=INT ( Y/4 
Y  =  0 


9/4=1 
Y=l 
NT  (Y9 
0<  >IN 
ZY  =  0 
INT  (Y 
4000  = 
EN  ZY 
1  =  Y1» 
I  !  IF 
0 

Y-200 
2001  ) 
/4000 


NT  (Y 

/100 

T  (Y9 

9/10 
INT( 
=  0 

365  + 
Y<20 

1  )  /I 
/400 
) 


(0) ) : GET 

«  (  I  ) 
HEN  920 
OR  Q«="T" 
THEN  370 
HEN  1230 
NO  Sl=l  T 


08:K5=A2« 

233. 73) «9 
D9: K5=SIN 
8  1  2  2  4  :  P  5  = 
N 

EN     CC=CC+ 

1 , CC+41 ) 
<>"■"      AND 


JH  2040 


JB  20B0 

FL  2090 
HH  2100 


? 464,  37.  97,  224,  7,  6BiS 

.  98 
DATA  4332.79813,1075 
9. 7195, 30686. 5884 
DATA  MERCURY, .3871, V 
ENUS, .7233, MARS, 1.52 
37, JUPITER, 5. 2028 
DATA  SATURN  ,9.5308, 
URANUS, 19.182 
"ATA  56,68,68,68,56, 
,0,0, 255, 239, 199, 13 
, 131 , 199, 239, 255 


nS  2300 
HP  2310 
in  2320 
H6  2330 
FA  2340 
HO  2350 


RETURN 

M2=M1/M9: IF  Ml< 1  OR 

M1>2B.5  THEN  M3=l 

IF     M1>=1     AND     MK6.9 

THEN    M3-2 

IF  Ml<=8  AND  Ml>6.9 

THEN  M3=3 

IF     ril>8     AND     MK14.2 

THEN  M3=4 

IF  Ml>=14.2  AND  Ml<= 

15.2  THEN  M3=5 

IF     Ml>15.2     AND     MK21 

.6  THEN  M3=6 

IF  Ml>-  =  21.6  AND  Ml<  = 

22.6  THEN  M3=7 
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JJ  2360 

KB  2370 
HA  2380 

IG  2390 


EL  2400 
JB  2410 
NF  2420 

OP  2430 
LD  2440 

ftp  2450 

HE  2460 

OE  2470 

nC  2480 

H  2490 

CH  2500 

FP  25  1  0 

LJ  2520 
OP  2530 

EC  2540 


an  2550 

EB  2560 


ED  2570 
AD  2580 

IF  2590 
tP  2600 

hO  2610 
ai  2620 


SJ  2630 


EL  2640 


HO  2650 


IF  Ml>22.6  AND  Ml<=2 
8.5  THEN  M3=a 
RETURN 

B«=""  :  IF  Y019B5  AND 

Y01986  THEN  750 
IF  <Y=1985  AND  DK30 
5J  OR  (V=1986  AND  Dl 
>149>   THEN  750 
HD=Dl+365: IF  HD>516 
THEN  HD=HD-365 
Hl=(HD-295) /10: HD=IN 
T (HI ) : H1=H1-HD 
T4=HC(HDJ-HC(HD+1) :T 
4=HC (HD> -HI tT4: IF  T4 
>K1  THEN  T4=T4-K1 
GOSUB  800: IF  Y9=999 
THEN  750 
GOSUB  890: IF  T4>1 1 15 

AND  T4<1200  THEN  U9 
=U9+40 

IF  T4>1290  THEN  U9=U 
9-40 

IF  T4>615  AND  T4<=11 
IS  THEN  U9=U9+S0 
U (7)  =U9s  B*=" fEJ HALLE 
Y'B  COMET":GDTO  710 
GOSUB  890: PK=SCREEN+ 
399-Y9+U9+LB 
IF  LL<0  THEN  PK=2«SC 
REEN+199+B0»XX-PK 
RETURN 

LL»="3N" : IF  LL<0  THE 
N  LL*="aS" 

L1=ABS (LL) : IF  ABS (LL 
)<24  THEN  Ll=40 
LC=INT( (Ll-40)/7+0.5 
) :LB=LC«40:D1=VAL(D« 
(  (M»3)  -2,M«3)  )  +D 
IF  ABS(LL)<24  THEN  L 
B=40*INT<ABS(LL!/7+0 
.  5) 

RETURN 

PRINT  "  (CLEARJ  <:DDWN> 
C6  SPACES>«»»««*«*«* 
I  SKYSCAPE  *«*««*«** 
»*":PRINT  "CDOWNJLAT 
ITUDE  CHANGE" 
PRINT  "CIS  U}"sGOSUB 

1770 
PRINT  "{3  D0WN5":PRI 
NT  "INPUT  NEW  LATITU 
DE" 5 ! INPUT  LL: PRINT 
: PRINT 

IF  ABS<LL)>90  THEN  P 
RINT  ODS:GDTO  4560 
GOSUB  2260: IF  Z$="N" 

THEN  2510 
GOSUB  2510: I*="S" ! ED 
TO  1950 

FOR  X=SCREEN+680  TO 
SCREEN +6 99: U 1 =PEEK (X 
) :U2=PEEK(2«SCREEN+1 
399-XJ:P0KE  X,U2:P0K 
E  2«SCREEN+1399-X , Ul 
:NEXT  X 

FDR  X=SCREEN+6a0  TO 
SCREEN+7ia: IF  PEEK ( X 
)=128  THEN  2650 
U1=PEEK{X) :U2=PEEK(X 
+1 ) ! POKE  X, U2: POKE  X 
+1 , Ul : X=X+1 
NEXT  X:RETURN 


Program  3:  IBM  PC/PCjr 
Skyscape 

VersioiJ  bij  Tim  Victor,  Editorial 
Programmer 

HP    100    KEY    DFF:WIDTH    80:CaLOR    0, 

0,0:CLS 
OK    110    GDSUB    2210 
FL    120    D»="000031059090120151181 
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"Skyscape"  on  the  IBM  PC/PCjr. 


2 1 2243273304334 " : K 1 = 1 440 : 
DIM    HC  (22)  :I1M«="04  1079040 

LI  130  M*="2B631734501  1041072102 
133164194225255" : D« ( 1) ="S 
":D«(2>="N":ES=93 

DJ    140    AS="JANFEBMARAPRMAYJUNJUL 

AU6SEP0CTNDVDEC":00S="DUT 

OF  RANGE! ":DG«=CHR«(24B) 

m    150    MDS="312B31303130313)3031 
3031 ":D9=ATN(1 ) /45: READ    E 
E:READ    M9:DIM    P(6,6) 
DEF    FNR(X)=INT(X*10+.5)/l 
0 

DEF    FNS(X)=INT(Xtl00+.5)/ 
100 


Nil    160 
Jft    170 

flfi    180 


FDR    Y=I    TO    2: FOR    X=l    TO    6 

:READ    P(X,Y) :NEXT:NEXT: Y= 

0 
m    190    FOR    X=l    TO    6: READ    PS ( X ) , P 

(X,3) :NEXT 
If   200    FOR    X  =  l    TO    7:READ    PP  (  X  )  :  N 

EXT 
».   210    J«="SATSUNMONTUEWEDTHUFRI 

":FDR    X=l    TD    12:READ    F* 
FF   220    CC%=CCi  +  "  '■  +  F*:NEXT:C 

C$=CC»+CC*:F«=RIGHT«(CC«, 

9) :CC«=F4+CC« 
IL  230  FOR  X  =  l  TD  B:READ  PH«  ( X  >  : 

NEXT 
JH  240  FOR  X  =  l  TO  22:  READ  HC  ( X  (  : 

NEXT: GOTO  880 
JE  250  CC=MT-720:IF  CC<0  THEN  CC 

=CC+K1 
HI  260  CC=CC/120:CD-CC-INT(CC>  :C 

C=INTCCC)  ;CD«>INT(CDt7+.2) 

:CC=S1-(CC«7+CD) 
JF  270  GOSUB  2060:  IF  LL<0  THEN  G 

OSUB  2610 
HH  200  PRINT  CDS:  RETURN 
LC  290  LOCATE  24,20:PR1NT  SPCC40 

); 

EH  300  LOCATE  4,  SL:  PRINT  "»»  DAY 
S  SKY  «t":LOCATE  5,SL:PRI 
NT  " " 

LH  310  LOCATE  7,SL:PRINT  "INPUT 
THE  TIME: ":LOCATE  B,SL:PR 
INT  " " 

NH  320  LOCATE  9,  SL:  PRINT  "HOUR  ( 
0-23)  ■';:  GOSUB  2450:  IF  It< 
>""  THEN  Tl=VAL(IS) 

HH  330  IF  TK0  OR  Tl>23  THEN  LOC 
ATE  10, SL+3! PRINT  DOt:GOT 
0  320 

K   340  LOCATE  11, SL: PR I  NT  "MI NUT 
E  (0-59) ";: GDSUB  2450: IF 
!«<>""  THEN  T2=VAL(I«) 

NK  350  IF  T2<0  OR  T2>59  THEN  LOC 
ATE  12,SLiPRlyT  00*: GOTO 
340 

U  360  RS=RIGHT* (STRt(Tl) ,21 :T«= 
RIGHT* (STR* (T2) , 2) : IF  T2< 
10  THEN  T*="0"4-RIGHT«(Tt, 
1) 

KP  370  LOCATE  14,5L:PRINT  "TIME- 
-  "RS": "T« 

a   3B0  LOCATE  24,20:GOSUB  2230:1 


F  I*="N"  THEN  290 
KN  390  COLOR  3,4:CLS:T3=T1«60+T2 

+Aft-720:IF  T3<0  THEN  T3=T 

3+Kl 
ir.   400  IF  T3>K1  THEN  T3=T3-K1 
Jl  410  MT  =  T3-360:IF  MT<0  THEN  MT 

=MT+K1 
OD  420  PT  =  T3+360:  (F  PT>K1  THEN  P 

T=PT-K1 
m   430  LOCATE  2,  IB: PRINT  "DAY'S 

SKY —   ";:GOSUB  1S00:PRIN 

T  "   "Rt":"T$ 
JG  440  LOCATE  3,  18:  PRINT" 


IH  450  COLOR  7,  1:TM=VAL(RS+".  "  +  T 

«):IF  TM<6  OR  TM>ie  THEN 

COLOR  7,0 
DB  460  XX  =  7+LC:F0R  X  =  l  TD  14:LaC 

ATE  3+X,20:IF  X=XX  THEN  4 

80 
Er  470  PRINT  SPC<40)  ;  :GOTO  490 
HE  480  PRINT  "-----.---- 


IE  490  NEXT:LDCATE  1B,20:COLOR  0 

,6: GOSUB  250: LOCATE  19,20 

: COLOR  7,1: IF  LL<0  THEN  5 

20 
EJ  500  IF  LL>24  THEN  PRINT  "E"SP 

C(18) '■S"SPC(19)  "W":GOTD  5 

40 
EF  510  PRINT  "UP-NORTH      0 

VERHEAD      DOWN-SOUTH" :G 

DTO  540 
EJ  520  IF  LL<-24  THEN  PRINT  "E"S 

PC(18)"N"SPC(19) "W":GOTa 

540 
SB  530  PRINT  "UP-SOUTH      Q 

VERHEAD      DOWN-NORTH" 
f£  540  T4='ftA:  GDSUB  780:  ¥8=888 
SH   550  IF  Y9=999  THEN  590 
fC   560  GOSUB  2460:Ya=Y9:  IF  A1';0 

THEN  590 

Efl  570  IF  U9>17  OR  U9<4  THEN  590 
CL  580  COLOR  7,1:  LOCATE  U9,59-Y9 

: PRINT  CHR$(42) 
DB  590  T4=AA+M2»K1:  IF  T4>Ki  THEN 

T4=T4-K1 
EH  600  COLOR  7,  I:  IF  TM<6  OR  TM>I 

8  THEN  COLOR  7,0 
HJ  610  GDSUB  780:  IF  Y9=999  THEN 

650 
KF  620  MM=INT<Ml/9.83333)+l:G0SU 

B  860 
HK  630  GOSUB  2460:  IF  U9>17  DR  U9 

<4  THEN  650 
OK  640  LOCATE  U9 ,  59-Y9:  PRI  NT  CHR 

»(MM):IF  ABS(Y8-Y9)<=.5  T 

HEN  COLOR  1,7: LOCATE  U9, 5 

9-Y9: PRINT  CHR* (79) : COLOR 
7,1 
AC  650  FDR  X=l  TO  7:  IF  X=7  THEN 

2350 
JN  660  T4=P(X,6)  :GaSUB  780:  IF  Y9 

=999  THEN  730 
:K  670  U9=SIN(  (P(X,6)/4)/(l/D9)  ) 

:U9=-3*U9+.5 
HD  680  GDSUB  2470 

KA  690  IF  U9<4  DR  U9>17  THEN  730 
DB  700  Z=SCREEN(U9,59-Y9) 
BL  710  IF  Z032  AND  Z045  THEN  U 

9=U9+SGN (LL) + (LL=0) : GOTO 

700 
DP  720  LOCATE  U9, 59-Y9:  PRINT  CHR 

*(PP(X)  )  5 
OJ  730  NEXT 
re  740  LOCATE  21,14:C0L0R  3,4:F0 

R  X=l  TD  6:PRINT  CHR«(PP< 

X))!P»(X>;"   ";:NEXT 
Jfl  750  LOCATE  22,14:PRrNT  "tSUN 
JO (MOON      NEW  MOON  + 
SUN   " ; B» 
PC  760  LOCATE  22,  33:  COLOR  4,  3;  PR 

INT  "0": COLOR  3,4 
HH  770  LOCATE  24, 20:  PRINT  "T-  NE 


W  TIME.P-  P.  TABLE, D-  DAT 

E,L-  LAT";  :SL=ib2:G0TD  19B 

0 
Nl  7B0  Y9=99"?:IF  MT<PT  THEN  B20 
NH  790  IF  T4<MT  AND  T4  >PT  THEN  R 

ETURN 
FK  800  IF  T4<MT  OR  T4>K1  THEN  T4 

=T4+K1 
m  B10  GOTO  830 
LB  B20  IF  T4<MT  DR  T4>PT  THEN  RE 

TURN 
Fft  830  y9=INTC tT4-MT)/18+.5) : IF 

Y9=40  THEN  Y9=39 
K   B40  RETURN 
PC  850  U9=BIN(  (T4/4)/{l/D9M  :U9= 

INT(-3tU9+.5) : RETURN 
rt  660  MM=VAL(MID*(MM*,3tMM-2,3) 

)iIF  L<0  AND  MM081  THEN 

HM=flBS(MM-81 J 
W  870  RETURN 
OB  B80  COLOR  0 ,  3:  CLS :  LOCATE  2,20 

:PRINT  "t*t«t*ttttt**t  SK 

Y5CAPE  **t«tt<tt«tttt":LO 

GATE  4,10:PRINT  "DATE  INP 

UT":S1=0 
Cfl,  890  LOCATE  5, 10: PRINT  " 

":1F  YO0  THEN  LOCATE 

4,40:GOSUB  1B00 
LI  900  LOCATE  7,4;PRINT  "YEAR";: 

GOSUB  2450: IF  !«<>""  THEN 
Y=VAL(I«) 
"C  910  IF  Y<1977  THEN  PRINT  "MUS 

T  BE  AFTER  1977": GOTO  900 
OJ  920  GOSUB  1S80;LCJCATE  9,4:PRI 

NT  "MONTH  (1-12) ";:GOSUB 

2450: IF  !«<>""  THEN  M=yAL 

HB  930  IF  M<1  OR  f1>12  THEN  PRINT 

00$: GOTO  920 
OJ  940  DI=VAL(MID»(MD*,2»M-1,2)  ) 
;DI=DI-(M=2) »LY!DI«=STR«( 
DI) 
rO  950  LOCATE  1  1 ,  4:  PRINT"DAY  (1- 
"DI*") "; :GDSUB  2450: IF  I» 
<>""  THEN  D=VAL(I*) 
f£  960  IF  D<1  DR  D>DI  THEN  PRINT 

0D«:GOTD  950 
LB  970  H*  =  MID*(At,  (M«3)-2,3):LDC 
ATE  13,4!PRINT  "LATTITUDE 
(0-90) "; iGOSUB  2450: IF  I 
«<>""  THEN  LL=yAL(I«) 
EH  980  GOSUB  2500 
FS  990  IF  ABS{LL)>'?0  THEN  PRINT 

QOJsGOTO  970 
SP  1000  Dl=yAL(MID4(DS,  (Mi:3)-2,3 
n+DsGOSUB  1920!  IF  M>2 
THEN  D1=DH-LY:  Y1=Y1+LY 
Nft  1010  S=0: GOSUB  1540: LOCATE  4, 
40: GOSUB  1800: LOCATE  5,4 
0: PRINT  " 


m    1020  LOCATE  24, 20: GOSUB  2230: 

IF  I*="N"  THEN  880 
BB  1030  LOCATE  24, 20:  PRINT  SPC(4 

0); 

F«  1040  D2=VftL(MID«(M*,  (M»3)-2,3 
))+D!GOSUB  1920: : IF  M> 
2  THEN  D1"D1+LY! Y1=Y1+ 
LY 

AD  1050  D3=D2-J85:  IF  «=3  AND  D<2 
0  THEN  D2=D2+LYiD3=D3 
+LY 
on  1060  IF  D3<=0  THEN  A=ia0«D2/l 

85: GOTO  1080 
II  1070  A=(180tD3/C180  +  ZY)  1+130 
LC  10S0  IF  A<180  THEN  B=23. 43333 

tSIN(D9tD2* 180/185) 
LD  1090  IF  A>1S0  THEN  S=-23.4333 

3»(SINCD9»D3)) 
HO  1100  IF  A>=360  THEN  A=A-360 
LC  1110  fi=FNR<A) 
Kfl  1120  S=FNR(S) :A1=(SGN(LL)-(LL 

=0) ) tS+90-ABS(LL>: A1=FNR 

(AD:  GOSUB  1490:  GOSUB  14 

40 


HF  1130  H=1-(LL<0)  :  IF  A 1  >90  THEN 

A1=180-A1:W=3-W 
PE  1140  LOCATE  7,36:  PRINT  "DAY  0 

F  THE  YEAR 

";D1 
JO    1150    LOCATE    B,36:PRINT    "SUN'S 

GEOCENTRIC  ANGLE 

";STR«(A) ;DGt 
J(1  1160  LOCATE  9, 36:  PRINT  "SUN'S 

DECLINATION 

";STR*(S)  ;DGt 
OS  1170  LOCATE  10,36:PRINT  "SUN' 

S  ALTITUDE  AT  NODN 

";STR«(A1) ;DG»;D«(W) 
m   1180  LOCATE  11, 36: PRINT  "SUN' 

S  RIGHT  ASCENSION 

";A3« 
HF  1190  LOCATE  12, 36:  PRINT  "R.A. 

AT  9:00PM 

" ;  A5« 
BC  1200  LOCATE  13,36:  PR  INT  "MOON 

'S  AGE 

"jSTR« (Ml  1 ; "DY" 
UN  1210  LOCATE  14,36:PRINT  "MOON 

'S  ELONGATION 

" jSTR»(Ma> !DG*;L« 
BH  1220  LOCATE  15, 36:  PRINT  "MOON 

'S  PHASE  -  "PH«(M3) 
LD  1230  LOCATE  24, 20:  PRINT  "-P- 
PLANET  TABLE,  -D-  NEW  DA 
TE";:GOTO  1980 
JK  1240  COLOR  7,5:CLS:L0CATE  2,2 
0:PRINT  "SKYSCAPE-    ";: 
GOSUB  1800! Sl=l 
HF  1250  LOCATE  4,  12:  PRINT" »»  PLA 
NET  TABLE  »»": LOCATE  5,1 
2! PRINT  " 

PI  1260  LOCATE  7,4:PRINT  "PLANET 
DIST.   ANG.  W/  SUN 
R.A.  " 
H6  1270  LOCATE  8,4:  PRINT  " 


PO  1280  FOR  X=l  TO  6:  A2  =  Y1 /P  (  X  ,  2 

)-INT(Yl/P(X,2) ) :Q3=1 
GE  1290  A2=(A2»360)+P(){,  n  :  IF  A2 

>360  THEN  A2=A2-360 
NK  1300  E=ia0+A:IF  E>360  THEN  E= 

E-360 
JL  1310  E1=ABS(E-A2)  :  IF  El>ia0  T 

HEN  E1>=360-E1 
HP  1320  GOSUB  1560:E1=E1«D9:P5=P 

(X,3)!lF  X=3  THEN  GOSUB 

2040 
KI  1330  P(X,4)=SQR(l+P5'"2-2tP5»C 

OS(El)  )  :XX=(  (P5'"2-1-P(X, 

4)-^2>/(-2»P(X,4)  )  ) 
K    1340  P(X,5)=-ATN(XX/SDR(-XX»X 

X+1) )+ATN(I) «2:P(X,4)=IN 

T(P(X,4)»93+.5) :P(X,5)=P 

(X,5)/D9 
JH  1350  P(X,5t=FNS<P(X,5)  )  :D1$  =  S 

TR»(P(X,4>  > :Q2«=STRt(P(X 

,5)  ) 
01  1360  Q1=LEN(Q1«)  :GI2=LEN(D2*)  : 

GOSUB  1660 
FH  1370  LOCATE  X+a,4;PRINT  P«(X) 

;TAB<10-Q1 ) ; Ql«; TAB (28-Q 

2);Q2«;:IF  Q3=-l  THEN  PR 

INT  DGS"W'j 
BE  1380  IF  03=1  THEN  PRINT  DG«"E 

> 
KH  1390  BOSUB  1  710:  Q4«  =  STR*  (04)  : 

Q5«=STR» (05) : IF  a5< 1 0  TH 

EN  Q5»="0"+RIGHT«(Q5t, 1) 
BH  1400  G5»=RIGHT«(Q5*,2)  :D4*=Q4 

«+ " : " +Q5« : Z=LEN ( Q4« ) 
EC  1410  PRINT  TAB(32>  iQD«;TAB(40 

-Z);Q4«: NEXT: LOCATE  15,4 

:PRINT    "»    -    VISIBLE    AT    9 
P.M.  " 
Jfi    1420    LOCATE    17,4:PRINT    "SUN'S 
R.A.     ";SPC<Q8);A 

3«: LOCATE  18, 4: PRINT  "R. 

A.     AT    9:00PM    "sSPC(Q9 


)  Jft5« 

FD  1430  SL=52:L0CATE  24,20:PRrNT 
"-S-  FOR  DAY'S  SKY,  -D- 
FOR    NEW   DATE";: GOTO    198 

0 
FD    1440    A2=KltA/360:  IF    A2>K1    THE 

N    A2=fi2-Kl 
HO    1450    fi3=INT(A2/60)  :  A4  =  A2-A3»6 

0:A5=A3+9:IF   A5>23    THEN 

A5=A5-24 
PH    1460  A4=INT(A2-A3*60+.5)  :  IF    A 

4=60    THEN    A4=0:A3=A3+1 
JO    1470    IF    A3=24    THEN    A3=0 
6H    1480    AA=A3t60+A4:GOTO    1840 
EN    1490    Ml=(  (YI/M9)-INT<yi/M9)  )« 

M9+10:IF  M1>M9  THEN  M1=M 

1-H9 
n   1500  GDSUB  2260:I1S=360«M2:  IF 

Me>180  THEN  L*="W' 
m   1510  IF  M8<=ia0  THEN  LS="E" 
U   1520  IF  Ma>180  THEN  M8=360-Ma 
HP  1530  M1=FNR(M1)  :Ma=FNR(M8)  :RE 

TURN 
FL  1540  YY=INT(7*(Yl/7-INT(yi/7) 

)+.2>:IF  YY=0  THEN  YY=7 
NH  1550  K*=MID*(J$,  (YY*3)-2,3):R 

ETURN 
CN  1560  Q3=0:Ql=E-t-180:  IF  Ql  >360 

THEN  1600 
IE  1570  IF  A2>E  AND  A2<D1  THEN  1 

590 
m    1580  Q3=l: RETURN 
BA  1590  Q3=-l:  RETURN 
Lfl  1600  Q1=Q1-360:IF  A2<=360  AND 

A2>E  THEN  1590 
Hi    1610  IF  Q3O0  THEN  RETURN 
EH  1620  IF  A2>0  AND  A2<=D1  THEN 

1590 
Hft  1630  IF  D3O0  THEN  RETURN 
FD  1640  IF  A2>Q1  THEN  15B0 
JE  1650  RETURN 
UK    1660  Q5=n3«P(X,5)  «4+AA:  IF  D5< 

0  THEN  Q5=Q5+K1 
m    1670  IF  Q5>K1  THEN  D5=a3-Kl 
EL  1680  P(X,6)=a5:Q4=INT(a5/60)  : 

Q5=INT(Q5-Q4»60+.5) : IF  D 

5=60  THEN  05=0:04=04+1 

IF  Q4=24  THEN  04=0 

RETURN 

SU=A5t60+A4:PS=SU+360:MS 

=SU-360: IF  PS>K1  THEN  PS 

=PS-K1 

IF  MS<0  THEN  MS=MS+K1 

IF  MS>P5  THEN  1760 

IF  P(X,6)<PS  AND  P(X,6):> 

MS  THEN  1790 

QQ*="  "i RETURN 

IF  P(X,6)<K1  AND  P(X,6) > 

MS  THEN  1790 

IF  P(X,6)<PS  THEN  1790 

GOTO  1750 

QQ*= '•»■':  RETURN 
BH  1800  LL*=RIBHT*(BTR*(ABS(LL)  ) 

,2):IF  ABS(LL><10  THEN  L 

L»="  "+R1BHT«{LL*, 1 ) 
HK  1810  PRINT  KS;" —  ";H*;STR$(D 

);",";Y;"  " ; LL«; DG«; : PRI 

NT  MID«("SN", (LL<0)+2, 1) 

L«  1820  IF  D<10  THEN  PRINT  "  "; 
JE  1830  RETURN 

NB  1840  A4S=RIGHT«(STRS<A4)  ,2) 
NP  1850  IF  A4<i0  THEN  A4«="0"+RI 

GHT«(A4«, 1) 
HP  1860  A3*=STR*(A3)+":"  +  A4t:A5t 

=STR«(A5)+": "+A4« 
5J  1870  Q8=7-LEN(A3«>  :Q9=7-LEN(A 

5»  > : RETURN 
NO  1880  LY=0:  IF  Y/4=  INT  ( Y/'4)  THE 

N  LY=1 
SI  1890  IF  V/100=INT(Y/100)  AND 

Y/400<>INT(Y/400>THEN  LY 

=0 
FH  1900  IF  Y/1000=INT(Y/1000)  AN 

D  Y/4000=INT(Y/4000)  THE 

N  LY=0 
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IH  1690 
J  J  1700 
HH    1710 


H6  1720 

LE  1730 

D6  1740 

EI  1750 

BK  1760 

LJ  1770 

CB  1780 

LC  1790 
1800 


JS  1910  RETURN 

Nfl  1920  Y9=Y+1:IF  Y9/4-I NT ( Y9/4 > 

THEN  ZY=1 
LO  1930  IF  Y9/100=INT(Y9/100)  AN 

D  Y9/400<>INT(Y9/400J  TH 

EN  ZY=0 
ai  1940  IF  Y9/1000=INT(Y9/1000) 

AND  Y9/4000=INT(Y9/4000) 
THEN  ZY=0 
BF  1950  Y1=Y-1977:  Y1=Y1»365+INT  ( 

Yl/4)+Dl:IF  Y<2000  THEN 

1970 
nC  I960  Yl=Yl-INTC(Y-200n /100)  + 

INT(  (Y-200U/400)-INT(  (Y 

-l)/4000) 
KC  1970  RETURN 
Si    19B0  GOSUB  2240 
JC  1990  IF  I«="D"  THEN  880 
JH  2000  IF  (I*="S"  OR  I*="T")  AN 

D  Sl=l  THEN  290 
NK  2010  IF  E*^"P"  THEN  1240 
E6  2020  IF  I$  =  "L"  AND  Sl  =  l  THEN 

2540 
EE  2030  GOTO  1980 
AB  2040  P5=  I.  376344  :K5=02t4 
LC  2050  K5=ftBS(K5-1233.73)  *90/Kl 

:K5=K5»D9:K5=SIN(K5) « . 32 

25812: P5=P5+K5: RETURN 
FP  2060  IF  CC<  =  0  THEN  CC=CC*B4 
CO  2070  CD«=MID*(CC*,CC-1):  IF  MI 

D«(CD»,2,  DO"  "  AND  MID 

»(CDt,3,  1)  =  "  "  THEN  CD*== 

"  "+CD« 
eC  2080  IF  HID*CCDS,40,  1>="  "  AN 

D  MID*(CD*,41,  DO""  THE 

N  CD$=M1D«(CD«,2) 
Jf  2090  CDt=MID«(CDt,2,401 :RETUR 

N 
HO  2100  DATA  356.26,29.53059,39. 

aiB184, 42. 719626, 262. 364 

394,52.9196763 
OP  2110  DATA  134.69697.218.79464 

,87.97,224.7,686.90 
PO  2120  DATA  4332.79813,10759.71 

95,30686.5884 
NA  2130  DATA  "MERCURY"  ,.  3871 ,  "VE 

NUS", .7233, "MARS", 1.5237 

."JUPITER", 5. 2028 
GK  2140  DATA  "SATURN"  ,  9.  5303,  "UR 

ANUS", 19. 1B2 
JL  2150  DATA  4,332,229,21,237,15 

7,231 
60  2160  DATA  "SA",  "SC",  "LI","VI" 

,"LE", "Cfi","GE","TA", "AR 

", "PI", "AQ", "CP" 
Oil  2170  DATA  "NEW",  "WflXINB  CRESC 

ENT","1ST  QUARTER", "WAX I 

NG  GIBBOUS", "FULL" 
HI  2180  DATA  "WANING  GIBBOUS",  "3 

RD  QUARTER", "WANING  CRES 

CENT" 
m   2190  DATA  1770,1719,1620,1500 

, 1418, 1365, 1333, 1310, 129 

0, 1275, 1260 
PO  2200  DATA  1238,1220,1200,1178 

,1115,915, 720, 660, 640, 62 

5,610 
LI  2210  CLS:LOCATE  7,12:PRINT  "* 

«*«  SKYSCAPE  «»««" 
IE  2220  RETURN 
KH  2230  PRINT  "-N-  TO  RE-INPUT  D 

R  RETURN  TO  CONTINUE"; 
EL  2240  I*="":WHILE  LEN(I«t=0:I» 

=INKEY*:WEND: IF  I«>"Z"  T 

HEN    I«=CHR«(ASC(I«)-.32) 
IP  2250    RETURN 
Iffl  2260    M2=MiyM9:IF    MKl    OR    Ml>2 

8.5    THEN    M3=l 
EL  2270    IF    M1>=1    AND    m<6.9    THEN 

M3=2 
IH  2280    IF    Ml>=6.9    AND    MK-B    THE 

N    M3=3 
Dfi   2290    IF    Ml>8    AND    MK14.2    THEN 

M3=4 
IE  2300    IF    Ml>=14.2    AND   Ml<i5.2 

THEN   M3=5 
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OK   2310    IF    Ml>=15.2    AND   MK21.6 

THEN    M3=6 
FC   2320    IF    Ml>=21.6    AND    Ml<=22.6 

THEN    M3=7 
Dft   2330    IF    Ml>22.6    AND    M1<*2S.5 

THEN    M3=8 
JO   2340    RETURN 
JL    2350    B«="":IF    Y019B5    AND   Y<> 

1986    THEN    730 
no    2360    IF     (Y=19B5    AND    Dl':305)     O 

R     (Y=19B6    AND    0l>149)     TH 

EN  730 
BB  2370  HD=Dl+365:rF  HD>516  THEN 

HD=HD-365 
DE  23B0  H1=(HD-Z95)/10:HD=INT(H1 

) :H1=HI-HD 
KA  2390  T4=HC(HD)-HC(HD+D  :T4=HC 

<HD>-HI«T4:  IF  T4M440  TH 

EN  T4=T4-1440 
NB  2400  GOSUB  7B0:  IF  Y9  =  999  THEN 

730 
PH  2410  GOSUB  B50:  IF  T4>1115  AND 

T4>1200  THEN  U9=U9+1 
Hfl  2420  IF  T4>1290  THEN  U9=U9-1 
IP  2430  IF  T4>615  AND  T4<U15  TH 

EN  U9=U9+2 
PI  2440  U(7)=U9:BS=CHR*(PP(7M+" 

HALLEV'S  COMET": GOTO  6B0 
fi"  2450  INPUT  "";It:RETURN 
PJ  2460  GOSUB  850 
BH  2470  IF  LL>=0  THEN  U9=LC+10  +  U 

9: GOTO  2490 
CL  24B0  U9=LC+10-U9:  Y9=39-Y9 
KP  2490  RETURN 
Ii;  2500  LL»="3N":IF  LL<0  THEN  LL 

*="3S" 
10  2510  L1  =  ABS(LL)  :  IF  ABS(LL)<24 

THEN  LI =40 
«  2520  LC=INT( <Ll-40)/7+.5)  :D1- 

VAL(MID»(D«,  (M«3)-2,3)  )  + 

D 
JP  2530  RETURN 
CP  2540  LOCATE  24,  20:  PRINT  SPC(4 

0); 
EH  2550  LOCATE  7,  SL:  PRINT  "NEW  L 

ATTITUDE"; LOCATE  8,SL:PR 

INT  " " 

DD   2560    LOCATE    9,SL:PRINT    "LAT     ( 

0-90) "; iGOSUB  2450: IF  I« 

<>""  THEN  LL=VAL(I*) 
BJ  2570  IF  ABS(LL)>90  THEN  LOCAT 

E  10,SL+3:PRINT  DO*:G0T0 
2560 
LQ  2580  LOCATE  24, 20:  GOSUB  2230: 

IF  I«="N"  THEN  2540 
IE  2590  LOCATE  9,SL:PRINT  SPC(80 

-SL)  ; 
SK  2600  6DSUB  2500;  It  =  "S":  GOTO  2 

000 
JI  2610  CI  =  I;C2*="" 
DB  2620  C1*=MID«(CD*,CI,  1)  :  IF  CI 

SO"  "  THEN  2640 
Ffl  2630  C2*=C1«+C2«:CI=CI+1:GOTO 

2650 
HH  2640  C2S=MID»(CDS,CI,2)+C2«:C 

I=CI+2 
IC  2650    IF    CK4I    THEN    2620 
LB  2660    CD*=C2«:  RETURN 


Program  4:  Apple  Skyscape 

Version  by  Tim  Victor,  Editorial 
Programmer 

ID  60  GOSUB  1940 

H  70  D«  =  "000031059090120151  IB 
1212243273304334" :K1  =  144 
0:  DIM  HC(22):MM«  -  "04108 
1040" 

84  B0  M*  =  "28631734501104107210 
2133164194225255":D»tl)  = 
"S":D*(2)  =  "N":ES  =•  93 

13  90  AS  =  "JANFEBMARAPRMAYJUNJU 
LAUSSEPOCTNOVDEC":DO*  =  "0 
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«H  noon  ♦Sufi     NHSLLET'S  COnET 
T-  MEM  Tlfie.P-  F.    T(teLE.O-  OftTE.L-  LAT 


"Skyscape"  on  an  Apple  Il-series 
computer. 


UT  OF  RANGE ! ' " 

2»  100  MD4  =  "312B31303130313130 

313031":D9  »  ATN  tl)  /  45 

!  READ  EE:  READ  M9:  DIM  P 

(6,6) 

C(  110  DEF  FN  R(X)  =  INT  (X  »  10 

0  +  .5)  /  100 
46  120  DEF  FN  S(X)  =  INT  (X  »  10 

+  .5)  /  10 
BB  130  FDR  Y  =  1  TO  2:  FOR  X  =  1 
TD  6:  READ  P(X,Y):  NEXT 
:  NEXT  :Y  =  0 
73  140  FOR  X  =  1  TO  6:  READ  P*  ( X 

),P(X,3)!  NEXT 
14  150  FOR  X  =  1  TO  7:PP(X)  =  X 

+  85:  NEXT 

IF  160  J*  =  "SATSUNMONTUEWEDTHUF 

RI":  FOR  X  -  1  TD  12:  REA 

D  FS 

BB  170  CC*  ==■  CC*  +  "       "  +  F*; 

NEXT  ;CC«  =  ^:C*  +  CC*:F« 

=  RIGHTS  (CC4,9):CCt  =  F 

*  +  cc» 

CI  180  FDR  X  =  1  TO  B:  READ  PH*  ( 

X)!  NEXT 
2E  190  FOR  X  =  1  TO  22:  READ  HC  { 

X> :  NEXT  :R«  =  "0":T«  =  " 

00"!  GOTO  720 
3B  200  CC  =  MT  -  720:  IF  CC  <  0 

THEN  CC  =  CC  +  Kl 
2C  210  CC  =  CC  /  120:  CD  =  CC  -  I 

NT  <CC):CC  =  INT  (CC):CD 

=  INT  (CD  t  7  +  .2) :CC  = 

81  -  (CC  «  7  +  CD) 
51  220  GOSUB  1770:  IF  LL  <  0  THE 

N  GDSUB  5000 
92  225  VTAB  17:  PRINT  CDS;:  RETU 

RN 
OB  230  HOME  :  HTAB  10:  PRINT  "«« 
DAYS  SKY  »»":  VTAB  3:  GO 

SUB  1550:  HTAB  31:  PRINT 

R$": "T« 
Of  240  VTAB  5;  HTAB  1:  PRINT  "IN 

PUT  THE  TIME:":  PRINT  " — 


B8  245  PRINT  :  PRINT  "      HOUR 
(0-23)  ";:  GOSUB  2240i  IF 

IS  <  >  ""  THEN  Tl  =  VAL 
(I«> 
83  250  IF  Tl  <  0  OR  Tl  >  23  THEN 

PRINT  DOS:  GOTO  245 
A3  255  PRINT  :  PRINT  "    MINUTE 
(0-59)  ";:  GDSUB  2240:  IF 

I*  <  >  ""  THEN  T2  =  VAL 
(IS) 
?0  260  IF  T2  <  0  OR  T2  >  59  THEN 

PRINT  OOS:  GOTO  255 
85  270  R»  =  STR4  (TD:TS  =  STR* 
(T2) :  IF  LEN  (TS)  =  1  THE 
N  T*  =  "0"  +  T« 
E8  280  VTAB  13:  PRINT  "TIME —  "R 

»": "T» 
AA  290  PRINT  t    GDSUB  2020:  IF  IS 

=  "N"  THEN  230 
II  300  HOME  :T3  =  Tl  *  60  +  T2  + 
AA  -  720:  IF  T3  <  0  THEN 
T3  =  T3  -f  Kl 


21  310  IF  T3  >  Kl  THEN  T3  =  T3  - 
Kl 

17  320  MT  =  T3  -  360;  IF  MT  <  0 

THEN  MT  =  MT  +  Kl 
FF  330  PT  -  T3  +  360:  IF  PT  >  Kl 

THEN  PT  =  PT  -  Kl 
14  340  HTAB  4:  BOSUB  1550:  HTAB 

31!  PRINT  R«":"T» 
F7  350  TM  =  VAL  <R»  +  " .  "  +  TS): 
IF  TM  >  =  6  AND  TM  <  =  1 
B  THEN  INVERSE 
H    360  XX  =  7  +  LC:  VTAB  3:  HTfiB 
1:  FOR  X  =  1  TD  14:  IF  X 
=  XX  THEN  GOTO  380 
CE  370  PRINT  SPC  (  40);:  GDTD  390 
94  380  PRINT  "  --------- 

112  390  NEXT  X:  NORMAL  :  GOSUB  20 

0:  INVERSE  :  IF  LL  <  0  TH 

EN  395 

31  393  IF  LL  >  24  THEN  PRINT  "E" 

SPC(  IB)"S"  SPC(  19) "W": 

GOTO  400 

18  394  PRINT  "UP-NORTH"  BPC  (  5)'- 

OVERHEAD"  SPC <  5> "DOW 

N-SOUTH":  GOTO  400 
D5  395  IF  LL  <  -  24  THEN  PRINT  " 

W"  SPC(  18) "N"  SPC(  19) "E 

":  GOTO  400 
C8  397  PRINT  "UP-BPUTH"  SPC  (  5)" 

OVERHEAD"  SPC (  5) "DOW 

N-NORTH" 
t1   400  T4  =  AA:  GDSUB  610:  YB  =  8 

88 

IF  y9  =  999  THEN  450 

EOSUB  4000:  Y8  «•  Y9:  IF  Al 
<  0    THEN  450 

IF  U9  >  16  OR  U9  <  3  THEN 
450 

VTftB  U9:  HTAB  40  -  Y9:  PR 

INT  CHR»  (42> 

T4  =  AA  +  M2  «  Kl:  IF  T4 

>  Kl  THEN  T4  =  T4  -  Kl 

GOSUB  610:  IF  Y9  =  999  TH 

EN  500 

MM  =  INT  (Ml  /  9.83333)  + 

1:  GOSUB  710 
GOSUB  4000:  IF  U9  >  16  OR 

U9  <  3  THEN  500 
VTAB  U9:  HTAB  40  -  Y9:  PR 
INT  CHR*  (MM);:  IF  ABS  (Y 
B  -  Y9)  <  =  .5  THEN  NORMA 
L  :  HTAB  40  -  Y9:  PRINT  C 
HR*  (81);:  INVERSE 
FOR  X  =  1  TO  7:  IF  X  =  7 
THEN  2140 

T4  =  P(X,6) :  GOSUB  610:  I 
F  Y9  =  999  THEN  560 
U9  =  SIN  ((F(X,6)  /  1)  / 
<1  /  D9)}:U9  =  INT  (  -  3 
*  U9  +  .5) 

GOSUB  4005:  IF  U9  <  3  OR 
U9  >  16  THEN  560 
SR  =  INT  ( (U9  -  1 )  /  8) : Z 

=  PEEK  (1024  -  SR  »  984 
+  (U9  -  1)  «  128  +  39  -  Y 
9)  :  IF  Z  >  127  THEN  Z  =  Z 
-  12B 

ft*  545  IF  Z  <  >  32  AND  Z  <  >  45 
THEN  U9  =  U9  +  2  »  (LL  > 
=0)  -  1:  GOTO  540 

2fl  550  VTAB  U9:  HTAB  40  -  Y9:  PR 
INT  CHR«  (PP(X) ) i 

EE  560  NEXT  X:  NORMAL 

f!  570  VTAB  20:  HTAB  1:  PRINT  "V 
MERCURY    WVENUS    XMARS 
yjUPITER" 

IF  580  PRINT  "ZSATURN     [URANUS 
«SUN       )Q(MODN" 

99  590  HTAB  3:  INVERSE  :  PRINT  " 
Q";:  NORMAL  :  PRINT  "NEW 
MOON  +  SUN   "B« 

92  600  PRINT  :  PRINT  "T-  NEW  TIM 
E,P-  P.  TABLE, D-  DATE.L- 
LAT";:  GOTO  1700 


43 

410 

A4 

420 

D4 

430 

M 

440 

97 

450 

ES 

460 

97 

470 

ID 

480 

46 

490 

78 

500 

41 

510 

87 

520 

13 

530 

SE 

540 

7F 

610 

36 

620 

IC 

630 

87 

640 

7!; 

650 

C< 

660 

24 

670 

7ft 

680 

!8 

690 

4A 

700 

54  710 


2D  715 
DA  720 


54  730 

E5  740 

M  745 

D3  750 

65  755 

45  760 

3B  770 

Bfi  775 

F2  7B0 


FB  786 
E9  790 


48  800 


SD  820 


2D  830 


ri   840 


Y9  =  999:  IF  MT  <  PT  THEN 

660 
IF  (T4  >  =  MT)  OR  (T4  <  = 

PT)  THEN  640 
RETURN 

IF  (T4  >  =  MT)  AND  (T4  < 
=  Kl)  THEN  680 
T4  =  T4  +  Kl:  GOTO  680 
IF  (T4  >  =  MT)  AND  (T4  < 
=  PT>  THEN  GOTO  680 
RETURN 

Y9  -  INT  ( (T4  -  MT)  /  18 
+  .5) :  IF  Y9  =  40  THEN  Y9 

=  39 
RETURN 
U9  =  SIN  (  (T4  /  4)  /  (1  / 

D9) ) :U9  =  INT  (  -  3  «  U9 

+  .5) :  RETURN 
MM  "  VAL  (  MID«  (MM*, 3  t 
MM  -  2,3) ) :  IF  LL  <  0  AND 

MM  <  >  81  THEN  MM  -  ABS 
(MM  -  81) 
RETURN 

HOME  :  VTAB  2:  HTAB  7:  PR 
INT  "t«t(tl*«««  SKYSCAPE 
«t*t«t*ttt":  VTAB  4:  PRIN 
T  "DATE  INPUT" 

PRINT  " -":  IF  Y 

<  >  0  THEN  VTAB  6:  GDSUB 
1550:  PRINT  :  PRINT 
PRINT  "YEAR   ";:  GOSUB  22 
40:  IF  I«  <  >  ""  THEN  Y  » 

VAL  (I») 
IF  Y  <  1977  THEN  PRINT  "M 
UST  BE  AFTER  1977":  GOTO 
740 
GDSUB  1600:  PRINT  :  PRINT 

"MONTH  (1-12)  ";:  GDSUB 
2240:  IF  I*  <  >  ""  THEN  M 

=  VAL  (I») 
IF  M  <  1  OR  M  >  12  THEN  P 
RINT  00«:  GOTO  750 
DI  =  VAL  (  MID*  (MD*,2  « 
M  -  1,2) ) :DI  =  Dl  +  (M  = 

2)  t  LY:DI*  -  STR*  (DI):D 
I*  =  RIGHT*  (DI*,2) 
PRINT  :  PRINT  "DAY  (1-"DI 
*")  ";:  SOSUB  2240:  IF  I* 

<  >  ""  THEN  D  =  VAL  (It) 
IF  D  <  1  OR  D  >  DI  THEN  P 
RINT  00* :  GOTO  770 
H*  =  MID*  (A*, (M  t  3)  -  2 
,3)  +  "  ":  PRINT  :  PRINT 
"LATITUDE  (0-90)";:  GDSUB 

2240:  IF  I*  <  >  ""  THEN 
LL  =  VAL  (I*) 
GOSUB  4500 

IF  ABS  (LL>  >  90  THEN  PR  I 
NT  00»:  GOTO  780 
PRINT  :  HTAB  5:  GOSUB  129 
5:  GDSUB  1550:  PRINT  :  PR 
INT  :  GOSUB  2020:  IF  I*  = 

"N"  THEN  720 
D2  =  VAL  (  MID*  (M«, (M  * 

3)  -  2,3) )  +  D:  GOSUB  164 
0:  IF  M  >  2  THEN  Dl  =  Dl 
+  LYsYl  =  Yl  +  LY 

D3  =  02  -  1B5:  IF  M  =  3  A 
ND  D  <  20  THEN  D2  -  D2  + 
LY:D3  =  D3  +  LY 
S  =  0:  IF  D3  <  =  0  THEN  A 


=  180  «  D2  /  185:  GOTO  S 
60 
E2  850  A  =  180  «  D3  /  (180  +  ZY) 

+  180 
62  860  IF  A  <  >  180  THEN  S  =  23. 
43333333  t  C  SIN  (D9  t    D2 
t     180  /  IB5) ) 
D4  870  IF  A  >  180  THEN  S  =  -  23. 
43333333  t  (  SIN  (D9  *  D3 
)  ) 
E9  880  IF  A  >  =  360  THEN  A  =  A  - 

360 
B3  885  A  =  FN  R  (A) 
£1  890  S  =  FN  R(S):A1  =  (  SGN  (L 


L>  +  <LL  -  0) )  «  S  +  90  - 

ABS  (LU):A1  =  FN  R(A1): 
GOSUB  1250:  GOSUB  1200 
B7  895  W  =  2  -  (LL  <  0)  :  IF  Al  > 
90  THEN  Al  =  IB0  -  A1:W 
=  3  -  W 
25  900  HOME  :  VTAB  2:  GOSUB  1550 
:  PRINT  :  PRINT  " 


4*  910  PRINT  :  PRINT  "DAY  OF  THE 

YEAR ";D1 

12  920  PRINT  "SUNS  GEOCENTRIC  AN 

GLE ";A;"3" 

BD  930  PRINT  "SUNS  DECLINATION — 

" JS; "3" 

if   940  PRINT  "SUNS  ALTITUDE  AT  N 

ODN "; Al; "a";D»(W 

) 
48  950  PRINT  "SUNS  RIGHT  ASCENS! 


ON- 


A3« 


53  960  PRINT  "R.A.  AT  9:00PM 

";A5« 

6£  970  PRINT  "MOONS  AGE 

";MI;"DY" 

FB  9B0  PRINT  "MOONS  ELONGATION — 

"iM8;"3";L» 

iE  990  PRINT  "MOONS  PHASE  -  "PH« 

(M3> 
43  1000  VTAB  17:  PRINT  "-P-  PLAN 

ET  TABLE  , -D-  NEW  DATE"; 
GOTO  1700 
F3  1010  HOME  :  HTAB  11:  PRINT  "« 

t  PLANET  TABLE  ««":  VTAB 
3:  GOSUB  1550: SI  =  1 
CE  1020  VTAB  5:  HTAB  1:  PRINT  "P 

LANET    DIST.   ANG,  H/  S 

UN     R.A" 
flA  1030  VTAB  6:  PRINT  " 


04  1040  FOR  X  =  1  TO  6:A2  =  Yl  / 
P(X,2)  -  INT  (Yl  /  P(X, 

2) ) :Q3  =  1 
it    1050  A2  =  (A2  *  360)  +  P(X,1> 

:  IF  A2  >  360  THEN  A2  = 

A2  -  360 
II    1060  E  =  180  +  A:  IF  E  >  360 

THEN  E  =  E  -  360 
FO  1070  El  =  ABS  (E  -  A2)  :  IF  EL 
>  180  THEN  El  =  360  -  E 

1 
24  i0B0  GDSUB  1310:E1  =  El  t  D9: 

P5  =  P(X,3) :  IF  X  =  3  TH 

EN  GDSUB  1750 
IB  1090  P(X,4)  =  SQR  (1  +  P5  ~  2 
-  2  «  1  »  P5  «  COS  (El) 

> :XX  =  {(P5  "  2  -  1  -  P( 

X,4)  "2)  /  (  -  2  *  PCX, 

4))  ) 
7(1  1100  P(X,5)  =  -  ATN  (XX  /  SDR 
(  -  XX  «  XX  +  n )  +  ATN 
(1)  *  2:P(X,4)  =  INT  (P 

(X,4)  «  93  +  .5)  :P(X,5) 

=  P(X,5)  /  D9 
54  1110  P(X,5)  -  FN  S(P(X,5)):Q1 

«  =  STR«  (P(X,4)):Q2»  = 

STR*  (P(X,5)) 
Da  1120  Dl  =  LEN  (01*1:02  =  LEN 

(02*1:  GOSUB  1410 
(E  1130  PRINT  P*{X);  TAB  (  14  -  D 

1) ;Q1*;  TAB(  24  -  Q2) ;a2 

*;:  IF  Q3  =  -  1  THEN  PR  I 

NT  "3W"; 
Dfl  1140  IF  D3  =  1  THEN  PRINT  " 3E 

r 
78  1150  BDSUB  1460:  D4*  =  STR*  (D 

4):Q5*  =  STR*  (05):  IF  D 

5  <  10  THEN  Q5«  =  "0"  *■ 
RIGHT*  (05*,!) 

n    1160  05*  =  RIGHT*  (Q5«,2):a4« 
=  Q4«  +  ": "  +  Q5*:Z  =  L 
EN  (Q4*) 
71  1170  PRINT  TAB(  28)00*  TAB  (  3 

6  -  Z)a4*:  NEXT  :  VTAB  1 
4:  PRINT  "«  -    VISIBLE  AT 

9  P.M." 
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5F  1180  VTAB  17:  PRINT  "SUNS  R.fl 

.  '■  SPC(  08)031: 

PRINT  "R.A.  AT  9:00PM  - 

— "  SPC(  D9)A5* 
15  1190  VTAB  21:  PRINT  "-S-  FDR 

DAYS  SKY  -D-    FDR  NEW  DAT 

E":  GOTO  1700 
0*  1200  A2  =  Kl  «  A  /  360:  IF  A2 

>  Kl  THEN  A2  =  A2  -  Kl 
77  1210  A3  =  INT  {A2  /  60)  :  A4  = 

A2  -  A3  *  60: AS  =  A3  +  9 

:  IF  A5  >  23  THEN  A5  =  A 

5-24 
27  1220  A4  =  INT  CA2  -  A3  »  60  + 
.5):  IF  A4  =  60    THEN  A4 
=  0:A3  =  A3  +  1 
93  1230  IF  A3  =  24  THEN  A3  =  0 
K    1240  AA  =  A3  *  60  +  A4:  GOTO 

1560 
ID  1250  Ml  =  (<Y1  /  M9)  -  INT  CY 

1  /  M9> 1  «  M9  +  10!  IF  H 

1  >  M9  THEN  Ml  =  Ml  -  M9 
K    1260  BDSLJB  2050:  MS  =  360  «  M2 

:  IF  M8  >  180  THEN  LS  = 

"W" 
B*  1270  IF  MB  <  =  180  THEN  L4  = 

"E" 
EE  1280  IF  MB  >  180  THEN  MS  =  36 

0  -  MS 
54  1290  MI  =  FN  R(M1):HB  =  FN  R( 

M8) 

n    1275  YY  =  INT  C7  «  <Y1  /  7  - 
INT  (Yl  /  7>)  +  .2> :  IF 
YY  =  0  THEN  YY  =  7 

«  1300  K«  =  MID*  <J*, <YY  «  3!  - 
2,3):  RETURN 

M  1310  03  ^    0:131  -  E  +  1Q0:  IF 

01  >  360  THEN  1350 
il  1320  IF  A2  >  E  AND  A2  <  01  TH 

EN  1340 
K  1330  Q3  =  1;  RETURN 
!t  1340  03  =  -  1:  RETURN 
6E  1350  01  =  Ql  -  360:  IF  A2  <  = 
360  AND  A2  >  E  THEN  134 

0 
BB  1360  IF  Q3  <  >  0  THEN  RETURN 
iA  1370  IF  A2  >  0  AND  A2  <  =  Ql 

THEN  1340 
?5  1380  IF  03  <  >  0  THEN  RETURN 
H  1390  IF  A2  >  Ql  THEN  1330 
D9  1400  RETURN 
F8  1410  Q5  =  03  »  P(X,5)  *  4  +  A 

Ai  IF  05  <  0  THEN  05  =  0 

5  +  Kl 
SC  1420  IF  03  >  Kl  THEN  05  =  Q5 

-  Kl 
?Z  1430  P(X,6)  =  05:04  =  INT  (05 
/  60) :D5  =  INT  (05  -  04 
»  60  +  .5) :  IF  05  "  60 

THEN  05  =  0:04  =  04  +  1 
2?  1440  IF  04  =  24  THEN  04  ^  0 
ED  1450  RETURN 
08  1460  5U  =  A5  *  60  +  A4:  PS  =  S 

U  +  360:  MS  =  3U  -  360:  I 

F  PS  >  Kl  THEN  PS  =  PS  - 
Kl 
1i  1470  IF  MS  <  0  THEN  MS  =  MS  + 

Kl 
5fl  1480  IF  MS  >  PS  THEN  1510 
26  1490  IF  PCX, 6)  <  PS  AND  P(X,6 

)  >  MS  THEN  1540 
D2  1500  ED*  =  '■  ":  RETURN 
DE  1510  IF  PCX, 6)  <  Kl  AND  PCX, 6 

)  >  MS  THEN  1540 
*i  1520  IF  PCX,  6)  <  PS  THEN  1540 
iA  1530  GOTO  1500 
S3  1540  0Q«  =  "»":  RETURN 
ai  1SS0  PRINT  K4" —  "H*;D",  "Y;  " 
"; :  IF  LL  <  10  THEN  PRI 

NT  "  ■■; 
M    15SS  PRINT  ABS  CLDjLL*;:  RET 

URN 
EF  1560  A3*  =  STR*  CA3):A3*  =  RI 

BHT*  (A3«,2):A4«  =  STR» 

<A4)!A4»  =  RIGHT*  CA4*,2 

) 
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1570  IF  A4  <  10  THEN  A4*  =  "0 

"  +  RIGHT*  (A4», 1) 
1580  A3*  =  A3*  +  '■:'■  +  RIGHT* 
(A4*,2):A3*  =  STR*  CAS) 

:A5«  =  RIGHTS  (A5«,2)  + 

" : "  +  A4* 
1590  08  =  7  -  LEN  CA3«):Q9  = 

7  -  LEN  <A5«):  RETURN 
1600  LY  =  0:  IF  Y  /  4  =  INT  ( 

Y  /  4)  THEN  LY  =  1 

1610  IF  Y  /  100  =  INT  CY  /  10 
0)  AND  Y  /  400  <  >  INT  ( 

Y  /  400)  THEN  LY  =  0 
1620  IF  Y  /  1000  =  INT  CY  /  1 

000)  AND  Y  /  4000  =  INT 
CY  /  4000)  THEN  LY  -  0 
1630  RETURN 

1640  Y9  =  Y  +  1:  IF  Y9  /  4  = 

INT  (Y9  /  4)  THEN  ZY  -  1 

1650  IF  Y9  /  100  =  INT  CY9  / 

100)  AND  y9  /  400  <  >  IN 

T  (Y9  /  400)  THEN  Z¥  =  0 

1660  IF  Y9  /  1000  =  INT  C Y9  / 

1000)  AND  Y9  /  4000  =  I 

NT  (Y9  /  4000)  THEN  ZY  = 

0 

1977:Y1  -  Yl  « 
(Yl  /  4)  +  01: 
2000  THEN  1690 

INT  C  CY  -  2001 
INT  C  CY  -  200 
-     INT  C (Y  -  1) 


BS 

1670  Yl  =  Y  - 

365  +  INT 

IF  Y  <  2 

DC 

1680  Yl  =  Yl 

)  /  100) 

1)  /  400) 

/  4000) 

« 

1690  RETURN 

SD 

1700  GET  I* 

FI 

1710  IF  It  = 

F9 

1720  IF  (I«  = 

•D"  THEN  720 
"S"  OR  I*  =  "T" 
>  AND  SI  =  1  THEN  230 
M  1730  IF  I*  =  "P"  THEN  1010 
ai  1735  IF  I*  =  "L"  AND  SI  =  1  T 

HEN  4550 
U    1740  GOTO  1700 
El  1750  P5  =  1.376344066:  K5  =  A2 

t  4 
V    1760  K5  =  ABS  CKS  -  1233.73) 
»  90  /  K1:K5  =  K5  «  D9:K 
5  =  SIN  CK5>  «  .32258122 
4:P5  =  P5  +  K5:  RETURN 
B5  1770  IF  CC  <  =  0  THEN  CC  =  CC 
+  84 

*'  17B0  CD*  =  MID*  CCC*,CC  -  1) 
If    17B5  IF  MID*  CCD*,2,1)  <  >  " 

"  AND  MID*  CCD*,3, 1)  =  " 

"  THEN  CD*  =  '•  "  +  CD* 

3D  1786  IF  MID*  (CD*,41,n  =  "  " 

AND  MID*  CCD*,42, !)  <  > 

"  "  THEN  CD*  =  MID*  CCD 

*,2> 
D3  1788  CD*  =  MID*  (CD*,  2,  40):  R 

ETURN 
80  1790  DATA  365.26,29.53059,59. 

818184,42.719626,262.364 

4,52.916763 
'!  1800  DATA  134.69697,218.79464 

,87.97,224.7,686.98 
J?  1810  DATA  4332.79313,10759.71 

95,30686, 5BS4 
2S  1820  DATA  "MERCURY ",.  387 1 ,  "VE 

NUS", .7233, "MARS", 1.5237 

, "JUPITER", 5. 2028 
tt    1830  DATA  "SATURN",  9.  5308,  "UR 

ANUS", 19. 182 
K    1890  DATA  "SA","SC' 

,  "LE",  "CA",  "GE' 

", "PI", "AO", "CP" 
15  1900  DATA  "NEW",  "WAXING  CRESC 

ENT","1ST  OUARTER", "WAXI 

NG  GIBBOUS", "FULL" 
i*  1910  DATA  "WANING  GIBBOUS",  "3 

RD  QUARTER", "WANING  CRES 

CENT" 
I'    1920  DATA  1770,1719,1620,1500 

,1418, 1365, 1335, 1310, 129 

0, 1275, 1260 
4S  1930  DATA  1238,1220,1200,1178 

, 1115,915,720,660,640,625 


"LI  ",  "VI" 
"TA", "AR 


,610 

m  1940  PRINT  CHR*  (17):  HOME  : 

VTAB  7:  HTAB  12:  PRINT  " 

»»«»  SKYSCAPE  «»t»" 
f    1950  RETURN 
AC  2020  PRINT  "-N-  TD  RE-INPUT  0 

R  RETURN  TO  CONTINUE" 
iF  2030  GET  I*:  RETURN 
'6  2050  M2  =  Ml  /  M9:  IF  Ml  <  1 

OR  Ml  >  28.5  THEN  M3  =  1 
Cfi  2060  IF  M!  >  =  1  AND  Ml  <  6.9 

THEN  M3  =  2 
li  2070  IF  Mi  <  =8.0  AND  Ml  >  = 

6.9  THEN  M3  =  3 
09  20B0  IF  Ml  >  8.0  AND  Ml  <  14. 

2  THEN  M3  =  4 
BB  2090  IF  Ml  >  =  14.2  AND  Ml  < 

=  15.2  THEN  M3  =  5 
i'  2100  IF  Ml  >  15.2  AND  Ml  <  21 

.6  THEN  M3  =  6 
t-  2110  IF  MI  >  =  21.6  AND  Ml  < 

=  22.6  THEN  M3  =  7 
J4  2120  IF  Ml  >  22.6  AND  Ml  <  = 

2B.5  THEN  M3  =  6 
E«  2130  RETURN 
12  2140  B*  =  "":  IF  Y  <  >  1985  A 

ND  Y  <  >  1986  THEN  560 
*1    2150  IF  (Y  =  1985  AND  Dl  <  30 

5)  OR  (Y  =  1986  AND  Dl  > 
149)  THEN  560 
S9  2160  HD  =  Dl  +  365:  IF  HD  >  5 

16  THEN  HD  =  HD  -  365 

D3  2170  HI  ==  (HD  -  295)  /  10:HD 
=  INT  (HI) :H1  =  HI  -  HD 

F»  2180  T4  =  HCCHD)  -    HC(HD  +  1) 
:T4  =  HCCHD)  -  HI  »  T4: 
IF  T4  >  1440  THEN  T4  =  T 

4  -  1440 

sa  2190  GDSUB  610:  IF  Y9  =  999  T 

HEN  560 

3fl  2200  BOSUB  700:  IF  T4  >  1115 

AND  T4  <  1200  THEN  U9  = 

U9  +  1 

n   2210  IF  T4  >  1290  THEN  U9  =  U 

9  -  1 

flj  2220  IF  T4  >  615  AND  T4  <  111 

5  THEN  U9  =  U9  +  2 

4E  2230  UC7)  =  U9:B*  =  CHR*  CPPC 
7))  +  "HALLEY'S  COMET": 
GOTO  530 

*D  2240  INPUT  It:  RETURN 

BE  2250  VTAB  17:  PRINT  CD*;:  RET 
URN 

2F  4000  GDSUB  700 

27  4005  IF  LL  >  =  0  THEN  U9  =  LC 

+  9  +  U9: 
EE  4006  U9  =  LC  + 

-  Y9 
15  4008  RETURN 
(IS  4500  LL*  =  "3N" 

EN  LL*  =  "38" 
f3  4510  LI  =  ABS  CLL)  :  IF  LI  <  2 

4  THEN  LI  =  40 
»   4515  LC  =  INT  C(L1  -  40)  /  7 

+  .5) :D1  =  VAL  (  MID*  (D 

*,  (M  «  3)  -  2,3)  )  +  D 
ES  4330  RETURN 
53  4550  HOME  :  VTAB  2;  HTAB  7:  P 

RINT  "tttttttttt  SKY3CAP 

E  (t**tttt«>":  VTAB  4:  P 

RINT  "L ATTITUDE  CHANGE" 

E?  4555  PRINT  •' ■• 

B3  4560  VTAB  8:  PRINT  "ENTER  NEW 
LATTITUDE";:  GDSUB  2240 

:  IF  I*  <  >  "■■  THEN  LL  - 
VAL  (I«) 
Cf  4565  IF  ABS  (LL)  >  90  THEN  PR 

INT  DO*:  GOTO  4560 
E2  4570  GDSUB  2020:  IF  I*  =  "N" 

THEN  4550 
AB  43B0  60SUB  4500:1*  =  "S":  GOT 

0  1720 

28  5000  CI  =  1:C2*  =  "" 

25  5010  CI*  =  MID*  (CD*,CI,1):  I 

F  Cl«  <  >  "  "  THEN  5030 
M  5020  C2*  =  CI*  +  C2*:CI  =  CI 


GOTO  4008 
9  -  U9:Y9 


IF  LL  <  0  TH 


+  l!  GOTO  5040 
83  5030  CIS  =  MID$  (CD*,CI,2)  :C2 

%    =    Cl«  +  C2*:CI  =  CI  + 

2 
F8  5040  IF  CI  <    41  THEN  5010 
38  5050  CD*  =  C2«:  RETURN 


The  TI-99/4A  version  of  "Skyscape." 

Program  5:  TI-99/4A 
Skyscape 

Version  by  Patrick  Parrisb, 
Programming  Supervisor 


100 
110 


120 


130 


140 


150 


160 


170 


130 


GOTO  130 

PK=PK-1023  ::   PKRaW=I 

NT (PK/40) -1  : :  PKCOL= 

PK-  (PKROW+1 )  *40  :  :      RE 

TURN 

FDR  1=1  TO  LEN<QQ*) : : 

CALL  HCHAR (ROW, COL+I 
, ASC  <SE6«  (QOS,  1,1))): 
>  NEXT  I  : ;  RETURN 
MMt="09810B099"  ::  CA 
LL  CLEAR  : :  CALL  SCRE 
EN ( 15) : :  DISPLAY  AT ( 1 
l,6)s"*»»*  SKYSCAPE  * 
t«»"  : :  DISPLAY  AT {22 
, 3) : " INITIALIZ INB. . . " 
D«=" 00003 1059090 120 15 
11B12122432733043  34" 
:  :  K 1  =  1 44  0  : :  DIM  HC  < 
22)::  M*= " 2B63 1 73450 1 
104  1072102  133164194  22 
5255" 

ES=93  : :  Dl$ ( 1 ) ="S"  : 
!  D  1 «  ( 2  )  =  '■  N  ■' 
A*-" JANFEBMARAPRMAYJU 
NJULAUGSEPOCTNOyDEC" 
S!  DDS="QUT  DF  RANGE  I 
!"  ::  MD*="312a313031 
30313130313031"  ::  D9 
=PI/1B0  : :  READ  EE, M9 
DIM  P (6,6) : :  DEF  R ( X ) 
=INT (X«100+. 5) /100  : : 

DEF  S (X) =INT (X« 10+. 5 
)  /10 

FOR  Y=l  TO  2  : :  FDR  X 
=  1  TO  6  !  !  READ  P  CX,  Y 


X  ! s  NEXT  Y 


:  READ 
NEXT  X 
PP  (  X  ) 


I : :  NEXT 

:  :  Y  =  0 
190  FOR  X=l  TO  6 

P« (X) , P (X, 3) : 
200  FOR  X=l  TO  7 

=X+99  : :  NEXT  X 
210  JS="SATSUNMONTUEWEDTH 

UFRI "  : !  CALL  SCREEN* 

12) : :  FOR  X=l  TO  12  : 

!  READ  F* 
220  CC«  =  CC«5<RPT«  (CHR*  (  12B 

)  ,5)  8<F»  :  :      NEXT  X  :  ! 

CCS^CCS&CC*  : :  F*=SEG 

« (CC«, LEN(CC«) -8, 9) : : 
CC*  =  F*S!CC« 
230  FDR  X=l  TO  a  : :  READ 


240 
250 


260 


270 
2B0 


290 


300 


310 
320 


330 

340 

350 

360 

370 
380 
390 

400 

410 
420 
430 

440 
450 

460 
470 


PH«  (X)  !  :  NEXT  X  :  :  FO 

R  X=l  TO  22  : :  READ  H 

C  (  X)  :  :  NEXT  X  -.  :  60SU 

B  2300  : :  GOTO  830 

CC=MT-720  : :   IF  CC<0 
THEN  CC=CC+K1 
CC=CC/120  ::   CD=CC-1N 
T  (CO  :  !  CC=INT  (CO  :  : 
CD= INT (CD»7+. 2) : :  CC= 
81- (CC«7+CD) 
BDSUB  1B90  ::  QQ*=CD« 

! !  RDH=16  : :  COL=0  ! 
:  GOSUB  120 
IF  LL>=0  THEN  RETURN 
FOR  1=1  TD  16  : :  CALL 

BCHAR ( 16, I , Z) : :  CALL 

BCHAR { 16, 33-1 , Zl ) : : 
CALL  HCHAR ( 16, I , Zl ) : : 

CALL  HCHAR ( 16, 33-1 , Z 
>  s  !  NEXT  I 
FOR  1=1  TO  31   : :   CALL 

GCHAR  (16,  I, Z);:   IF  Z 
=128  THEN  310 
CALL  GCHAR ( 16, I+l , Zl ) 
! s  CALL  HCHAR ( 16, I , Z 1 
) : !  CALL  HCHAR< 16, I+l 
, Z) ! :   1=1+1 
NEXT  I  ! ;  RETURN 
CALL  CLEAR  ::  DISPLAY 

AT (2, 9) : " ««  DAYS  SKY 

«»"  : :  Q=l  : s  GOSUB 
1680 

DISPLAY  AT (6, 1 ) : " INPU 
T  THE  TIME: "  : :  DISPL 

AY  AT(7,1)!" 

"  :  :  Tl , T2  =  0 

DISPLAY  AT (9, 4) : "HOUR 

(0-23)  7"      : :  ACCEPT 
AT (9, IB) : Tl   : :   IF  Tl< 
0  OR  Tl>23  THEN  Q=10 
: :  GOSUB  2290  : :  GOTO 

340 
DISPLAY  AT (1 1 , 4) : "MIN 
UTE  (0-59)   ?"  : :  ACCE 
PT  AT(11,20) : T2  : :  IF 

T2<0  OR  T2>59  THEN  Q 
"12  : :  GOSUB  2290  : : 
GOTO  3S0 

R*=STRt (Tl ) : !   T»=STRt 
(T2) : :   IF  LEN (T») =1  T 
HEN  T*="0"SiT* 
DISPLAY  AT ( 15, 1 ) : "TIM 
E —  ";  R*j  "  !  "  ;  T* 
GOSUB  2050  ! !   IF  Z«=" 
R"  THEN  320 
CALL  CLEAR  ::  T3=T1«6 
0+T2+Afl-720  : :   IF  T3< 
0  THEN  T3=T3  +  t<l 
IF  T3>K1  THEN  T: 
1 
MT=T3-360  ! :   IF  MT< 0 


r3=T3-K 


2, 10, 1,2) 

FDR  X=2  TD  15  ! i  CALL 

HCHAR(X, 1 , 107, 32) : : 
NEXT  X  : :  XX=7+LC  : : 
FDR  1=2  TO  32  STEP  2 
I :  CALL  HCHAR (XX+1 , I, 
96)  s  s  NEXT  I 
GOSUB  240  : :  RDW=17  : 
!  COL=0  : :   IF  LL<0  TH 
EN  490 
IF  LL>24  THEN  DQ*="E 


£14  SPACESJS 

CIS  SPACESJW"  ::  GOSUB 
120  : :  GOTO  510 
480  (3a«="UP-Nt6  SPACES>-D 

VERHEAD-<6  SPACES>DOW 

N-S"  : :  QDSUB  120  : : 

GOTO  510 
490  IF  ABS(LL)>24  THEN  QD 

«c"H<14  SPACESJN 

{15  SPACES>E"  ::  GDSUB 
120  : :  GOTO  510 
500  QQ«="UP-SC6  SPACES>-0 

VERHEAD-C6  SPACES>DOW 

N-S"  : :  GOSUB  120 
510  T4=AA  s:  GOSUB  710  :: 
Y8»88a  :i   IF  Y9=999 

THEN  550 
520  Y8=Y9  : :  GOSUB  2300  ! 

!   IF  AK0  THEN  550 
530  IF  PK>1703  OR  PK<U44 

THEN  550 
540  BDSUB  110  i  :      IF  PKCOL 

>4  AND  PKC0L<37  THEN 

CALL  HCHAR (PKRaW,PKCO 

L-4,97) 
550  T4=AA+M2*K1  ss   IF  T4 > 

Kl  THEN  T4=T4-K1 
560  GOSUB  710  :s   IF  Y9=99 

9  THEN  600 
570  MM=INT (Mi /9. 83333) +1 

: !  GOSUB  810  : !   IF  Y9 

-999  THEN  600 
580  GOSUB  2380  ::   IF  PK>1 

703  OR  PK<1144  THEN  6 

00 
590  GOSUB  110  s:   IF  PKCOL 

>4  AND  PKC0L<37  THEN 

CALL  HCHAR (PKROW,PKCD 

L-4,MM) : i   IF  ABS (Y8-Y 

9)<=.5  THEN  CALL  HCHA 

R(PKR0W,PKCDL-4, 10B) 
600  FOR  X=l  TO  7  : :  IF  X= 

7  THEN  2170 
610  T4=P<X,6)!:  BOSUB  710 
I :  IF  Y9-999  THEN  67 

0 
620  U9=SIN(P(X, 6) «D9/4) : : 
U9=-3»U9+.5  ::  U9=IN 

T (U9) i :  U (X) =U9«40 
630  PK=1423-Y9+U (X ) +LB  :: 
BOSUB  2390  ! !   IF  PK> 

1703  OR  PK<1144  THEN 

670 
640  GOSUB  110 
650  IF  PKC0L>4  AND  PKCOL< 

37  THEN  CALL  GCHAR (PK 

R0W,PKCDL-4, Z) : :  IF  Z 

O107     AND     Z096     THEN 

PK=iPK  +  l023  +  SGN(LL)  «40 

+(LL=0)«40     S!     GOTO     64 

0 
660     IF     PKCaL>4     AND     PKCOL< 

37     THEN    CALL     HCHAR(PK 

R0W,PKC0L-4,PP (X) ) 
670    NEXT     X     ::     QQ«="dMERCU 

RY  eVENUS  fMARS  gJUPI 

TER"  1 :  R0W=18  : :  COL 

=1  ::  BOSUB  120 
680  (3Q»="hSATURN  i  URANUS 
aSUN   blcMOON"  : :  RO 

W»19  I !  GOSUB  120  : : 

DO«="mNEW  MOON  +  SUN 
"  I  I  RaW>20  i  i  GOSUB 
120 
690  IF  B«<>""  THEN  [3a«  =  B« 
: :  ROW-21  : :  COL=G  : 

i      GOSUB  120 
700  (3Q«="NEW  (T)IME,<P)  T 

AB,  (D) ATE,  (L) AT.  "  !  s 

R0W=23  : :  COL^B  : :  GO 

SUB  120  : i  GOTO  1S10 
710  Y9«»999  ::  IF  MT<PT  TH 

EN  760 
720  IF  T4>=MT  OR  T4<=PT  T 

HEN  740 
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730  RETURN 

740  IF  T4>»MT  AND  T4<-K1 
THEN  7B0 

750  T4-T4+KI  : !  GOTO  780 

760  IF  T4>=MT  AND  T4<=PT 
THEN  7B0 

770  RETURN 

730  Y9-INT( <T4-MT) /1B+. 5> 
I  I  IF  Y9-40  THEN  y9"3 
9 

790  RETURN 

800  U9=SIN (T4/4*D9) : I  U9= 
INT (-3»U9+.5) «40  s:  R 
ETURN 

810  HH=VAL tSEG* CMM«, 3tMM- 
2,3) ) I !  IF  LL<0  AND  M 
MO10B  THEN  MM=197-MM 

820  RETURN 

830  Q-l 

840  CALL  CLEAR  ::  DISPLAY 

AT(2,6) ! "»«l«  SKYSCA 

PE  tttt"     ::  DISPLAY  A 

T(4, 1 ) : "DATE  INPUT"  : 

:  DISPLAY  AT  t5,  1 )  :  " 

.«     .,      si=0 

850  IF  Y<>0  THEN  GOSUB  16 
80 

860  DISPLAY  AT (Q+5, 1) : "YE 
AR?"  ! !  ACCEPT  AT<Q+5 
, 7) ! Y  : :  IF  Y>=1977  T 
HEN  880 

870  DISPLAY  AT(Q  +  5,  14)  :  "M 
UST  BE  >1977"  : :  FOR 
1  =  1  TO  250  S  t  NE)(T  I 
: :  GOTO  860 

880  GOSUB  1730  ::  DISPLAY 
AT <Q+7, 1 ): "MONTH  (1- 
12) ?"  : i  ACCEPT  AT (Q+ 
7, 15) : M  : i  IF  M< I  OR 
M>12  THEN  Q=Q+S  ! ;  GO 
SUB  2290  : ;  Q=Q-B  ! : 
GOTO  BB0 
890  DI=VAL (SE6» (MD$, 2tM-l 
, 2) ) ! :  DI=DI- (M=2) »LY 
!  :  DI«  =  STR* (DI  ) 
900  DISPLAY  AT (Q  +  9,  1 )  :  "DA 

Y  <1-" ( DI*| ") ?"  : :     AC 
CEPT  AT (Q  +  9,  13)  : D  :  : 
IF  D<1  OR  D>DI  THEN  Q 
=Q+10  ::  GOSUB  2290  : 
:  a=a-10  : ;  GOTO  900 

910  HS=SEG« (A«, M«3-2, 3) 
920  DISPLAY  AT (D+1 1,  1 )  :  "L 
ATITUDE  (-90  TO  90)?" 
: !  ACCEPT  AT (Q+1 1 , 23 
) :LL  ! !  IF  ABS (LL) >90 
THEN  D=Q+12  ! :  GOSUB 
2290  ! :  Q=D-12  : :  GO 
TO  920 
930  GOEiUB  2410 
940  TEM*  =  H»8<"  "  fcSTR*  (  D)  8<" 
, "  : !  DISPLAY  AT(Q+14 
, e> :TEM«; Y  : :  GOSUB  2 
050  :!  IF  Z»="R"  THEN 
Q=4  : !  GOTO  840 
950  D2-VAL (SEG« (M», Mt3-2, 
3) ) +D  ! !  GOSUB  1760  : 
:   IF  M>2  THEN  Dl=Dl+L 

Y  ! !  Y1=Y1+LY 

960  D3"D2-185  !i  IF  M=3  A 
ND     D<20     THEN     D2='D2  +  LY 

I !      D3=D3+LY 
970     S5-0     !S      IF     D3<=0     THEN 

A"ia0«D2/185     SI      GOTO 

990 

980     A-=1B0«D3/ (  1B0  +  ZY) +180 

990     IF     AO180     THEN     S5  =  23. 

43333333«SIN(D9«D2»ie 

0/185) 

1000  IF  A>1B0  THEN  S5=-23 

. 43333333tSIN (D9«D3) 
1010  IF  A>-360  THEN  A=A-3 

60 
1020  A=-R<A)st  S5  =  RCS5)!! 


1030 


1040 


1050 


1060 


1070 


fll=  ( 

S5  +  9 

(Al  ) 

GOS 

W=l- 
AI  > 
1 

CALL 
i  :  P 
;Y;T 
L«  : 
,28) 
PRIN 
OF  T 
R«  (D 
INT 
PRIN 
GLE- 
PRIN 


SGN (LL>- <LL  =  0)  >  * 
'0-ABS (LL)  i  s  A1=R 

: i  GOSUB  1380  : : 
lUB  1330 

fSGN(LL) <0) ! :   IF 
■90  THEN  Al=ie0-A 

W=ABS ( W-3) 
.     CLEAR     ! :     PRINT 
■RINT     K$;  "-" J  TEM* 

AB ( 19) ; ABS (LL) jL 

!  PRINT  RPT*("-" 

T  ! :  PRINT  "DAY 

HE  YEAR ";ST 

1  )  :  :  PRINT  :  :  PR 
"SUN' S  DATA: " :  : 
T  "GEOCENTRIC  AN 

"; STR« (A) J "3" 
T  "DECLINATION 

"; STRS (S5) ; "S 


10B0  PRINT  "ALTITUDE  AT  N 

OON "jSTR* (Al  )  ;  "3 

"  5  D  1  *  (  W  ) 
1090  PRINT  "RIGHT  ASCENS I 

ON ";A3» 

1100  PRINT  "R.A.  AT  9:00 

PM ";A5»  ::  PRIN 

T  : i  PRINT  "MOON'S  D 

ATA:  "  :  t 
1110  PRINT  "AGE 

...  STR«  (Ml  )  !  " 

...  ..DY"; 
1120  PRINT  "ELONGATION 

";STR* (MS) J "3 

";L« 
1130  PRINT  "PHASE  -    " ; PH 

« (MS) :  :   :   : 
1140  PRINT  "(P)LANET  TABL 

E  OR  NEW  CD) ATE"  ; : 

PRINT  ::  GOTO  1810 
1150  CALL  CLEAR  ::  PRINT 

TAB  (6)  ;  "*«  PLANET  TA 

BLE  *«"  !S  PRINT  i: 

PRINT  at; " —  ";TEM«; 

Y;TAB  (20)  ;STR«(ABS<L 

L) ) ;LL«  : s  PRINT  : s 

81  =  1 
1160  PRINT  "PLANET   DIET. 
ANG. W/SUN  R. A. "  : : 

PRINT  RPT* ( "-" ,26): 


1170 

1  180 

1  190 
1200 
1210 

1220 
1230 

1240 

1250 
1260 

1270 


FOR 
1/P 
2)  ) 
A2  = 
F  A 
360 
E=l 
THE 
El 
>18 
GOS 
D9 
X 
P(X 
P5* 
"2- 
(X, 
P(X 
XX* 
X,4 
S)  ! 
9 

P  tx 

1« 

*=s 

Ql 

(□2 

PRI 

iJ; 

»!  = 

RIN 
IF 

3E" 


X=l  TO  6  ! I  A2=Y 
(X, 2) -INT ( Yl/P (X, 
::  G3=l 

A2t360  +  P(X,  1  )  ;  :  I 
2>360  THEN  A2-A2- 

B0+A  : :   IF  E>360 
N  E=E-360 
ABS(E-A2) : :  IF  El 
0  THEN  E1=360-E1 
UB  1440  : :  E1=E1* 
: I  P5=P (X,3) ! :  IF 
3  THEN  GOSUB  1870 
,4>=SaR(l+P5"2-2* 
COS (El) ) : :  XX= (P5 
1-P  (X,4)''2)  /  <-2«P 
4)  ) 

, 5) =-ATN (XX/SQR (- 
XX  +  1  )  ) +PI/2  :  :  P ( 
) -INT  CP (X,4) tES+. 
!  P(X,5) -P(X,5) /D 


,5) =S  tP (X,5)  )  :  !  a 

STR«(P (X, 4) ) : !  Q2 

TR* (P(X,5) ) 

LEN (QIS) E :  Q2=LEN 

«) • :  GOSUB  1540 

NT  P« (X) ; TAB ( 13-G 

□1«; TAB (20-Q2) ; Q2 

I  IF  Q3=-l  THEN  P 

T  "3W"; 

Q3=l  THEN  PRINT  " 

( 


1320  PRINT 

1530 
1340 

1350 


1280  GOSUB  1590  ::  Q4«>-ST 
R»(Q4)::  Q5«=STR»tQ5 
)  :  :  IF  C!5<10  THEN  QS 
*="0"&Q5« 

1290  Q4«  =  (34«i<"  :  "i<Q5«  ::  Z 
=LEN<Q4*) 

1300  PRINT  TAB(22) ; QQ«; TA 
B(29-Z) ; D4*; : s  NEXT 
X  ! :  PRINT  : :  PRINT 
: !  PRINT  : :  PRINT  "» 
-  yiBIBLE  AT  9  P.M. 

ir 

1310  PRINT  ::  PRINT  ii  PR 

INT  "SUN'S  R.A.  

"; A3*  : !  PRI 

NT  "R.A.  AT  9:00  P.M 
;  A5« 
PRINT  TAB(3 

)  ;  "DAYS  (S) KY 

{3  SPACES>NEW  (D)ATE 

"  : :  GOTO  1810 

A2=K1 tA/360  ! !   IF  A2 

>KI  THEN  A2=A2-K1 

A3=INT( A2/60) : t  A4=A 

2-ft3«60  I :  A5=A3+9  : 

!   IF  A5>23  THEN  AS=A 

5-24 

A4=INT (A2-A3«60+.  5)  : 

:  IF  A4=60  THEN  A4=0 
! i  A3=A3+1 
1360  IF  A3=24  THEN  fl3"0 
1370  AA=A3t60+A4  : s  GOTO 

1690 
1380  M1=(Y1/M9-INT(Y1/M9) 

) »M9+10  : i   IF  Ml >M9 

THEN  M1"=M1-M9 
1390  GOSUB  2080  i :  MB-360 

»M2  : :   IF  M8>180  THE 

N  L«="W" 
1400  IF  Ma<=180  THEN  L«=" 

E" 
1410  IF  Ma>180  THEN  M8-36 

0-MR 
1420  M1=R(M1)::  MB=R(MB): 

I  YY"INT(7* ( YI/7-INT 

(Yl/7) ) +. 2) s ;   IF  YY- 

0  THEN  YY=7 
1430  K*=SEG*(J», YYt3-2, 3) 

s :  RETURN 
1440  Q3=0  iS  Q1=E+1B0  i! 

IF  ai>360  THEN  1480 
1430  IF  A2>E  AND  A2<ai  TH 

EN  1470 
1460  Q3-1  s !  RETURN 
1470  Q3=-l  : !  RETURN 
1480  (31=Ql-360  ::   IF  A2<  = 

360  AND  AZ>E  THEN  14 

70 
1490  IF  0300  THEN  RETURN 
1500  IF  A2>0  AND  A2<=ai  T 

HEN  1470 
1510  IF  Q3O0  THEN  RETURN 
1520  IF  A2>Q1  THEN  1460 
1530  RETURN 

1540  a3=a3*P(X, 5) »4+AA  :i 
IF  Q5<0  THEN  05=05+ 

Kl 
1550  IF  Q5>K1  THEN  Q5=Q5- 

Kl 
1560  P(X,6)=a5  s;  Q4=INT( 

Q5/60) ! !  Q5=INT(Q5-Q 

4«60+. 5) : :  IF  05=60 

THEN  05=0  ;:  Q4=Q4+1 
1570  IF  04=24  THEN  Q4=0 
1580  RETURN 
1590  SU=A5*60+A4  ::  PS=SU 

+  360  :  :  MS  =  SU-360  :  : 
IF  PS>K1  THEN  PS=PS 

-Kl 
1600  IF  MB<0  THEN  MS=MS+K 

1 
1610  IF  MS>PS  THEN  1640 
1620  IF  P(X,6)<PS  AND  P(X 

,6) >MS  THEN  1670 
1630  QG*="  "  : !  RETURN 
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1640 

1650 

1660 
1670 

1680 


1690 
1700 

1710 

1720 

1730 
1740 

1750 
1760 

1770 

1780 

1790 

1B00 
1810 

1G20 

1B30 

1B40 
lBfi0 

1860 
1B70 

1SS0 

1890 
1900 
1910 


IF  P  (X,  6XK1  AND  P  t  X 

, 6) >MS  THEN  1670 

IF  P(X,6)<PS  THEN  16 

70 

GOTO  1^30 

Da»  =  "  «■■  :  :  RETURN 

DISPLAY  AT (Q+3, 1 ) :K« 

;  "--  " ; TEM»; Y; TAB  (20 

) ; STR* ( ABS (LL) ) ; LL«; 

! !  RETURN 

A3»=STR« (A3) : :   IF  fl3 

<10  THEN  A3*="  "iA3* 

A4$=STR« (A4) : :   IF  A4 

<10  THEN  A4$="0"&A4S 

fl3*  =  ft3«E<"!  "t<A4*  :  :  A 

5«=STR* (A5) : :   IF  AS< 

10  THEN  A5«="  "&A5* 

A5«=AS»&" : "&A4$  ::  Q 

B=7-LEN(ft3*) : ;  Q9=7- 

LEN (fiS«) : :  RETURN 

LY=0  : :   IF  Y/4=INT( Y 

/4>THEN  LY=1 

IF  Y/100=1NT ( Y/100) A 

ND  Y/400=INT ( Y/400) A 

ND  Y/1000=INT( Y/1000 

lAND  Y/4000=INT ( Y/40 

00) THEN  LY=0 

RETURN 

¥9=Y+1  : :   IF  Y9/4=IN 

T(Y9/4)THEN  ZY-1 

IF  Y9/100=INT ( Y9/100 

)AND  Y9/400OINT  (  Y9/ 

400)AND  Y9/1000=INT( 

Y9/1000)AND  Y9/4000= 

INT (Y/4000) THEN  ZY=0 

Y1=Y-1977  ; :  Y1=Y1«3 

65+INT ( Yl /4) +DI  :  :   I 

F  Y<2000  THEN  1800 

Y1=Y1-INT( (Y-2001)/X 

00)4.1NT(  (Y-2001>/400 

) -INT ( (Y-1 ) /4000) 

RETURN 

CALL  KEY(0,KK,SS) : t 

IF  SS=0  THEN  1810 

I«=CHR« (KK) : :   IF  I«= 

"D"  THEN  Q=4  : :  GOTO 

840 
IF  (I*='-S"  OR  I*="T" 
) AND  Sl=l  THEN  320 
IF  I«="P"  THEN  1150 
IF  I$="L"  AND  Sl=l  T 
HEN  2460 
GOTO  1B10 

PS=1 . 376344086  !S  K5 
=  A2«4 

K5=ftBS (K5-1233. 73) *9 
0/Kl  !  :  K5  =  K5tD9  :  : 
KS=SIN<K5)t. 32258122 
4  ! :  P5=P5+K5  : :  RET 
URN 

IF  CC<=1  THEN  CC=CC+ 
B4 

CD«-SES»(CC», CC  +  3,  34 
) 

IF     SEG»  (CD«,  2,  1  )  OCH 
R«<t28)AND    SEG«(CDS, 
3, 1)=CHR4 (12a)THEN     C 
D»=-SEG«  (CDS,  1  ,32)  :  : 
GOTO     1940 


1920  IF  S 

HR«  ( 
,32, 

CD« 

:  GO 

1930  CD«= 

1940  RETU 

1950  DATA 

,59. 

,262 

3 

1960  DATA 

9464 

.98 

1970  DATA 


EG* (CDS, 33, 1 ) <>C 

12G)AND  SEGS(CD« 

1  ) =CHR* (128)  THEN 

=SEG» (CD«, 3, 32) ; 

T  D  19  4  0 

SESS (CD«, 2, 32) 

RN 

365. 26, 29.53059 
B1B1B4, 42. 719626 
. 364294, 52.91676 

134. 69697, 218. 7 
, 87. 97, 224. 7, 686 

4332.79B13, 1075 


1980 


T. 7195, 30686. SBB4 
DATA  "MERCURY" ,. 3B71 
, "VENUS" , . 7233, "HARS 
"  ,  1 . 5237,  "JUPITER" ,5 


2010 


2020 


2030 


2040 


DATA  "NEW" , "WAXING  C 
RESCENT", "1ST  QUARTE 
R", "WAXING  GIBBOUS" , 
"FULL" 


2090 
2100 
2110 

2120 

2130 

2140 

2150 

2160 
2170 

2180 

2190 
2200 
2210 

2220 
2230 

2240 
2250 
2260 


2270 
2280 
2290 


2300 


2310 


i  r   I'i  i  y'  —  i 

THEN  M3=2 

IF  Ml<=8  AND  Ml>=6.9 

THEN  M3=3 
IF  Ml >8  AND  Ml<  14.  2 

THEN  M3=4 

IF  Ml>=14.2  AND  Ml<= 

15.2  THEN  M3=5 

IF     Ml>15.2     AND     MK21 

.6  THEN  M3=6 

IF  Ml>=21.6  AND  Ml<= 

22.6  THEN  M3=7 

IF  Ml>22.6  AND  Ml<=2 

8.5  THEN  M3=8 

RETURN 

B«= IF  Y<  >1985 

AND     Y01986     THEN    670 
IF      (Y=19a5     AND     DK30 
5)aR<Y=19a6     AND     D1>1 
49)THEN    670 
HD=Dl+365     : :      IF    HD>5 
16    THEN    HD=HD-365 
H1=(HD-29S) /10     ! !     HD 
=  INT  CHI)  :  :     H1  =  H1-HD 
T4  =  HC  fHD)-HC (HD+1  )  :  : 

T4  =  HC  iHD) -H1*T4  s  ! 
IF  T4>K1  THEN  T4=T4- 
Kl 

GQSUB  710  ! :  IF 
99  THEN  670 
GQSUB  800  ::  IF 
115  AND  T4<120e 

U9=U9+40 
IF  T4>1290  THEN  U9=U 
9-40 

IF  T4>615  AND  T4<=I1 
15  THEN  U9=U9+80 
Ut7)=U9  ::  BS="jHALL 
EY' S  COMET"  : :  GOTO 
630 

B*  =  "  HALi-EY'S  COMET" 
GOTO  630 

DISPLAY  AT (Q, 1 ! s 00* 
! I  FDR  1=1  TO  250  : : 

NEXT  I  : !  CALL  HCHA 
R(Q, 3,32, 14) : :  RETUR 
N 

CALL  CHAR (64, "384444 
4438000000" ,128, RPT» 
(  "  0  "  ,  1  6 )  ) 
FOR  1=0  TO  3  ! !  READ 

SS  :i  CALL  CHARPAT( 


¥9  =  9 


T4>1 

THEN 


2320 
2330 


2340 
2350 

2360 

2370 
2380 

2390 

2400 
2410 

2420 

2430 

2440 


2450 
2460 


2470 

2480 
2490 
2500 

2510 


SS,Qa«):s  CALL  CHAR ( 
1+96, QQ*) : !  NEXT  I 
DATA  45,42,41,40 
FOR  I'»0  TO  9  :  :  READ 

□□«  : :  CALL  CHAR(10 
0+1 , QQS)  i  !  NEXT  I  :  : 

CALL  COLOR { 13,2,9) 


DATA  00103 

0, 30756666 

3063C66666 

DATA  003C4 

0, 033E6E76 

0666666241 

2A352A74FB 

DATA  00000 

0, 003C7E7E 

3S1B1B1B1C 

RETURN 

GQSUB  Q00 

-Y9+U9+LB 

IF  LL<0  TH 

+80tXX-PK 

RETURN 

LL»="aN"  : 

THEN  LL«=" 

L1=ABS<LL) 

LLX24  THE 

LC=INT ( (LI 

! !  LB=LC»4 

L (SEG«  <D«, 

D 

IF  ABS(LL) 

B=40«1NT (A 

5) 

RETURN 

GOBUB  2510 

Y  AT  (6,  I >  s 
CHANGE"  : : 
T<7,  1>  sRPT 
DISPLAY  AT 
UT  NEW  LAT 

ACCEPT  AT 
IF  ABS<LL) 
470 

GOSUB  20S0 
"R"  THEN  2 
GOSUB  2410 

::  SOTO  1 
CALL  CLEAR 

Y  AT (2,6) ! 
CAPE  ««**" 

60SUB  168 
N 


B7C7C3B100 

3C187E18,0 

63800 

27E7E423C0 

667CC0S0,0 

B0000, 0A15 

E0 

0000000000 

7E3C00, FFC 

3FF 

! !  PK=1423 

EN  PK=2247 


:   IF  LL<0 

3S" 

!  S   IF  ABS ( 

N  Ll=40 

-40) /7+. 5) 

0  s !  D1=VA 

M«3-2, 3) ) + 

<24  THEN  L 
BS (LL) /7+. 


i:  DXSPLA 
LATITUDE 
DISPLAY  A 
«("-", 1 6 ) 
(9, 1) ! " INP 
ITUDE:"  :: 
(9,21) :LL 
>90  THEN  2 

: :  IF  Z*= 
410 

:!  I»="S" 
B30 

!  :  DISPLA 

"«««*  SKYS 

; I  Q=l  : : 

0  t  :     RETUR 
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Reviews 


Crossword  Magic 


Karen  McCullough 

Requirements:  Apple  U-series  computer 
with  at  least  48K  RAM  (or  Apple  JU  in 
emulation  mode);  Apple  Macintosh;  Com- 
modore 64/128;  IBM  PC/PCjr  with  at 
least  1 28K  RAM;  or  an  Atari  400/800,  XL, 
or  XE  (memory  requirements  not  available 
at  presstime).  All  versions  require  a  disk 
drive,  and  a  printer  is  recommended.  The 
Apple  U  version  was  reviewed;  other  ver- 
sions are  similar. 


Crossword  Magic  does  for  the  process  of 
creating  crossword  puzzles  what  a 
word  processor  does  for  writing.  It  can't 
replace  the  thinking,  planning,  and  re- 
search needed  to  create  a  satisfying 
puzzle,  but  it  does  simplify  the  process 
of  organizing  and  moving  the  material 
from  brain  to  paper.  Crossivord  Magic 
lets  you  create  a  puzzle  on  the  screen, 
edit  it  in  various  ways,  play  it,  and  print 
it  out.  The  program's  authors  have  pro- 
vided ways  to  do  everything  you  can 
think  of  with  a  crossword  puzzle, 

The  program  comes  on  a  two-sided 
disk.  One  side  is  called  the  Maker  Disk, 
and  the  other  the  Player  Disk.  The 
Maker  disk  contains  the  options  for  cre- 
ating, editing,  printing,  deleting,  and 
moving  puzzles.  The  Player  disk  lets 
you  play  a  previously  created  puzzle,  or 
create  a  new  storage  disk. 

When  you  start  to  create  a  new 
puzzle,  the  program  first  asks  if  you 
want  automatic  sizing.  If  you  answer 
no,  you  must  enter  the  size  of  the  grid 
you  desire.  However,  automatic  sizing 
provides  more  flexibility,  since  it  allows 
the  grid  to  grow  from  its  initial  size  as 
needed. 

Each  word  you  enter  is  placed  in  a 
suitable  position  on  the  display  grid, 
highlighted  so  you  always  know  which 
word  was  placed  last.  Words  that  don't 
fit  into  the  grid  are  added  to  a  list  of 
unused  words.  If  adding  a  word  later 
allows  any  unused  word  to  fit  into  the 
puzzle,  that  word  is  placed  on  the  dis- 
play and  highlighted  along  with  the 
word  just  entered.  If  you  don't  like 
where  the  program  placed  your  word, 


you  can  press  a  key  to  make  the  pro- 
gram search  for  another  suitable  place, 
or  press  another  key  to  remove  it. 

Menus  And  Help  Screens 

A  group  of  special  functions  also  are 
available  at  the  touch  of  a  key.  You  can 
save  a  partial  or  complete  puzzle;  gain 
access  to  a  help  screen  that  explains 
your  options;  return  to  the  main  menu 
{you  lose  whatever  work  you've  just 
done  on  the  screen  if  you  don't  save  it 
first,  however);  look  at  the  list  of  un- 
used words;  start  entering  clues;  or  go 
into  manual  mode.  Manual  mode  lets 
you  add,  remove,  or  change  letters  in 
the  puzzle. 

Crossword  Magic  comes  with  a  23- 
page  manual,  well-written  but  not  as 
well  organized.  Each  menu  function 
has  its  own  section  in  the  manual,  with 
clear,  comprehensive  explanations  and 
directions — until  you  get  to  the  expla- 
nation of  the  special  functions.  At  that 
point,  each  section  merely  gives  you  a 
list  of  the  functions  and  refers  you  to  a 
separate  section  of  the  manual  that  ex- 
plains them  in  greater  detail.  The  man- 
ual would  be  easier  to  use  if  the  special 
functions  were  explained  at  the  end  of 
each  section,  even  at  the  expense  of 
some  duplication.  Also,  the  special 
function  section  begins  in  the  middle  of 
a  page,  making  it  difficult  to  find  with- 
out referring  to  the  index. 

Aside  from  this,  Crossword  Magic 
deserves  top  marks  for  ease  of  use, 
smooth  functioning,  and  good  error- 
handling.  It  works  quickly,  finding 
places  for  words  in  seconds,  even  on 
large  grids.  Everything  works  exactly  as 
described,  and  the  program  never 
failed;  it  resolutely  ignores  inappropri- 
ate actions.  After  only  a  few  minutes 
with  the  manual,  I  pulled  out  a  review 
list  of  basic  Spanish  vocabulary  words 
and  created  a  puzzle.  However,  it's  a 
good  idea  to  read  the  list  of  helpful 
hints  in  the  back  of  the  manual  before 
creating  a  puzzle;  there's  a  lot  of  valu- 
able information  there. 


Crossword  Magic  is  ideal  for 
schools.  It's  an  excellent  tool  for  testing 
and  reinforcing  vocabulary  in  subjects 
such  as  English,  foreign  languages,  and 
science.  And  anyone  who  enjoys  work- 
ing with  crossword  puzzles  will  find  the 
program  a  pleasant  pastime. 

Crossword  Magic 

Miitdscape 

3444  Dundee  Road 

Northbreok.  IL  60062 

$49.95 


Colorasaurus 


Steve  Hudson 

Requirements:  Commodore  64  with  a  disk 
drive  and  a  joystick;  or  an  Atari  400/800, 
XL,  or  XE  computer  with  at  least  48K 
RAM,  a  disk  drive,  and  a  joystick.  The 
Atari  version  was  reviewed. 


If  you  ask  a  child  what  makes  a  good 
computer  game,  the  answer  will  proba- 
bly be  that  it  has  to  be  fun.  Ask  a  parent 
the  same  question,  and  you'll  hear 
words  like  "enriching"  and  "education- 
al." But  why  not  get  both  by  creating  a 
game  that's  captivating  enough  to  hold 
a  child's  attention,  but  stimulating 
enough  to  help  develop  a  young  mind? 

One  such  game  is  Colorasaurus,  an 
educational  program  aimed  at  the 
three-  to  six-year-old  set.  Its  goals  are 
straightforward — to  help  young  chil- 
dren develop  color  discrimination  and 
visual  memory  skills — and  it  achieves 
them  with  style. 

The  program  actually  offers  three 
games  in  one,  and  each  features  lively 
graphics  and  ear-catching  sound.  The 
first  game,  "Match,"  allows  the  child  to 
match  a  brightly  colored  dinosaur  (the 
so-called  colorasaurs)  with  one  of  three 
appropriately  colored  landscapes.  Each 
round  presents  three  new  colorasaurs. 
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The  Source  Is  Illuminating. 


At  last,  a  beacon  to  help  you  navigate 
the  vast  sea  of  personal  computer  technology. 

It's  The  Source.  The  online  information 
service  that  c£in  guide  you  to  the  best  deals  in 
the  PC  market.  Shed  light  on  your  software 
problems.  And  signal  the  latest  developments 
in  micros. 

With  The  Source,  you  can  buy,  sell  or 
swap  hardware  and  software.  Learn  new 
applications  from  a  Special  Interest  Group. 
See  what's  been  written  about  the  printer 
you're  planning  to  buy.  Or  send  out 
an  SOS  to  thousands  of  other  PC 
users  when  you  need  advice. 

What's  more,  The 
Source  can  enlighten  you 
with  current  information 
on  everything  from  business 
to  travel,  investments  to 
world  news. 


Whatever  kind  of  help  you're  after,  you 
can  find  it  faster  on  The  Source.  With  a 
system  of  easy  commands  and  menus.  Plus  a 
tutorial— free  of  online  charges— that'll  bring 
you  up  to  speed  in  a  snap. 

To  sign  up  today  call  1-800-336-3366. 
For  more  information,  mail  this  coupon,  or 
visit  your  nearest  dealer. 

Then,  no  matter  how  many  waves  of  new 
technology  rock  your  boat,  you'll  stay  right 
on  course. 


The  Source 


INFORMMION  NETWCKK 


SM 
'Ihe  iTiost  poMEitul  resource  sni  pasonal  oranpuler  can  tme 

Show  me  the  light. 

Please  send  more  information  about  The  Source. 

Name 

Address 


'itzj:  izjz.f\ 


The  Source  is  a  sen  ice  mark  of  Source  Teleeompuiiiig 
Corporation,  asubsidiary  of  The  Readers  Dificsl  Associalion. 
Inc.  0  1985  Source  TelecompuiinK  Corporation. 


!^^^^ 


City.  State 


Zip 


Mail  to:  Source  Telecomputing  Corporation, 
PO.  Box  1305,  McLean,  VA  22102.  In  Virginia, 
or  outside  the  U.S.,  call  (703)  821-6666. 


COMMODORE  64 
COMPUTER 

^139 

•170K  Disk  Drive  $149.95 

•  Tractor  Friction  Printer  $159.95 

•  13"  Hi-Res  Color  Monitor  $169.95 


COMPUTER  AND  SOFTWARE 


COMMODORE  64  COMPUTER  $139.95 

You  pay  only  S139.95  when  you  order  the  powerful 
e«  COMMODORE  bA  COMPUTER  I  LESS  Ihe  volue  of 
Ifie  SPECIAL  SOFTWARE  DISCOUNT  COUPON  we  pack 
witfi  your  computer  Ifial  ollows  you  to  SAVE  OVER 
SSOO  off  ioflwore  sale  prices!  i  With  only  S100  of 
sovings  opplied,  your  net  computer  cost  is  S39.95>  I 

170K  DISK  DRIVE  S149.9S 

You  poy  only  S149  95  wfien  you  order  the  I  70K  Disk 
Drivel  LESS  ific  value  ol  the  SPECIAL  SOFTWARE 
DISCOUNT  COUPON  we  pock  with  your  disk  drive  thot 
allows  you  to  SAVE  OVER  5500  off  software  sole 
prices!  !  Willi  only  SlOO  of  savings  opplied,  your  net 
disk  drive  cost  i5S49.95. 

13"  HIRES  COLOR  MONITOR  S169.9S 

you  pay  only  SI69.95  when  you  order  litis  13"  COLOR 
MONITOR  with  sfiorper  ond  cieorer  resolution  IflQn 
ony  otfier  color  monitors  we  hove  tested!  LESS  volue 
o(  the  SPECIAL  SOFTWA!!£  DISCOUNT  COUPON  we 
pock  with  your  monitor  thot  nllows  you  to  save  over 
3500  off  soitwore  sole  prices!)  Willi  only  51(30  of 
savings  applied,  your  net  color  monitor  cost  is  only 
569,95.  (16Colars|. 


SO  COLUMN  SO  CPS 
TRACTION/FRICTION  PRINTER  S1S9.9S 

You  pay  only  S159.95  when  you  order  the  Comstar  T  F 
deluxe  line  printer  that  prints  S'jxti  full  size,  single 
sheet,  roll  or  fan  fold  paper,  labels,  etc.  Impocf  dot 
molrix.  bidireclionol.  LESS  the  value  of  the  SPECIAL 
SOFTWARE  DISCOLJNT  COUPON  we  pock  with  your 
prirMer  that  allows  you  to  SAVE  OVER  5500  off 
softwore  sale  prices!!  With  only  SlOO  of  sovings 
opplied  your  net  printer  cost  is  only  559.95. 

SO  COLUMN  BOARD  S59.9S 

Now  you  progrom  80  COLUMNS  on  the  screen  01  one 
time!  Converts  your  Commodore  64  lo  BO  COLUMNS 
when  you  plug  in  the  BO  COLUMN  EXPANSION 
BOARD!  !  PLUS  J  slot  enponder! 

SO  COLUMNS  IN  COLOR 
PAPERBACK  WRITER  64  WORD  PROCESSOR  539.95 

This  PAPERBACK  WRITER  bi  WORD  PROCESSOR  is  the 
finest  ovoiloble  for  Ihe  COMMODORE  6i  computer' 
The  ULTIMATE  FOR  PROFESSIONAL  Word  Processing 
DISPLAYS  40  or  80  COLUMNS  IN  COLOR  or  block  ond 
while!  Simple  to  operate,  powerful  text  editing 
complete  cursor  and  insert  delete  key  controls  line 
and  porogrcph  insertion,  automatic  deletion 
centering,  margin  settings  ond  output  to  all  printers! 
list  S99.M.  SALE  W».*S.  Coupon  529.95, 


SALE 


CALL 

BEFORE 

YOU 

ORDER 


PRICES 
MAY 
BE 
LOWER 


SPECIAL  SOFTWARE  COUPON 


We  pack  a  SPECIAL  SOFTWARE  DISCOUNT 
COUPON  wifh  every  COMMODORE  64 
COMPUTER.  DISK  DRIVS,  PRINTER,  or 
MONITOR  we  tell!  Thli  coupon  ollowi  you 
[  to  SAVE  OVER  SSOO  OFF  SALE  PRICES!! 


(Examples) 

PROFESSIONAL  SOFTWARE 

COMMODORE  64 

Name 

Lilt 

Sola 

Coupon 

Paperback  Writer  64 

S99.00 

539.95 

SI9.95 

Paperbock  Data  Base 

S69.00 

$34.95 

$J4  95 

Paperback  Dictionary 

S24.95 

$14.95 

sto.oo 

Prochtolc  II 

$69  95 

$49  95 

$44,95 

Print  Shop  (Disk) 

$44.95 

$33  95 

$36.95 

Proclicalc 

$59  95 

$34.95 

519,95 

Progrommeti  Reference 

$30  95 

$16  95 

$13,50 

Guide 

Progrommers  Helper 

{Disk: 

90  Column  Screen  (Disk) 

$59.95 

$39  95 

$19  95 

$59.95 

$39.95 

S19.95 

Disk  filer  (by  Flip. N-File) 

$39.95 

$14  95 

$13-95 

Delude  Tope  Cassette 

$99.00 

$44.95 

$34.95 

Pro  Joy  Stick 

$19.95 

$12  95 

Sto.oo 

Light  Pen 

$39.95 

$14  95 

5  9.95 

Dust  Cover 

$  a  95 

$  6  95 

S  4  60 

Sin^on  i  Basic 

$39  95 

$3!  95 

$19  95 

Pilslop  II  £pyv 

J39  95 

123  95 

St9.95 

Super  0;aphics  Expander 

$39.95 

$33  95 

S19.95 

Music  Calc  1 

$59  95 

$39  95 

$13,95 

f  ilewriler 

$59.95 

S29.95 

$24.95 

(See  over  100  coupon  items  in  our  catalog) 
Write  or  call  for 
I  Sample  SPECIAL  SOFTWARE  COUPON! 


CI  28  COMMODORE 
COMPUTER 

(Order  Now) 


ATTENTION 

Computer  Clubs 

We  Offer  Big  Volume  Discounts 
CALL  TODAY! 


PROTECTO  WARRANTY 

All  Prolecto's  producfa  carry  a  minimum  90  doy  warranty. 
}l  anything  fails  within  90  days  from  the  dole  o(  purchase, 
simply  send  your  product  lo  us  via  United  Parcel  Se^'vice 
pfepaid.  We  will  IMMEDIATELY  send  you  a  repiocement  at 
no  charge  via  United  Porcel  Service  prepoid-  This  warranty 
proves  once  ogoin  ihot  We  Love  Ovt  Cuttom&rs. 


•340K  1571  Disk  Drive  S2S9.00 

•  Voice  Synthesizer  $39.9S 

•  12"  Green  or  Amber  Monitor  $69.9S 

•  Printer/Typewriter  Combination  $249.95 

CI 28  COMMODORE  COMPUTER  S289.9S 

We  expect  o  liriiited  supply  for  CHristmos.  We  will  ship 
on  o  tk?t  orrJer  basis.  This  oil-new  revolutionary  128K 
computer  uses  oil  Commodore  64  sottwofe  and 
occessories  plus  oil  CPM  progroms  formatted  for  Ihe 
disk  drive, 
list  S349 .00.  SALE  JM9.9i. 


34QK  1S71  COMMODORE  DISK  DRIVE  i7MM 

Double  Sided.  Single  Disk  Drive  lor  C-128  ollows  you 
to  use  C-128  mode  plus  CPM  mode.   17  limes  foster 
thon  1541.  plus  runs  oil  1541  formats. 
LislS349.00.  Sale  $239.00. 


SUPER  AUTO  DIAL  MODEM  $3f.9J 

Eosy  to  use.  Just  plug  into  your  Comniadore  64 
compufer  and  you're  reody  to  transmit  ond  receive 
messages.  Eosier  lo  use  than  djolmg  your  telephone, 
just  push  one  key  on  your  computer!  Includes 
exclusive  eosy  to  use  progrom  for  up  ond  down 
looding  to  prinler  and  disk  drives.  B^tl  in  U.S.A. 
ListS129.00.  SALE  $39.95. 


VOICE  SYNTHESIZER  S39.fS 

For  Commodore-64  compulers.  Just  plug  it  in  and  you 
can  program  words  and  sentences,  odiust  volume  nnd 
pitch,  make  talking  odventyre  gomes,  sound  action 
gomes  and  customized  talkies!  !  FOR  ONLY  $19.95  you 
can  odd  TEXT  TO  SPEECH,  just  type  o  word  ond  hear 
your  computer  folk  —  ADD  SOUND  TO  ZORK' .  SCOTT 
ADAMS  AND  OTHER  ADVENTURE  GAMES!  ! 
(Disk  Of  tope.)  List  S89,00,  SALE  S3».9i 

12"  GREEN  OR  AMBER  MONITOR  »6t.» 

Your  choice  of  green  or  amber  screen  monitor,  top 
quality.  80  columns  x  24  lines,  easy  lo  read,  onti- 
glnre'  PLUS  S9.95  for  connecting  cable.  Com-64  or 
VIC-20.  List  SJ59  00.  SALE  t*9.»5. 


PRINTER/irpEWRITER  COMBINATION  S249.95 

■JUKI"  Superb  letter  quolity.  doisy  wheel 
printer  typewriter  combination.  Two  machines  in  one 
—  just  0  flick  of  the  switch.  12"  extra  large  carriage, 
typewriter  keyboard,  automatic  margin  control  and 
relocate  key.  drop  in  cossefte  ribbon!  (90  doy 
worronty)  Centronics  parallel  or  S5232  serial  port  built 
in  (Specify).  List  $349.00.  SALE  S»4.9}.         (ltd.  Oly.) 


U"  RGB  i  COMPOSITE  COLOR  MONITOR  im.tll 

Must    be  used   to  get   80  columns   m  color  with  80 
column  computers  ICI  28  i  Alori  ST). 
(Add  $14.50  shipping! 
List  5399,00.  SALE«179.00. 


•  LOWEST  PRICES  •  15  DAY  FREE  TRIAL 

•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL 


PHONE  ORDERS 

8a.m.  -  8p.m.  Weekdays 
9  a.m.  -  12  noon  Saturdays 


•  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  OVER  500  PROGRAMS  •  FREE  CATALOGS 


*  Add  SIO.OO  for  shipping,  handling  and  itisurance.  Illinois  residents 
please  add  6".  ta».  Add  S20.00  for  CANADA.  PUERTO  RICO.  HAWAII 
ALASKA.  APO-FPO  orders.  Canadian  orders  must  be  in  LJ.S,  dollars 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES,  EXCEPT  CANADA. 
Enclose  Cashiers  Check.  Money  Order  or  Personal  Check.  Allow  14 
days  for  delivery  3  to  7  days  for  phone  orders.  1  day  express  mail ! 
VISA  —  IWA5TER  CARD  -  -  C.O.D. 

NoC.O.D,  loConodo.  APO-FPO. 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Borrington,  Illinois  60010 

312/382-5244  to  order 


Famous  Cannon  JVationa^l  Bra^nd 


10"  Carriage 


HI-SPEED 


15"  Carriage 


PRINTER  SALE 

BGl€>v\f  ySfholesalG  Cost  Prices!!! 

•  160-180  CPS     •  High  Speed  Dot  Matrix     •  Letter  Quality  Modes 

*  Tractor/ Friction     *  4  Character  Styles     *  Business  or  Personal 
*  Programmable  Characters     *  2K  Buffer     *  15  Day  Free  Trial 

•  ONE  YEAR  IMMEDIATE  REPLACEMENT  WARRANTY 

Cheek  these  features  &  prices 

10"  Printer 

List  $499.00 

$  I   ^900 

Call  for  Volume  Discounts 

15"  Printer 


Super  Graphics! 


Print  Sample 

***     NLQ    PICA 

PRINTIN 

G    *** 

CANON     IMPACT 

MATRIX 

PRINTER 

CANC 

0  AIMOIM 

X  Iviip^KO  T 

I^IA^TR. 

List  $699.00 


$249 


00 


(IBM  -  Commodore) 

Printing  Method 

Impact  dot  matrix 
Printing  Speed 

160  CPS  Ql  standard  character  printing 
27  CPS  at  NLQ  charocter  printing 
Printing  Direction 
Text  Mode  -   Bi-directional 
Graphic  Mode  —  Unidirectional 
Print  Heod  Life 
100  million  characters 
Printing  Characters 
Standard  )  1  x  9  dot  motrix 
NLQ  23  X  18  dot  matrix 
Choracter  size:  2  x  2.42  mm  (standard) 
Character  set:  Full  ASCII  choracter  set  (96). 
32  special  European  characters 


Call  for  Volume  Discounts 
SPECIFICATIONS  (Apple  -  Atari  -  Etc.) 


Down  Loading 

1 )  X  9  dot  matrix:  NLQ  23  x  1 S  dot  matrix 

optional 
Print  Buffer 
2K-byte  utility  buffer 
Image  Printing 

Imoge  Data:  Vertical  8.  9  and/or  16  dot 
Resolution:  Horizontal  60  dots   inch 
Horizontal  120  dots'  inch  (double  derisity) 
Horizontal  240  dots/  inch  (quodruple  density) 
Interface 

8-bit  parallel  interlace  (Centronics  type) 
Paper 

Plain  paper,  Roll  paper,  Single  sheet, 
Fanfold,  Multipart  paper:  max,  3  sheets 
(original  plus  2] 

Interfaces 


Atari  $59.00 


Ink  Ribbon  Cartridge 

Ribbon  Life:  3  million  characters/cartridge 
Maximum  Number  of  Characters 

Standord;  10     cpi       80  cpl 

Enlarged:  5      cpi        40  cpl 

Condensed:  17.1  cpi      )36  cpl 

Condensed  enlarged:       8,5  cpi        68  cpl 
Elife:  12      cpi        96  cpl 

Elite  enlarged:  6      cpi        48  cpl 

NLQ  pico:  10      cpi        80  cpl 

NLQ  pica  enlarged:  5     cpi       40  cpl 

Physical  Dimensions 
Size:  15y4"x  l2  5/8"x  4  3/8"  (10") 
Weight:  17.6  lbs.  (10") 

Cartridge  Ribbon. 

List  $29.95.  Sale  $19.95. 


Commodore  $39.00 


Add  SI3,50  (S15,00  for  IS"  Printers)  for  stiipping,  tiondling  and 
insuronce.  lllinDis  residents  pleose  odd  6°.  tax.  Add  S20-0O  tor 
CANADA  PUERTO  RICO,  HAWAII,  ALASKA,  APOFPO  orders. 
Canadian  orders  must  be  in  U,S.  dollars,  WE  DO  HOf  EXPORT  TO 
OTHER  COUNTRIES,  EXCEPT  CANADA, 

Enclose  Cosfiiers  Check.   Money  Order  or  Personal  Cfieck,  Allow  U 
doys  tor  delivery,  2  to  7  doys  for  pfione  orders,  1  day  express  moil  f 
VISA  -  ^AA5TEft  CARD  -  C.O.D,  No  COD,  to  Canada.  APO-FPO, 


COMPUTER  DIRECT 

We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Barrington,  III.  60010 

312/382-5050  to  order 


A 


88K   Lowest  Price  In  The  USA!  i52k 

ATARI  Computer  System  Sale 

•   Students  •   Word  Processing   •    Home   •   Business 


$349 


LOOK  AT  ALL  YOU  GET  FOR  ONLY 

LIMITED  OUANTiriES  SYSTEM    PRICE 

©Atari  800XL  88K  Computer 
©Atari  1050  127K  Disk  Drive 
(D  Atari  1027  Letter  Quality  20  CPS  Printer 

Letter  Perfect  Word  Processer 

Atari  BASIC  Tutorial  Manual 


LIST  PRICE 

$179.00 

299.00 

299.00 

59.95 

16.95 


INDIVIDUAL 

SALE  PRICE 

$  69" 

179** 

199" 

39" 

12" 


SAVE  $100 

All  5  ONLY 

$34900 

SYSTEM 
SALE  PRICE 


All  connecting  cables  £  T.V_  mtertoce  included. 
Monitors  sold  seporetly. 


TOTALS 


$852.90      $482.75 


T52K  SYSTEM 


^ther  Accessories  list  Sale 

12"  Hi  Resolution  Green  or  Amber  Screen  Monitor  $199.00  69.95 

13"  Hi  Resolution  Color  Monitor  $399.00  T79.95 

*  ATARI!  30XE  152K  Computer  S249.00  134.95 


Add  S9.95  for 

Connection  Cobles 

(Monitors  Only) 

(Ltd.  Qty) 
Add  SlOfor  UPS 


15  DAY  FREE  TRIAL.  We  give  you  15  days  to  tr/  out  this  ATARI  COMPUTER  SYSTEM!  !  If  it  doesn't  meet  your  expectations,  just  send  it  back  to  us  prepaid 
and  we  will  refund  your  purcfiose  price!'!  M  DAY  IMMEDIATE  REPLACEMENT  WARRA,NTY.  If  ony  of  the  ATARI  COMPUTER  SYSTEM  equipment  or 
progroms  foil  due  to  foulty  workmanship  or  material  within  90  doys  of  purchose  we  will  replace  it  IMMEDIATELY  with  no  service  chorgei  ! 


Best  Prices  •  Over  1000  Programs  and  500  Accessories  Available  •  Best  Service 
•  One  Day  Express  Mail  •  Programming  Knowledge  •  Technical  Support 


Add  $25.00  for  shipping  and  handling!! 

Enclose  Cashiers  Check.  Money  Order  or  Personal  Check.  Allow  14 
do/s  for  delivery.  2  lo  7  doys  for  phone  orders.  I  day  express  moil ! 
We  occept  Visa  and  MosterCard.  We  ship  C.O.D.  to  continentol 
U.S.  addresses  only.  Add  SIO  more  if  C.O.D. 


COMPUTER  DIRECT 

We  Love  Our  Customers 
22292  N.  Pepper  Rd.,  Barrington,  111.60010 

312/382-5050  to  order 


240K  Apple  Compatible 

9  Computer  System  # 

$49900 


APlus  3000  computer  system  includes  192K  RAM,  48K  ROM 
(32K  Mrcrosoft  Basic  plus  16K  ROM  Emulator),  144K  Laser 
iVa"  Disk  Drive  (Runs  Apple  II  Software),  Magic  Window 
Wordprocessor,  MagiCalc  spreadsheet,  Mogic  Memory 
Database.  All  for  only  $499.00 


15  Day  Free  Trial 


Complete  System 


»   »    »    1   I 


||M.AQICWiNDOW7/ 
4VIAGICMEMORY     i 
MAGIC  A'  -~_%JJ$i$^S^ 


**Aplus  3000 
System 


>> 


SBSS««- 


•  CP/M  CARTRIDGE 
PORT 


•  DISK  DRIVE 
CONTROLLER  INTERFACE 


._.,_^\  POWER 

RGB   -RESET      ^^„^^^ 

OUTPUT 

■  COMPOSITE  VIDEO 
CASSETTE 
INTERFACE 


II 


Double  Immediate  Replacement  Warranty 

If  any  of  ihe  Apius  3000  computer  system 
equipment  fails  due  to  foulty  workmanship  or 
material  within  180  days  of  purchase  we  will 
REPLACE  it  immediately  with  no  service  charge! ! 


*   Over  10,000  existing  Apple^   programs  *   Centronics  printer  interface  included 

•   240K  (192K  RAM,  48K  ROM)    •   ArtSci's  Magic  Window  II,  Magic  Memory,  and  MagiCalc  included 

•  144K  Laser  5%"  Disk  Drive  (Runs  Apple  II  software)  ■   RGB  (80  columns  in  color)  and  composite  included 

SPECIFICATIONS 

A  plus  3000  is  a  complete,  self-conloined  computer  based  on 
the  popular  6502A  microprocessor  and  can  tap  into  the 
tremendous  software  library  of  Apple  II.  Features  include 
192K  Bytes  RAM,  32KB  Enhanced  Microsoft  BASIC.  80  column 
text,  560H  X  I92V  color  graphic  display,  81  key  sculptured 
keyboard  and  high  efficiency  switching  power  supply.  Also 
included  as  standard  ore  Centronics  bus  printer  interface. 
Cassette  interfoce.  4  channel  sound  generotor,  and  5 '.'4" 
Apple  Compatible  Disk  Drive. 

•  TEXT 

—  40  columns  X  24  rows  or  80  columns  X  24  rows  software 
selecfoble. 

—  5X7  chorocters  in  7  X  8  matrix. 

—  Upper  and  lower  case  characters, 

—  One  of  Eight  colors  tor  characters-graphics  and  background. 
Red,  Green,  Blue,  Cyan,  Mogenta,  Yellow,  Black  and  White. 

—  Character  set  with  normal,  inverse  and  flashing  copabilities. 

•  GRAPHICS 

—  280HX  192V  6  colors  -  Black.  White,  Violet,  Green,  Blue,  Orange. 

—  280H  X  192V  8  colors  bit  image  —  Block,  White,  Red,  Green,  BIge,  Cyon. 
Magenta,  Yellow, 

—  560H  X  )92V  6  colors  —  Black,  White,  Violet,  Green,  Blue,  Orange.  {High 
resolution  color  monitor  required] 

Super  Apple  Compatible  Disk  Drive  Sale 

Quieter,  Cooler,  Better  Disk  Drives  for  your  Apple  1]  plus,  He,  lie 
I  specify  when  ordering).  List  $299.95.  SaJeSHS.H.'i. 

15  Day  Free  Trial  —  If  it  doesn't  meet  your  expectations 

within  15  day*  of  receipt,  just  send  it  back  to  us  UPS 

prepaid  and  we  will  refund  your  purcfiase  price!! 


More  Features  than  Apple  for  less  than  Commodore 

Commodore 

Features 

Aplus  3000 

Apple  lie 

128 

RAM 

192K 

64K 

128K 

Runs  Apple  11  Software 

Yes 

Yes 

No 

Function  Keys 

24 

None 

16 

4  Voice.  6  Octave  Sound 

Ves 

No 

Yes 

Composite  Video 

Yes 

Yes 

Yes 

Disk  Drive 

included 

Extra  Cost 

Extro  Cost 

Numeric  Keypad 

included 

Extra  Cost 

Included 

Video  Cable 

included 

Extra  Cost 

Extra  Cost 

RGB  Color  Cord 

Included 

Extra  Cost 

Included 

80  Column  Card 

included 

Extra  Cost 

Included 

Centronics  Printer  Interlace 

included 

Extra  Cost 

Extra  Cost 

Drive  Controller 

included 

Extra  Cost 

Included 

SI  50  Wordprocessor  (Magic  Window) 

included 

Extra  Cost 

Extra  Cost 

SI 50  Spreadsheet  (MagiCalc) 

included 

Extra  Cost 

Extra  Cost 

S60  Database  prg.  (Magic  Memory) 

Your  Cost 

included 

Extra  Cost 

Extra  Cost 

S499.00 

51745,00 

51117.90 

ACCESSORIES 

2nd  Disk  Drive 

2  professional  analog  joysticks 

Z-eO  cart,  allows  CP/M  use 

RS232  adapter 

R    F  Modulotor  (TV  hookup) 

RG-B  coble  (ROB  Monitor  hookup) 

Centronics  coble  (for  Centronics  printer) 

Technical  reference  manual 

Comstar  lOx  120-140  CPS  dot  matrix  prime 

80  columns  Hi-Res  Amber  Monitor 

80  column  Hi-Res  RGB  Monitor 


LIST 

S299.95 
S  39.95 
S  99.95 
S  99.95 
S  29.95 
S  24.95 
S  34.95 
S  29.95 
S399.00 
S199.00 
S399.00 


SALE 

S149.95 

S    24.95 

59.95 

59.95 

19.95 

19.95 

24.95 

19.95 

S189.00 

S    89.95 

S279.00 


Add  $25.00  for  shipping  and  handling!! 

Enclose  Coshiers  Check.  Money  Order  or  Personol  Check.  Allow  14 
doys  for  delivery.  2  to  7  doys  for  phone  orders.  I  day  express  moil ! 
We  accept  Viso  and  MosterCord.  We  ship  C.O.D.  to  continental 
U.S.  addresses  only.  Add  S)0  more  if  C.O.D. 


APPLE  ond  COMtAOaam  aft  .eg.slerDd  Irodemorfcs  ol  Appio  Compiit,,  Int  end  Commodore  Bus.nesiMoch.ncs  \n     «ipKli.ely 


COMPUTER  DIRECT 

Wc  Love  Our  Customers 
22292  N.  Pepper  Rd.,  Barrington,  III.  60010 

312/382-5050  to  order 


and  (as  the  child's  responses  improve) 
the  three  colors  become  increasingly 
similar. 

The  second  game,  "Find,"  carries 
the  idea  one  step  further.  Like  "Match," 
it  asks  the  child  to  match  colors.  How- 
ever, there  are  six  landscapes  instead  of 
three.  In  addition,  it  encourages  the 
child  to  relocate  the  colorasaurs  by  re- 
calling which  colors  were  involved. 
Again,  the  difficulty  increases  with  the 
accuracy  of  the  child's  responses. 


Painting  Dinosaurs 

The  third  game,  "Colorasaurus,"  gives 
the  child  a  chance  to  personally  color  a 
colorasaurus.  The  child  can  dip  paint 
from  various  "paint  pots"  and   then 


apply  it  to  a  large  (and  by  then  familiar) 
colorasaurus  that  dominates  the  screen. 
It's  even  possible  to  mix  colors  or  to 
lighten  or  darken  them  (by  adding 
white  or  black).  That  gives  the  child 
virtually  complete  control  over  the  re- 
sulting colors.  The  result?  Captivated 
fascination,  a  great  deal  of  fun,  and 
some  worthwhile  learning,  too. 

Each  game  is  controlled  with  the 
joystick.  Even  a  young  child  can  move 
the  large,  easy-to-see  cursor  and  effec- 
tively play  any  of  the  games. 

The  program  also  uses  the  key- 
board for  two  special  commands.  The 
question  mark  (?)  is  a  help  key  that  calls 
up  onscreen  instructions.  Another  key 
returns  the  player  to  the  main  menu. 
Using  either  key,  it's  possible  for  the 
child  to  select  various  play  options — a 


valuable  feature  that  some  educational 

programs  still  lack. 

Although  it's  designed  for  a  partic- 
ular age  range,  Colorastiurus  may  prove 
captivating  to  younger  children,  too. 
Although  my  17-month-old  is  too 
young  to  manipulate  the  joystick  her- 
self, she  loves  to  sit  in  my  lap  and  watch 
the  colorasaurs  while  listening  to  the 
dinosaurish  music.  It's  entertaining  for 
older  children,  too,  including  us  Daddy- 
types.  There's  just  something  about 
multicolored  dinosaurs  that  appeals  to 
young  and  old  alike. 


Colorasaurus 

The  Leanuiig  Compani/ 

545  Middlcfictd  Road,  Suite 

Meiilo  Park,  CA  94025 

$29.95 
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HELP 

you 
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JNow  there's  a  way  parents 
can  help  their  children  climb 
to  the  heights  of  success. 

It  begins  with  an  Apple,® 
IBM,®  Commodore'"  or  Atari® 
computer.  It  takes  off  with  CBS 
Software. 

Our  Success  with  Math"'  series  has 
met  with  sales  success  second  to  none  in  its 
field.  Along  with  our  new  Success  with 
Algebra"'  series,  your  home  computer  will  become 
a  patient,  private  tutor — using  serious  drill  and 
practice  to  help  your  children  over  the  obstacles  in 
their  way. 

Mastering  the  SAT  has 
also  become  a  best  seller 
With  its  counterpart, 
Mastering  the  ACT,  it's  the 
comprehensive  test  prepara- 
tion program  that's  proven 
1*^    to  be  the  first  choice  for 
thousands  of  students  who 
want  acceptance  firom  their 
first  choice  college.  They  are  the  only  programs  of 
their  kind  created  with  the  National  Association  of 
Secondary  School  Principals.  And  they're  designed 
to  provide  the  competitive  edge  that  can  help  put  your 
^    w,     kids  over  the  top.  ^h  H^  ^H 

Jti\"P'  SOFTWARE 

Hi    ^k^_j.,,  Making  you  the  best. 


IBM.  AflDle  and  Atari  ate  registered  trademarks  ol  intemalional  Business  Machines  Corp .  Apple  Compuier  Inc. 

and  Atari  Cprp ,  respectively  Commodore  is  a  liademark  of  Commodore  Electronics  Ltd, 

©  1985  CBS  ItK  All  rights  lEserved  CBS  Soltoare.  A  Unit  ol  CBS  Eiljcalional  and  Prolessiofal  Publishing  Division, 

CBS  Inc  One  Fawcefl  Place.  Greenviith.  CI  06836  (203}  622-2525, 


IF  YOU'RE  INTERESTED  IN  GIVING  YOUR  CHILDREN  THE  BEST,  CALL1-800-CBS-ASK4  FOR  THE  DEALER  NEAREST  YOU. 


Grolier  Online  Encyclopedia 


Dan  Gutman 

Requirements:  VrVfHfl/ly  any  computer 
with  a  modem,  telecommunications  soft- 
ware, and  access  to  one  of  12  major  tele- 
communications services  (including 
CompuServe,  The  Source,  Dow  Jones, 
Dialog,  and  others). 


I  just  looked  up  LINCOLN,  ABRAHAM 
in  the  encyclopedia.  There's  nothing 
particularly  amazing  about  that,  except 
that  I  don't  own  an  encyclopedia.  With 
an  "electronic  encyclopedia"  on  a 
mainframe  computer  that  I  can  tap  into 
anytime  I  want  with  my  personal  com- 
puter, I  don't  need  one. 

The  Academic  American  Encyclope- 
dia from  Grolier  can  be  accessed  easily 
on  any  of  1 1  different  online  services  by 
anyone  with  a  modem  and  a  computer. 
After  you  log  on  and  hit  a  few  keys, 
you're  dropped  into  an  encyclopedic 
wonderland  of  30,000  articles  and  10 
million  words.  Just  type  SE  (for  SEarch) 
and  the  item  you  want  to  look  up.  The 
text  jumps  on  the  screen  in  seconds. 

An  electronic  encyclopedia  has  a 
few  big  advantages  over  a  paper  one.  I 
can't  look  up  JACKSON,  MICHAEL  in 
my  parents'  old  encyclopedia,  because 
he  wasn't  even  born  when  it  was  writ- 
ten. Grolier's  encyclopedia  gets  updat- 
ed every  three  months.  In  fact,  a  week 
after  Leonid  Brezhnev  died,  they  had  a 
listing  for  ANDROPOV,  YURI.  Also, 
with  the  Grolier  encyclopedia,  I  can 
print  out  entire  articles  in  seconds  on 
my  printer. 

On  the  other  hand,  while  Andropov 
is  covered,  there  are  no  listings  for 
LASERDISK,  OPTICAL  MEMORY, 
COMPACT  DISC,  or  INTERACTIVE 
FICTION — terms  you'd  expect  to  find 
in  an  up-to-date  electronic  reference 
source  for  the  1980s.  Michael  Jackson 
gets  a  paragraph,  but  you'll  find  noth- 
ing more  about  recent  idols — Prince 
and  Madonna.  And  the  encyclopedia 
refers  to  the  canceled  IBM  PCjr  as 
"among  the  nation's  best-selling  com- 
puters." Of  course,  any  encyclopedia 
has  its  limitations. 


No  Pictures — Yet 

There  are  a  few  other  disadvantages  to 
the  Grolier  online  encyclopedia  that  are 
related  to  its  medium.  The  retrieval 
commands  are  picky,  so  if  you  misspell 
a  subject  you're  looking  up,  the  com- 
puter may  mistakenly  tell  you  there  is 
no  listing.  For  example,  if  you  look  up 
NEWSPAPERS,  you'll  find  nothing. 
But  there  is  a  listing  for  NEWSPAPER. 
With   a   printed   encyclopedia,   you 


would  discover  that  by  flipping 
through  the  pages.  Also,  because  of  the 
wide  variety  of  incompatible  computers 
and  the  limitations  of  modem  commu- 
nications, the  online  encyclopedia  can't 
give  you  the  photographs  or  illustra- 
tions you  see  in  a  printed  encyclopedia. 
Someday  this  may  change.  Grolier 
recently  announced  it  is  publishing  the 
encyclopedia  in  the  new  CD-ROM  for- 
mat (Compact  Disc-Read  Only  Memo- 
ry). The  CD-ROM  version,  scheduled 
for  release  this  fall  for  $199,  is  quite 
similar  to  the  online  version,  except  it's 
stored  on  a  single  4.7-inch  compact 
disc.  It  requires  a  special  CD-ROM 
player  connected  to  your  computer, 
such  as  the  one  announced  last  summer 
by  Atari  (see  "Report  from  the  Summer 
Consumer  Electronics  Show"  and 
"Monster  Memory,"  COMPUTE!,  August 
1985).  The  CD-ROM  encyclopedia  has 
all  the  search  and  retrieval  features  of 
the  online  encyclopedia  and  more — 
plus  it's  faster.  And  although  the  initial 
CD-ROM  version  is  text-only,  there  is 
plenty  of  room  on  the  disc  to  add 
graphics  and  digitized  illustrations  in 
the  future. 


Still,  even  with  its  current  limita- 
tions, the  Grolier  online  encyclopedia  is 
worthy  of  consideration.  A  convention- 
al encyclopedia  might  cost  $600  or 
more.  On  the  CompuServe  Information 
Service,  Grolier's  costs  $50  per  year 
plus  the  regular  connect  time  rates.  De- 
pending on  how  often  you  access  the 
encyclopedia  and  how  long  you  stay 
online,  it  might  take  several  years 
before  you've  spent  as  much  as  the 
conventional  encyclopedia  would  cost. 
By  that  time,  much  of  the  information 
in  the  paper  encyclopedia  would  be  out 
of  date  and  you'd  have  to  buy  another 
one  anyway. 

If  you  have  school-age  children,  or 
if  you  do  a  lot  of  research  at  home, 
consider  Grolier's  online  encyclopedia. 
The  convenience  of  looking  things  up 
in  seconds  is  incredible.  This  is  one  of 
the  true  practical  uses  for  a  computer  in 
the  home.  Besides,  think  of  all  the  trees 
you'll  save. 

Grolier  Electronic  Publishing 

95  Madison  Avenue 

New  York,  NY  10016 

(Cost  varies  among  information  services) 


Free  Catalog! 

Your  80-page  guide  to  computer  supplies  and 
accessories-including  complete 
new  product  descriptions. 


^ 


Packed  with  over  1600  products  lor  miaocom  pulers,  minicompulers, 
and  word  processors  -  many  available  nowhere  else. 

■  Big  special  section  devoted  to  new  supplies  and  accessories 

■  Comprefiensive  product  descriptions-  including  more  Ihan  475 
full-color  photos  -  clearly  explain  features  and  benefits. 

■  Easy-to-use  cross  reference  guides  to  magnetic  media,  ribbons, 
and  more-along  with  the  induslryS  most  complete  cable  guide, 

■  Helpful  suggestions  and  tips,  ranging  from  flexible  disk 
care  to  proper  ribbon  selection  to  useful  application  ideas. 

Phone  toll-free  1-800-547-5444 


I 
I 
I 


Phone  tdl-free  1-800-547-5444  or  send  coupon  today. 

NAME 

COMFANr 

ADDRESS 


Inmac  Calalog  DepL 
2465  Augustine  Drive 
SanlaCla/a.CA  95054 

Please  rush  n^frse  copy  of 
IdelnmacCatalog,  lunder- 
slandtliereisnoobligallon 
vitiatsoever. 


STATE 


ZIP 


PHONE 


I 
I 
I 
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Amiga  Softwore  Dealers 
Electronic  Arts 

Alabama 

Huntsville;  Endicolt 

Mobile  MqII  Tel  Home  Communications  St 

Caltfomfo 

Al]  Wherehous©  stces 

Concord.  Eoftwaire  Cenir©  Infl. 

Cosfo  Mesa:  Gamesmonshtp. 

Fresno  Alpha  Gmiga 

Los  Angeles:  Computer-Ease, 

West  Los  Angeles  Software  Supermarket 

Monterey  Right  Byi© 

Napa  Li&erry  Systems 

Pleosonton,  Hone  &  Business  Computer  Center. 

Redlonds:  Brown  Knows  Computer. 

Riverside:  Softwore  Service  Center, 

San  Bruno:  Home  Computer  Center 

San  Diego  Computer  Age.  Byte  Shop.  Computerland 

San  Francisco:  Access  1o  Software 

Son  Jose  Aftordabje  Computer  Systems 

San  Leandro:  Home  Computer  Center. 

Santa  Ano:  The  Home  Computer  Store 

Santa  Posa  Softwore  First 

Thousand  Ooks:  Thor  Audio  Video 

Colorado 

Aurora:  Sobornhelm  Enterprises. 

Colorado  Springs:  Sottworelor>d,  Renaissance 

Computerwore 

Westminister:  Colorado  Computer  Systems. 

Denver,  Conremporary  Computer  Concepts. 

Lak©wood   Micro  World. 

Florida 

St  Petersburg:  Now  Age  Electronics. 

Tampa:  Computer  Corner-Sound  Tradei" 

Georgia 

Augusta  Futuro  Systems 

Goinesvilie  Preferred  Systems, 

Hawaii 

Horiolulu  Data  One  Microcomputer. 

Indiana 

Fi  Wovne;  Bytrex,  iinc 

New  Albany:  Kwik  Service  Electronics, 

Massachutflttet 

Acton  Instant  Soliwore 

Boston  Instant  Softwore. 

Littleton:  Software  Plus 

Wellesley.  Instant  Software, 

MIchlgon 

Okemos:  Pro  Video. 

Plymouth  Strom  Computer 

Minna  iota 

Brooklyn  Center  Zim  Computers,  nc- 

Roseville  Softwoire  Center  int'l 

N«w  York 

Albany   France  Enterprises  of  Norlhway 

New  York  Computerland.  lejghs  Computer. 

Computer  Factory 

Oyster  Boy:  Pine  Hollow  Video, 

N9W  Jmnmy 

Wyckolf  Yudins. 

N«w  Mexico 

Albuquerque  Page  One. 

N«w  Hampshira 

Hudson  Instont  Software. 

Keene:  Instant  Softwore. 

Monchester:  Wayne  Green  Entenorises. 

Nashuo:  Instant  Software 

North  Caroltna 

Raleigh:  Audio  Buys,  Inc. 

Winston-Solem:  Triod  Computers. 

Ohio 

Foirborn  Fairborn  Home  Computer. 

Oregon 

Beoverton:  Sottwair©  Centre  tnt'l. 

Eugene  Software  Express 

Portland  Computron  Business  Systems,  IB  Computers. 

P«nntylvanla 

Hershey:  East  Coast  Software. 

McMurray  Toy  Stote. 

Nornstown:  Electronics  Bouticiue. 

Rhode  Island 

Warwjck  Softwore  Connectiorts 

South  Carolina 

Charleston  Soltware  Solutions. 

Charleston  Heights  Softwore  Haus. 

Greenville  Horizon  Computers 

Tenneuee 

Nashville  Software  First. 

Texai 

Tyler  Computer  Time. 

Washington 

Battleground:  Sohwore  Express. 

Everett  Corn-Soft 

Kent  Computer  Software  Warehouse. 

Renton  APPLE  Coop. 

Spokane:  Bits.  Bytes  &  Nibbles. 

Tocoma  Nybbles  &  Bytes 

Tukwilo  Programs  Plus.  Softwoire  Centre  fnt'l 

WItcontIn 

Oshkosti  Fox  Valley  Persono!  Computers. 


BASiC  Lightning  &  White  Lightning 
For  Commodore  64 


Roark  Doritv 


Requirements:  Commodore  64  and  a  1541 
disk  drive  or  a  tape  drive. 

You've  probably  heard  of  several  dif- 
ferent software  packages  which  en- 
hance or  extend  your  Commodore  64's 
BASIC  language.  BASIC  Lightning,  a 
graphics  development  system  for  the 
64,  is  one  of  the  most  exciting  such 
programs  I've  seen. 

BASIC  Ligiitning  is  much  more  than 
a  BASIC  extension.  It's  practically  a 
whole  new  language.  Besides  all  the 
usual  Commodore  BASIC  commands, 
BASIC  Lightning  offers  more  than  150 
new  commands.  They  make  structured 
programming  possible,  let  you  run  up 
to  five  parts  of  a  BASIC  program  simul- 
taneously, and  may  change  your  atti- 
tude toward  using  graphics  and  sound 
on  the  64. 

If  you've  ever  programmed  in  Pas- 
cal or  a  similar  language,  you'll  be  hap- 
py to  know  that  BASIC  Lightning 
includes  all  the  control  commands 
found  in  Pascal.  Control  structures 
include  IF-THEN-ELSE,  REPEAT 
-UNTIL,  WHILE-WEND,  CASE-OP, 
and  procedures  and  functions  with  full 
parameter-passing. 

The  graphics  commands  in  BASIC 
Lightning  are  in  a  class  all  their  own. 
You  can  create  up  to  255  sprites  of  any 
size,  and  these  sprites  can  be  scrolled, 
spun,  rotated  90  degrees,  enlarged, 
contracted,  and  mirrored  vertically  and 
horizontally.  You  can  individually  de- 
sign each  sprite,  place  them  anywhere 
on  the  screen,  move  part  of  one  sprite 
into  another,  copy  part  of  the  screen 
into  a  sprite,  or  copy  an  entire  sprite 
into  another. 

There  arc  also  commands  for  com- 
bining two  sprites  at  once  in  four  differ- 
ent ways,  and  commands  to  control  the 
sprite  colors  when  two  sprites  are  com- 
bined. Another  useful  feature  is  the 
ability  to  print  characters  and  double- 
sized  characters  inside  the  sprites. 

However,  I  did  find  it  difficult  to 
design  sprites  with  the  sprite  editor. 
You  can  edit  only  one  8X8  grid  at  a 
time,  and  the  editor  reacts  slowly  to 
commands.  To  design  sprites  larger 
than  8X8  pixels,  the  grid  must  be 
copied  to  a  larger  area  on  the  screen. 
After  several  grids  have  been  placed 


side  by  side,  your  sprite  begins  to  take 
form.  Then  it's  possible  to  edit  more 

sprites,  and  even  show  them  in  se- 
quence to  simulate  animation. 

Multitasking  in  BASIC 

What  BASIC  Lightning  does  for  graph- 
ics, it  does  for  sound  as  well.  For  ex- 
ample, music  data  can  be  stored  in 
sprites  and  played  in  the  background 
with  the  commands  PLAY  and  RPLAY. 
This  means  your  music  can  be  playing 
while  the  rest  of  your  program  is  doing 
other  things. 

One  of  the  most  exciting  features 
of  BASIC  Lightning  is  its  multitasking 
capability.  The  TASK  command  allows 
up  to  five  things  in  your  program  to 
happen  at  once.  Each  task  has  its  own 
set  of  variables  which  are  independent 
of  the  others.  Special  commands  let  you 
pass  values  between  tasks. 

Another  product  from  Oasis  Soft- 
ware is  White  Lightning,  a  Forth-based 
language.  If  you  have  some  back- 
ground in  Forth,  or  are  willing  to  learn  a 
new  language.  White  Lightning  is  cer- 
tainly a  worthwhile  package.  (Inciden- 
tally, White  Lightning  includes  BASIC 
Lightning,  with  all  the  commands  men- 
tioned above.) 

BASIC  Lightning  and  White  Light- 
ning both  include  a  disk  and  two  tapes, 
so  tape  users  as  well  as  disk  users  can 
program  with  the  packages.  BASIC 
Lightning  is  especially  ideal  for  anyone 
who  writes  programs  in  BASIC  and  is 
interested  in  structured  programming, 
sprite  graphics,  and  sound.  It's  easy  to 
use,  too.  In  minutes  it's  possible  to 
know  enough  to  handle  the  screen  win- 
dows, and  everything  appears  and 
changes  faster  than  in  Commodore 
BASIC  with  the  POKE  commands. 
White  Lightning  takes  longer  to  learn 
because  it's  an  entirely  different 
language. 

If  you're  interested  in  machine  lan- 
guage programming,  Oasis  Software 
also  makes  Machine  Lightning,  an  ad- 
vanced machine  language  system. 

Oasis  Software 

377  Oyster  Point  Blvd. 

Unit  is 

San  Francisco,  CA  94080 

BASIC  Lightning  $39.95 

White  Lightning  Si9.95 

Machine  Lightning  $84.95 


Only  NRI  teaches  you  to  service  and 
repair  all  computers  as  you  build 
your  own  16'bit  IBM^ompatible 


micro 


As  computers  move  into 
offices  and  homes  by  the 
millions,  the  demand  for  (rained 
computer  service  technicians  surges 
forward.  The  Department  of  Labor 
estimates  that  computer  service  jobs  will 
actually  double  in  the  next  ten  years— a 
faster  growth  than  any  other  occupation. 

Total  System  Training 

As  an  NRI  student,  you'll  get  total 
handSHDn  training  as  you  actually  build  your 
own  Sanyo  MBC-550  series  computer  from 
the  keyboard  up.  Only  a  person  who  knows 
all  the  underlying  fundamentals  can  cope 
with  all  the  significant  brands  of  computers. 
And  as  an  NRI  graduate,  you'll  possess  the 
'up-to-the-minute  combination  of  theory  and 
practical  experience  that  will  lead  you  to 
.success  on  the  job. 

You  learn  a!  your  own  conven- 
ience, in  your  own  home,  at 
your  own  comfortable  pace. 
Without  classroom  pressures, 
without  rigid  night-school 
schedules,  without  wasted 
time.  Your  own  personal  NRI 
instructor  and  NRI's  complete 
technical  staff  will  answer 
your  questions,  give  you 
guidance  and  special  help 
whenever  you  may  need  it. 

The  Exciting  Sanyo 
16-bit  mm-compatlble 
Computer— Yours  To  Keep 

Critics  hail  the  new  Sanyo  as  the  "most 
intriguing''  of  all  the  IBM-PC  compatible  com- 
puters. It  uses  the  same  8088  microprocessor 
as  the  IBM-PC  and  the  MS/DOS  operating 
system.  So,  you'll  be  able  to  choose 
thousands  of  off-the-shelf  software  programs 
to  run  on  your  completed  Sanyo. 

As  you  build  the  Sanyo  from  the 
iteyboard  up,  you'll  perform  demonstrations 
and  experiments  that  will  give  you  a  total 
mastery  of  computer  operations  and 
servicing  techniques.  You'll  do  programming 
in  BASIC  language.  You'll  prepare  interfaces 
for  peripherals  such  as  printers  and  joysticks. 
Using  utility  programs,  you'll  check  out 
8088  functioning.  NRI's  easy  step-by-step 
directions  will  guide  you  all  (he  way  right 
into  one  of  today's  fastest  growing  fields  as  a 
computer  service  technician.  And  the  entire 
system,  including  all  the  bundled  software 
and  extensive  data  manuals,  is  yours  to  keep 
as  part  of  your  training. 


NRI  is  the  only 
home  study  school 
Ihat  trains  you  as 
you  assemble  a 
top-brand  micro- 
computer. You'll 
install  and  check 
keyboard,  power 
supply,  disk  drive 
and  monitor, 
following  step-by- 
step  directions. 


100-Page  Free  Catalog 
Tells  More 

Send  the  coupon  today  for  NRI's  big  lOO- 
page  color  catalog,  which  gives  you  ail  (he 
facts  about  NRI  training  in  Microcomputers, 
Robotics,  Data  Communications,  TV/Video/ 


Your 

NRI  course 
includes  a 
Sanyo  16-bit  micro 
computer  with  128K  RAM, 
monitor,  with  doubte-denslty/double- 
sided  disk  drive,  and  "Intelligent" 
Keyboard;  The  NRI  Discovery  Lab'*, 
Teaching  Circuit  Design  and  Operations; 
a  Digital  Multimeter;  Bundled  Spread 
Sheet  and  Word  Processing  Software 
Worth  over  S1 000  at  Retail— and  More. 


Audio  Servicing,  and  other  growing  high- 
tech  career  fields.  If  the  coupon  is  missing 
write  to  NRI,  3939  Wisconsin  Ave., 
Washington,  D.C.  20016. 

I BM  is  a  Registered  Trademark  ot  I  ntemational 
Business  Machine  Corporation. 


SCHOOLS  mi-^ 

McGraw-Hill  Continuing  Education  Center  <d't! 

3939  Wisconsin  Avenue,  Washington,  DC  20016  I.WI 
We'll  give  you  tomon'ow. 
[E'CHECK  ONE  FREE  CATALOG  ONLY 
n  ComputM  Eieclronics  witii  MicracompulBre 
D  Data  ComrmuniMlions 
n  Robotics  &  Industrial  Controls 
D  Video  Electronics  Servicing 

□  Electronic  Design  Technology 

□  Digital  Eieclronics 


For  Career  courses 
approved  under  Gl  bill. 

D  chBci<  lor  details. 


□  Satellite  Communications 
n  Communications  Electronics 
Q  Industrial  Electronics 

□  Basic  Electronics 

□  Telephone  Servicing 

□  Small  Engine  Servicing 
n  Appliance  Servicing 


D  Automotive  Servicing 
D  Air  Conditioning,  Heating, 

aefrigeralion.  S  Solar  Technology 
n  Building  Constnjction 
n  Locksmitning  &  Electronic 

Security 


Name  tPtease  Print) 


Street 


Cily/StatB^ip 


AccfBd!ti?il  by  the  National  Home  Study  Council 


Goto 

For  Apple  And  IBM 


Michael  B.  Williams 

Requirements:  Apple  lie  or  lie  with  a  disk 
drive;  Apple  Macintosh:  IBM  PC  loith  at 
least  128K  RAM  and  color/graphics 
adapter:  or  an  Enhanced  Model  PCjr.  The 
Apple  U  version  was  reviewed;  other  ver- 
sions are  similar. 


Just  as  flight  simulators  take  the  danger 
out  of  flying  while  retaining  much  of 
the  excitement,  Cato  lets  you  fight  for 
your  country  in  a  submarine  from  the 
safety  of  your  desktop.  You  patrol  the 
South  Pacific  in  your  Gato-class  sub- 
marine, a  type  of  ship  actually  de- 
ployed during  World  War  11. 

Your  mission  begins  with  a  coded 
message  detailing  your  assignment  in 
enemy  territory.  At  Gato's  higher  diffi- 
culty levels  (there  are  ten),  the  message 
is  transmitted  in  Morse  code;  it's  up  to 
you  to  decipher  it.  (A  Morse  code  table 
is  included  in  the  manual,  but  you 
won't  have  time  to  use  it  without  mem- 
orizing it  first.)  You  may  be  ordered  to 
intercept  an  enemy  fleet,  cut  off  enemy 
supply  lines,  or  rescue  allies  from  ene- 
my territory. 

Your  patrol  area  covers  20  allied, 
enemy,  and  neutral  quadrants  of  the 
South  Pacific.  The  patrol  chart  display 
offers  a  view  of  this  entire  area,  includ- 
ing your  sub,  the  allied  subtender,  ene- 
my ships,  and  the  area's  dozen  islands, 
although  not  all  this  information  is 
available  on  the  upper  difficulty  levels. 
You  can  view  your  position  within  a 
quadrant  with  the  quadrant  chart, 
which  also  shows  in  greater  detail  the 
islands  and  their  surrounding  shoals 
and  reefs. 

Other  displays  are  the  radar 
screen,  the  damage  report  screen,  the 
captain's  log  (which  holds  data  for 
eight  players),  and  the  main  control 
screen.  The  damage  screen  shows  a 
port-side  view  of  your  sub,  highlighting 
the  damage  in  any  of  eight  major  areas. 
The  main  screen  demands  most  of  your 
attention — it  contains  depth,  speed, 
and  heading  gauges  as  well  as  a  full- 
color  view  of  objects  in  your  area.  The 
Apple  version  of  Galo  displays  these 
graphics  in  the  extended  high-resolution 
mode;  the  graphics  are  adequate,  but 
could  be  improved, 

A  nice  touch  in  Gato  is  the  fake 
spreadsheet  screen:  You  can  flip  to  this 
display  to  make  it  look  as  if  you're 
working  whenever  the  boss  strolls  by. 


Coming  Up  For  Air 

Gato  promises  realism,  and  it  delivers. 
While  the  lower  difficuhy  levels  are 
excellent  for  learning  to  control  the  sub- 
marine, the  upper  levels  offer  extreme 
challenge  and  give  you  no  unfair  ad- 
vantages  over  the  enemy  as  the  lower 
levels  do.  Attention  to  detail  is  very 
good.  You  run  aground  if  you  get  too 
near  an  island,  and  the  sub's  speed  is 
affected  by  the  ship's  depth,  the  peri- 
scope position,  and  whether  the  torpe- 
do tube  doors  are  open  or  closed. 
Because  oxygen  is  constantly  consumed 
below  depths  of  20  feet,  you  must  sur- 
face occasionally  to  prevent  your  crew 
from  suffocating.  In  addition,  depth 
and  speed  play  a  role  in  how  soon  you 
are  detected  by  enemy  ships  during 
sneak  attacks. 

The  extensive  list  of  factors  the 
program  must  calculate  and  recalculate 
inevitably  slows  down  the  game.  The 


screen  updates  only  about  once  per  sec- 
ond, and  takes  even  longer  when  ships 
or  islands  are  nearby. 

If  one  of  your  torpedos  finds  its 
target,  you  can  see  the  explosions  on 
the  display  if  you're  surfaced.  The  ex- 
plosion graphics  are  fair,  although  the 
sound  effects  could  use  some  improve- 
ment. Each  time  you  sink  a  ship,  the 
program  updates  your  captain's  log  to 
credit  your  achievement.  The  log  is  re- 
set every  time  you  are  sunk — it  goes 
down  with  the  ship. 

Gato  also  includes  screens  with  his- 
toric and  technical  information,  plus  a 
demonstration  mode  (the  demo  mode 
explains  the  submarine  but  does  not 
show  actual  game  play).  The  manual 
moves  quickly  in  an  effort  to  be  thor- 
ough, including  a  discussion  of  strategy 
and  tactics  against  the  five  different 
types  of  enemy  ships.  It  offers  help  on 
attack  patterns,  defense  tactics,  avoid- 
ing depth  charges,  and  using  the  radar 
and  periscope. 

Gato  requires  a  serious  approach  if 
you  want  to  play  it  well.  For  those 
willing  to  commit  themselves  to  service 
in  the  Pacific  Fleet,  Calo  lives  up  to  its 
claims.  Just  don't  expect  to  sink  the 
entire  Japanese  fleet  on  your  first  (or 
even  fifth)  mission. 

Gato 

Speclnim  HoloByic,  Inc. 
1050  Watmit,  Siiitt  325 
BoiiUii'r,  CO  S0302 
S39.95  Apple /IBM 
$49.95  Macintosh 


Atari  PaperCUp 

Robert  L.  Riggs 

Requirements:  Atari  400/800,  XL,  or  XE 
with  at  least  48K  RAM,  a  disk  drive,  and  a 
printer. 

Word  processors  for  Atari  computers 
are  reaching  an  amazing  level  of  so- 
phistication. In  many  ways,  the  Atari 
version  of  PaperCUp  from  Batteries  In- 
cluded is  the  most  sophisticated  to  date. 
Besides  all  the  usual  features  we've 
come  to  expect,  PaperCUp  offers  a  num- 
ber of  capabilities  not  found  in  most 
other  Atari  word  processors.  These 
range  from  major  features  such  as  mul- 
tiple windows  to  lesser  ones  such  as 
character-  and  word-swap  commands. 
The  windows  are  particularly  useful: 
You  can  load  and  edit  two  different 
documents  simultaneously,  and  cut  and 
paste  text  between  them. 


Typical  of  the  program's  flexibility 
is  a  configuration  menu  that  lets  you 
customize  your  own  version  of  Paper- 
CUp. For  instance,  you  can  change  the 
screen  background  and  character  col- 
ors; choose  the  screen  line  length — 
from  15  to  132  characters — and  then 
determine  whether  the  entire  screen 
window  will  scroll  or  just  the  line  being 
typed;  change  the  left  screen  margin  to 
correct  for  TV  sets  which  overscan; 
elect  to  use  the  cursor  keys  without 
pressing  CTRL;  and  switch  'the  XL/XE 
key  click  and  alarm  bell  on  or  off.  You 
can  even  tell  PaperCUp  to  automatically 
save  the  text  file  you're  working  on 
after  a  predetermined  number  of 
keystrokes. 

Once  you've  customized  Paper- 
CUp, you  can  save  it  on  disk  for  future 
use.  The  program  disk  isn't  copy- 
protected, so  you  can  make  as  many 
backups  as  you  need.  You  can,  for  ex- 
ample, create  several  PaperCUp  disks 
with  different  configurations  and  pref- 
erences. To  prevent  this  feature  from 
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being  abused  by  software  pirates.  Paper- 
clip comes  with  a  key  that  must  be 
plugged  into  a  joystick  port  to  make  it 
work. 

The  configuration  menu  offers  other 
choices,  too,  such  as  a  mini-DOS  and 
options  to  create,  save,  and  load  macro 
files.  A  macro  is  a  block  of  previously 
defined  text — such  as  a  letterhead — that 
can  be  placed  on  the  screen  with  a  single 
keystroke.  You  can  define  several  macro 
files,  each  containing  blocks  of  frequently 
used  text. 

PaperCUp  does  not  come  with  a 
quick  reference  card  for  its  many  com- 
mands, but  pressing  CTRL-SHIFT-?  calls 
up  either  a  disk  menu  or  the  online  help 
files  (assuming  the  disk  containing  these 
files  is  inserted  in  the  default  drive).  The 
help  files  contain  a  list  of  all  PaperCUp 
commands  necessary  for  file  manipula- 
tion, printer  control,  and  screen  editing. 

Math  And  Graphics 

PaperCUp  can  manipulate  numbers  and 
pictures  as  well  as  letters.  Its  built-in 
calculator  can  add,  subtract,  multiply, 
and  divide,  printing  the  answer  at  the 
appropriate  place  in  the  document.  And 
a  screen  dump  utility  on  the  program 
disk  prints  out  images  created  with  any 
of  the  well-known  graphics  programs, 
including  the  KoalaPad  and  Atari  Touch 
Tablet  or  Light  Pen.  If  you  want,  these 
pictures  can  be  embedded  in  your  docu- 
ments, and  the  program  disk  contains 
B/Graph  and  KoalaPad  files  for  practice. 

Other  useful  utilities  are  included  on 
the  disk,  too.  One  program  converts 
AtariWriter  word  processor  files  to  Paper- 
CUp format.  PaperCUp — like  AtariWriter 
and  most  other  Atari  word  processors — 
saves  text  in  standard  ASCII  format,  but 
there  are  differences  between  formatting 
codes  and  so  forth.  The  conversion  utility 
automatically  replaces  the  AtariWriter 
codes  with  appropriate  PaperCUp  codes. 

There's  also  a  mail-merge  feature,  a 
typewriter  mode  which  is  ideal  for  ad- 
dressing envelopes,  a  word  counter,  and 
the  ability  to  search  and  replace  up  to  six 
pairs  of  text  strings  in  a  single  pass. 

One  extra  feature  of  PaperCUp 
which  i  especially  enjoyed  was  the  rapid 
cursor  movement.  The  cursor  begins 
repeating  sooner  when  you  hold  down 
a  cursor  key,  and  it  zips  across  the 
screen  considerably  faster  than  your 
average  Atari  cursor. 

Versatile  Printing 

PaperCUp  is  flexible  enough  to  work 
with  virtually  any  printer.  The  program 
disk  contains  printer  drivers  for  more 
than  30  of  the  most  popular  models.  If 
necessary,  you  can  create  your  own 
printer  driver  by  using  a  program 
which  lets  you  modify  an  existing  driv- 
er or  build  one  from  scratch.  Therefore, 


PaperCUp  should  be  compatible  with 
any  future  printers. 

During  my  testing,  1  found  that 
PaperCUp  did  not  fully  support  the  pro- 
portionally spaced  font  of  the  Atari  825 
printer.  PaperCUp  would  print  the  pro- 
portional font,  but  without  proportion- 
al spacing.  However,  I  was  using  the 
early  version  1.0  of  the  program;  Batter- 
ies Included  says  the  newer  version  1.1 
does  add  microspacing  for  proportional 
printing,  though  it  still  cannot  handle 
true  proportional  spacing  with  this 
printer. 

PaperCUp  has  several  printing  fea- 
tures that  will  be  appreciated  for  spe- 
cialized applications — such  as  a  table  of 
contents  creator,  an  option  to  print  any 
range  of  pages  in  a  document,  the  abili- 
ty to  print  multiple  copies,  and  a  batch- 
file  capability  for  printing  several 
documents  in  sequence.  It's  also  the 
only  Atari  word  processor  I've  seen  that 
can  print  in  double-column  format 
without  forcing  you  to  roil  the  paper 
back  into  the  printer— great  for 
newsletters. 

Future  Features 

Because  PaperCUp  has  such  a  large 
number  of  commands  and  capabilities, 
it  takes  a  while  to  master.  The  manual  is 
lengthy,  and  the  original  edition  needs 
an  index  and  more  assistance  for  first- 
time  users.  Batteries  Included  says  a 
new  edition  of  the  manual  corrects 
these  deficiencies  and  adds  the  much- 
needed  index,  h  is  being  shipped  with 
later  copies  of  PapercUp  1.1. 

Even  newer  versions  of  PaperCUp 
were  scheduled  for  release  this  fall. 
Version  1.2  supports  the  full  128K  RAM 
in  the  Atari  130XE,  treating  the  four 
extra  16K  banks  as  one  continuous 
block  of  memory.  The  text  area  is  about 
90 K  long,  and  the  windowing  feature 
lets  you  load  two  documents  up  to  45K 
long.  PaperCUp  1.2  also  will  support  the 
extra  memory  in  any  future  XE  models, 
such  as  the  256K  XE  that  Atari  has 
hinted  about.  If  this  computer  ever  be- 
comes a  reality,  PaperCUp  1.2  would 
allow  more  than  200K  for  text  memory. 

Batteries  included  also  planned  to 
make  PaperCUp  work  with  its  an- 
nounced 80-column  cartridge,  the  B.I. 
80,  but  the  cartridge  was  recently  can- 
celed due  to  chip  supply  problems. 

Updates  to  newer  versions  of  Paper- 
CUp, incidentally,  are  available  to  owners 
for  $10. 

Overall,  PaperCUp  is  without  doubt 
a  superb  word  processor  for  Atari  com- 
puters. You  won't  be  sorry  you  bought  it. 

PaperCUp 

Batteries  hicliideil 

30  Mural  Street 

Richmond  Hill,  Ontario 

Canada  L4B  IBS 

S59.95  ® 


Davidson  is 
%  %  %  &  1 
in  Education 


For  math,  speed  reading,  spelling  and  vocabulary, 
Davidson's  award  winning  software  outsells  all  others. 
Why?  Because  enough  people  choose  to  buy  ttie 
educational  software  that  works. 

MATH  BLASTER  makes  it  more  fun  to  add. 
subtract  multiply,  divide,  and  learn  fractions.  d«;imals 
and  per  cents.  First  through  sixth 
graders  master  600  matti  facts  with 
excit'ng  graphics,  animation,  sound 
j '    j"-j\  V      effects. ..even  an  arcade  game. 
!^(aV^       Apple'",  Macintosh'".  IBM"", 
^V^^ymi  I     Commodore  64/128'",  Atari'".  49.95. 


^ 


€.'^ 


SPEED  READER  H  can  quadruple  your  reading 
speed  and  improve  your  comprehension.  Develop 
good  reading  habits,  chart  your 
progress,  and  have  fun!  For  high 
school  age  through  aduit  Apple 
IP.  Macintosh'*.  IBfT. 
Commodore  64/128'".  69.95 
J 

WORD  ATTACK  lets  students  ten  through  adut) 

discover  the  meanings  and  usages  of  675  new  words. 

Include  a  fun.  fast-action  arcade 

_jjfgj^<   ^       game  and  add-your-own-words 

"^^^   :      editor  Apple'",  IBM'".  Commodore 

*"     64/128'".  Atari'".  49.95 
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SPELL  IT  teaches  ten  year  olds  and  older  how  to 
spell  a  thousand  and  one  of  our  most  commonly 

misspelled  words.  Vivid  graphics, 
animation,  sound  effecis,  a  lively 
arcade  game  and  add-your-^wn- 
words  editor,  tool  Apple™,  IBM'". 
Commodore  64/128'".  Atari'".  49.95 
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Davidson  &  Associates,  Inc. 

800-556^41 

0nCafif.,  213-534407(9 


Davidson.    .^\ 

Dinidsoa  &  Associates,  Iik.  n  e  a*" 

3135  Kashiwa  St  /  Torrance,  CA  30505 

Please  send  me  a  FREE  COtOR  BROCHURE  and  the  name  of 
my  nearest  Davidson  Dealer 

Name . 

Address 

City 


.State. 


EdnBrtkniiil  Sfltlware  thai  WnriB 


.Zip. 


CO 


Commodore  64 
3-D  Animated  Graphics 


This  BASIC  enhancement  for  the 
Commodore  64  makes  it  easy  to  draw 
and  animate  impressive  three- 
dimensional  graphic  figures.  While 
the  commands  are  designed  for  creat- 
ing 3-D  shapes,  they're  useful  in  any 
high-resolution  graphics  application. 


Nearly  everyone  has  seen  three- 
dimensional  computer  drawings, 
but  have  you  ever  tried  to  create 
one  yourself?  Since  complex  math 
is  needed  to  calculate  a  3-D  shape 
and  plot  it  on  the  high-resolution 
screen,  BASIC  takes  a  long  time  to 
draw  even  relatively  simple  objects. 
For  this  reason,  3-D  animation  is 
rarely  seen,  even  in  commercial 
software. 

With  "3-D  Graphics  Package," 
however,  you  can  add  several  new 
commands  to  BASIC  for  creating 
sophisticated  3-D  graphics — even  if 
you're  not  a  programming  wizard. 

Type  in  Program  1  using 
"MLX,"  the  machine  language  en- 
try program  published  elsewhere  in 
this  issue.  Read  the  MLX  instruc- 
tions carefully  before  typing  the 
program,  and  be  sure  to  save  a  copy 
when  you're  done.  Here  are  the 
addresses  required  for  MLX: 

Starting  address:  34000 
Ending  address:  39381 

Because  this  is  a  machine  lan- 
guage (ML)  program,  you'll  need 
to  load  it  with  LOAD"FILE- 
NAME",8,1  for  disk  or  LOAD- 
"FILENAME",1,1  for  tape. 
Activate  it  by  typing  SYS  34000 
and  pressing  RETURN.  A  startup 
message  at  the  top  of  the  screen 


Christian-Marc  Panneton 


reminds  you  that  an  enhanced 
version  of  BASIC  is  present.  Now 
type  in  and  save  Program  2,  a 
short  3-D  graphics  demonstration. 
You  must  activate  Program  1 
before  typing  in  Program  2.  If  the 
enhanced  BASIC  is  not  present, 
the  special  graphics  commands 
won't  work,  even  if  you  later  re- 
load Program  2  with  the  en- 
hanced BASIC. 

3-D  Animation 

Program  2  displays  two  complex, 
multicolored  objects  rotating 
around  a  common  axis.  When  a 
rotation  is  finished,  the  objects  are 
redisplayed  and  rotated  in  a  differ- 
ent plane.  Notice  how  short  the 
program  is.  If  you've  never  tried 
creating  such  displays  in  BASIC,  it's 
difficult  to  appreciate  just  how  fast 
and  efficient  these  new  commands 
are.  Although  objects  of  this  com- 
plexity usually  take  several  minutes 
to  draw  in  BASIC,  the  ML  routines 
draw  and  redraw  them  quickly 
enough  to  create  a  convincing  illu- 
sion of  movement  in  three- 
dimensional  space. 

This  program  will  be  easier  to 
use  if  you  understand  a  few  simple 
concepts.  Three-dimensional  ob- 
jects are  usually  defined  in  terms  of 
three  dimensions  or  planes  relative 
to  you,  the  observer.  The  X  plane 
defines  horizontal  location.  The  Y 
plane  defines  verdcal  location.  The 
Z  plane  defines  depth.  You  can  lo- 
cate any  point  in  this  system  by 
specifying  a  coordinate  for  each  of 
the  three  planes. 

As  shown  in  the  figure,  coordi- 
nate (0,0,0)  defines  the  spot  where 


all  three  planes  intersect.  In  the  X 
plane,  negative  coordinates  lie  to 
the  left  of  the  X  axis  and  positive 
coordinates  to  the  right.  In  the  Y 
plane,  positive  coordinates  are  up 
and  negative  ones  down.  And  posi- 
tive Z  coordinates  are  nearer  to  you 
than  negative  ones. 


The  3-D  drawing  grid  is  com- 
posed of  three  dimensions  or 
planes.  Each  point  in  space 
has  three  coordinates  on  the 
grid. 
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Don't  worry  if  that  sounds  a  bit 
confusing.  The  best  way  to  learn 
about  these  commands  is  to  experi- 
ment. Since  they  all  work  in  direct 
mode  (when  you're  not  running  a 
program),  you  can  type  in  one  com- 
mand at  a  time  and  see  the  result 
right  away.  If  it's  not  what  you 
expect,  change  one  or  two  values 
and  try  again.  After  a  while  you'll 
learn  how  to  draw  what  you  want, 
even  if  you're  not  an  expert  in 
geometry. 
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A  ATARI 


Atari  IS  a  Irademark  ol  ATARI  INC. 

SUPER  PRINTER  PACKAGES 


SG-10  Printer 
and  U-Prin!  A  . 

Panasonic  1091 
andU-PfintA  . 

Legend  880  & 
U-PrintA 


-285 
.315 
.287 


Citoh  BS1DAP  + 

&U-PrintA 399 

Powertvpe  & 

U-PrmtA 379 


Super  Printer  Packages  have  no  extra  charges  when 
shipped  In  Contlnenlal  USA. 

ATARI  INTERFACES 

U-Prinl  A  59.95 


U-Print  A-16K  79.95 

U-Pnnl  A-S4K  99.95 

INDUS  GT 

for  Atari Call 


R-Verter  Hodetn 
Adapter  

U'Call  Modem 
Adapter  


Pocket  Modem  94  95 


ATARI  520  ST* 

Atari  520  ST-Monochrome  System  Call 

Atari  5ZD  ST-RGB  System Cat! 

Atari  13DXE  Computer Call 

Atari  1050  0\sk  Drive  Call 

ATARI  ST  SOFTWARE 


Gem  Write 79.95 

Gem  Paint 39.95 

Spreadsheet   79.95 

DB  Master    79,95 

2  Key  Accounting  .  .  .64,95 
Home  Planetarium  39.95 
ST  Cotral 39.95 


ST  9u5mess  Tools 49.95 

Calculator   19,96 

Centipede   24,95 

Missile  Command    ...24,95 

Star  Raiders   24.95 

Batllezone  24.95 

Asteroids  24.95 


MISCELLANEOUS  ST 

Monday  Morning  Keyboard  Cadet 

Manager 34.95 

VIP  Prolessional  69.95 

Financial  Time  Mactiine  41  95 
□eja  Vu  39  96 


. .  27.95 

Halley  Project  34.95 

PCInlercom   89.95 

Mince  Text  Editor   .    .  129.95 
Habs  Systems     Call 


INFOCOM  ST 

Zork  I,  II.  Of  III 29,95        Hitchhiker  27.95 

Witness 27.95        Suspect 29.95 

Planetlall  27.95       Wistibringer   27.95 

Sorcerer   29.95        Encttanter   27  95 

Seastalker  27  95 

Please  call  for  stock  availability  on  Atari  ST  products  betofs 
ordotinj  by  mall 

ATARI  SOFTWARE 


BRODERBUND 

Karatekj-D    20,95 

Cliamp  Loderunner-D  ,  23.95 

PnntShop-D  34.95 

Bank  Street  Wriler-D  .  34.95 
Pnnt  Shop  Gr^hics  l-D  19.95 
Pnnt  Shop  Gt^phcs  ll-D  19  95 
Print  Shop  Paper      ,     t6,95 

ELECTRONIC  ARTS 

Archon 19.95 

Archon  II   24,95 


Mule 

19,95 

Realm.lmpossibility 

19,95 

Murdef'Zinderneut    , 

19,95 

Music  Construction 

19  95 

Pintiall  Construction 

1995 

One  on  One 

24,95 

Seven  Cities  ot  Gold 

24.95 

Financial  Cookbook 

29.95 

INFOCOM 

Enchanter-D 

24.95 

Zork  l-D 

24.95 

Hilchiker-D 

24.95 

Cutthroats-D    

24.95 

Wishbnnger-D    , , 

29,95 

See  C-64  section  lor  rest  ol 

items  and  prices 

MISCELLANEOUS 

ATARI 

Pander  Grendiet-D  . . 

.24.95 

Hacker-D  .  

.19  95 

Cross  Country  Road 

Race-D       , 

19  95 

Master  ol  Lamps-D 

19,95 

flight  Si  mulator-D 

34,9b 

CompuServe  Starter  Kit  21 ,95 

Monkey  Wrench-Cart 

23.9b 

Ultima  Ill-D  

.37.95 

Sargon  Ill-D   

.34.95 

Odesta  Chess-D 

.  49.95 

.69.96 

Universe-D 

69  95 

.21.95 

Letter  Perlect-0    . 

39  95 

Data  Perlect-D 

.  39.95 

Fleet  System  ll-D    , , 

,49,95 

MISC.  ATARI  (cont'd.) 

SirpPoker-D    23,95 

Halley  Proiect-D   29,95 

Mtro  League  Baselall-0  29,95 

Ultima  l-D  23,95 

Ultima  ll-D    37.95 

F-15  Strike  Eagle-D      .23  95 

Ultima  IV-D 41  95 

Bounty  Bob-Cart 29  95 

Alien  Voice  Box 99.95 

Omnimon    69  95 

Paper  Clip-D  39,95 

Home  Pak-D  34.95 

OSS 

Basic  XE-Cart   52  95 

MacgSXL.Csrl    ,,       49  95 

Adion-Cart  49.95 

Basic  XL-Cart  39,95 

Each  Tool  Kit-D 20,95 

SSI 

Carrier  Force-D    37  95 

Combat  Leader-D 24  95 

Cosmic  Balance-D  ...  24  95 

Broadsidcs-D 24,95 

50  Mission  Crush-D      24,95 

Rails  West-D   24  95 

Computer  Ambush-0  37  95 
Compuier  Baseball-D  24,95 
Breakthrough' 

Ardennes-D   37,95 

Impenum  Galatlum-D  24,95 
Oper  Market 

Garden-D  32,95 

Karaptgiuppe-D  ...  37.95 
Computer 

Ouarterback-D  . .  24,95 
Colomal  ConquBst-D  ,  24,95 
Gemslone  Warrior-D  ,  21 ,95 
SijGun  Shootout-D  ,    24  95 

SYNAPSE 

Syncalc-O   34,95 

Syntile-O  34.95 

Synlrend-D   27.95 

Syncalc  Templates-O    .16.95 

Relax-D     79.95 

Mindwheel-D  27.95 

Loderunner's  Rescue-0    213  95 


39,95 


44  95 


ATARI  SUPER  SPECIAL 

Prices  effective  now  tttrough 

November  30,  1985 

Micro  League  Baseball  24  95  Slarleague  Baseball  . .  18.95 

On  Track  Racing  16  95  Worlds  Great  Football  24  95 

Starbowl  Football     ...18,95  One  on  One  ,  2195 

Wimer  Games    24,95  X-Counlry  fload  Race  18  95 


GENERAL 
HARDWARE 


-IL 


SG-10  215 

SG-15  369 

SD-10  339 

SD-15  449 

SR-10 Call 

SR-15 Call 

PRINTER  BUFFERS 

U-Print-16K    79,35 

U-Print-64K    99.95 

AMIGA  COMPUTER 

CALL  FOR  HARDWARE 

AND  SOFTWARE  PRICES 


MODEMS 

Volksmodem  1200  ,. 

189 

flacal-Vadic  300/1200 

319 

Prometheus  1200  .   . 

319 

PRINTERS 

Panasonic  1091 

.245 

CitonesioAPi  ,  , 

329 

Legend  380   

.,209 

Legend  lOBO   

.  .219 

Citoh  750DAP+   

.219 

Epson     . . 

Call 

Panasonic  1 09O 

199 

Powertvpe  309 

309 

Juki  5510  

389 

APPLE 


ELECTRONIC  ARTS 

Skytox        29,95 

One  on  One  29,95 

Seven  CiUes/Gold  ....  29.95 

Archon 24.95 

Adv.  Construction  Kit     37.95 


BRODERBUND 

Print  Shop-D  33  95 

Karateka-D 21.95 

Champ  Loderunner-D  2195 

Bank  Street  Wriier-D  44,95 

Print  Shop  Graphics-D  17  95 

Dazzle  Draw 39,95 

APPLE  MISCELLANEOUS 

Ghostbuslets 25.95  Star  League  Baseball    ,  23,95 

Flight  Simulator  II  , ,  , ,  34.95  Ultima  III 39.95 

F-IS  SIrike  Eagle 21 .95  Bruce  Lee  25.95 

Summer  Games 25.95  Consn  25.95 

Micro  League  Baseball  29.95  Sideways         39  95 

We  stock  hundreds  of  programs  for 
the  Apple,  Atari,  C-64  and  IBM  if 
you  don't  see  it  listed  here  don't 
hesitate  to  call. 

T  —  Cassette       D  —  Disk        Caf  t  —  Cartridge 
EST  198Z 


'^omput(flhLLLtu^ 

PO.  Box  17882.  Milwaukee,  Wl  53217 

ORDER  LINES  OPEN 

Mon-Fri  11  a.m.  -  7  p.m.  CST  •  Sat.  12  p.m.  -  5  p.m.  CST 

To  Order  Call  Toil  Free 

800-558-0003 

For  Technical  Info,  Order 
Inquiries,  or  for  Wise.  Orders 

414-351-2007 

ORDERING  INFORMATION:  Piease  speedy  system 
For  last  delivery  send  cashier's  check,  money  order  or  direct  bank 
transleis.  Personal  and  company  checks  allow  2  weeks  to  cleai 
Charges  lor  COD  are  S3  00  School  Purchase  Orders  welcome  In 
CONTINENTAL  USA.  include  S3. 00  shipping  per  software  order. 
Include  4\  shipping  on  all  Hardware  orders,  minimum  S4  00 
Mastercard  &  Visa  please  include  card  #  and  enpirabon  date  Wl 
residents  please  add  5%  sales  tax,  HI.  AK.  FPO.  APO.  Canadian 
orders  —  add  ^\  shipping,  minimum  S5.00  All  other  foreign 
Orders,  please  add  15°i  shipping,  minimum  StO.OO  All  goods 
are  new  and  include  factory  warranty  Due  to  our  low  prices,  all 
sales  arc  final.  All  defective  returns  must  have  a  return  authoriza- 
tion number  Please  CJIU14-351-2007  to  obtain  an  HA*  or  your 
return  will  NOT  be  accepted  lor  replacement  or  repair.  Prices  and 
availability  are  subject  to  change  without  notice 


COMMODORE 
64  &  128 


C-1 28  Computer  Call 

1571  Disk  Drive Call 

1 902  Monitor   Call 

Call  for  our  special  package  price 

SUPER  PRINTER  PACKAGES 

SG-10*  G-WIZ   279 

Panasonic  1091  &  G-WIZ  309 

Panasonic  1090  &  G-WIZ  265 

Legem)  880  &  G-WIZ 271 

Legem)  1080  &  G-WIZ 282 

Citoh  5510AP  -I-  &  G-WIZ   395 

Super  Printer  Packages  have  no  extra  charges 
added  when  shipped  in  Continental  USA 

MODEMS  Animation  Station 

Westridge  AA  AD  ,,..  69.95        forC-H 49  95 

Mighty  Mo 69,95        PRIMTFR 

1660  Modem  49  95        LTpB„reC 

INDUS  GT  E™'^*'^^^      50  05 

'"^C-S" «       DarSharePPi:,:::49  95 

CardcoG  +        49  95 


C-64  SUPER  SPECIALS 

Super  Special  Prices  effective  now 
thru  November  30,  1985 

Micro  League  Baseball  24,95  Star  Rank  Bomng     , ,    13,95 

On  Track  Racing        ,    16,95  One  on  One            , , ,  21  95 

On  Field  Football  ,     ,   18  95  X-Coumry  Road  Race    t8  95 

On  Court  Tennis     . , , ,  !8  95      Batter  up 24  95 

Star  League  Baseball    ,'8  95  Racing  Destruction  Kit  21,95 


COMMODORE  SOFTWARE 


SSI 

Questron-O    24, 95 

Phantasie-D  24.95 


Germany  1985-D 
Wings  ol  War-D  , , . 
Fighter  Command-D 
Mech  Brigade- D    , . 
Norway  1985-D 
See  Atm  Section  lor  Rest  ol 
Items  and  Phces 

ELECTRONIC  ARTS 

Si(yFoi-D  24  95 

Mail  Order  Monsier-D  24,95 
.Adv  Conslruclion-D 
Racing  Dcstruction-D 
Golden  Oldies-D 
See  Atari  Seclion  lor  Rest  ol 
Hems  and  Prices 

INSTA 

Insta-CalC'Graph 

Combo-D 24,95 

Insfa-Ledget-D 39,95 

Insta-Writer-O  14,95 

Management 

Combo-D 39,95 

Insla-Speed-D     39  95 


37.95 
24.95 
37.95 
37.95 
2195 


29.95 
24.95 
19.95 


ACCESS 

Beachhead-D 
Beachhead  ll-D 
Raid/Moscow-D 
Mach  V-Cart    . . 


21.95 
24.95 
24.95 
21.95 


BATFERIES  INCLUDED 

Consultanl-D     52.95 

Paperclip  wSpeilpak-D  79.95 
Super  Busscard  II  .  129,95 
Heine  Oipncer  ltBms-0    16,95 

8,1.  80  Card 109,95 

Cal-Kil   34,95 

Home  Pak-0    34  95 

INFOCOM 

Zork  II  or  lll-O    27.95 

Deadllne-0    29.95 

Starcross-D 29.95 

Wilness-D  29.95 

Suspended-D         , ,    , 29.95 

Planettall-D    24.95 

Sorcerer-0    29.95 

Infidel-D   29,95 

SeaStalker-O  24,95 

Suspect-0 29,95 

See  Atari  Seclion  lor  Restol 
Hems  enrS  Pnces 


MISCELLANEOUS  COMMODORE 


Ultima  lil-O 

flight  Simulator  ll-D  , 

Castle  Wolfenstein-D 

Superbase  64-0  

Strip  Poker-D      

Slap  Shot  Hockey-D  . 

Mastertype-D 

Star  League 

Baseball-D  

S.A.M.-D  

Alien  Voice  Box  

Sargon  Ill-D 

Ultima  :V-D   

Typing  Tutor  Ill-D   ... 
On  Field  Football-D    , . 

Ultima  ll-D  

Blue  Max-D   

Blue  Max  2D01-0  . . . . 

Relai-O   

Microleague 

Baseball-D  

Stunt  Flyer-D  

Expedibon  Amazon-D 

Xyphus-D  

Trans¥lvannia-D 

Halley  Projeel-D 

Bounty  Bob-Cart  .... 
Fleet  System  ll-D  .... 

Space  Shuttle-0 

Gtiostbusters-0  


37.95 
34,95 
20,95 
47,95 
23.95 
14,95 
27,95 

20.95 
41,95 
99,95 
34,95 
41,95 
34.95 
20.95 
37.95 
23.95 
20.95 
79.95 

29.95 
27.95 
23.95 
27.95 
23.95 
29.95 
29.95 
44.95 
20.95 
24.95 


Batter-Up-0  

Amer  Cross  Country 

Race-0  

Syncalc-O    

Stjpertiowl  Sunday-D 
Railroad  Wofks-D 

VIP  Termlnal-0    

CompuServe  Starter 

Krt   

Reach  for  the  Stars-D 
earners  at  War-D  .... 

Compubridge-D  

Grand  Master  Chess-D 
Voice  Messenger-0 
Main  Event  Boxing-D 
On  Court  Tennis-D  . . 
Crimson  Crown-D    . . . 

The  Works-D 

Perry  Mason-D  

Sherlock  Holmes-0  . . 
Frank  4  Ernest  Adv-D 
Kobayashi  Atternative-D 

Hacker-D 

Brimstone-O   

Fast  Tracks-0   

The  Hobbit-O    

Cave  of  Time-D 

Escape-D  

Europe  Ablaie-0 
Karate  Champ-0  , 
Disk  Notcher 


29,95 

20.95 
34.95 
24.95 
24.95 
29.95 

21.96 
29  95 
34.95 
19,95 
19,95 
44,95 
20,95 
20,95 
23.95 
34  95 
22  95 
23,95 
23,95 
27.95 
20.95 
27,95 
23,95 
23,95 
23,95 
23,95 
23,95 
25.95 
.7.95 


No  surcharge  for  MasterCard  or  visa 


COMPUTE!  Back  Issues 


Here  are  some  of  the  applications, 
tutorials,  and  games  from  available 
back  issues  of  compute:.  Each  issue 
contains  much,  much  more  than 
there's  space  here  to  list,  but  here 
are  some  highlights: 


May  1981:  Named  GOSUB/GOTO 
in  Applesoft,  Generating  Lower 
Case  Text  on  Apple  II,  Copy  Atari 
Screens  to  the  Printer,  Disk  Direc- 
tory Printer  for  Atari,  Realtime 
Clock  on  Atari,  .PET  BASIC  Delete 
Utility,  PET  Calculated  Bar  Graphs, 
Running  40  Column  Programs  on  a 
CBM  8032,  A  Fast  Visible  Memory 
Dump,  Cassette  Filing  System,  Get- 
ting to  a  Machine  Language  Pro- 
gram, Epidemic  Simulation. 

June  1981:  Computer  Using 
Educators  (CUE)  on  Software  Pric- 
ing, Apple  11  Hires  Character  Gen- 
erator, Ever  Expanding  Apple 
Power,  Color  Burst  for  Atari,  Mix- 
ing Atari  Graphics  Modes  0  and  8, 
Relocating  PET  BASIC  Programs, 
An  Assembler  in  BASIC  for  PET 
Quadra  PET:  Multitasking?,  Map- 
ping Unknown  Machine  Language, 
RAM/ROM  Memory,  Keeping 
Tabs  on  a  Printer. 

July  1981:  Home  Heating  and  Cool- 
ing, Animating  Integer  BASIC 
Lores  Graphics,  The  Apple  Hires 
Shape  Writer,  Adding  a  Voice  Track 
to  Atari  Programs,  Machine  Lan- 
guage Atari  Joystick  Driver,  Four 
Screen  Utilities  for  the  PET,  Saving 
Machine  Language  Programs  on 
PET  Tape  Headers,  Commodore 
ROM  Systems,  Using  TAB,  5PC, 
and  LEN. 

August  1981:  Minimize  Code  and 
Maximize  Speed,  Apple  Disk  Motor 
Control,  A  Cassette  Tape  Monitor 
for  the  Apple,  Easy  Reading  of  the 
Atari  joystick.  Blockade  Game  for 
the  Atari,  Atari  Sound  Utility,  TI 
CBM  "Fat  40,"  Keyword  for  PET, 
CBM/PET  Loading,  Chaining,  and 
Overlaying,  Adding  a  Pro- 
grammable Sound  Generator, 
Converting  PET  BASIC  Programs 
to  ASCII  Files. 


October  1981:  Automatic  DATA 
Statements  for  CBM  and  Atari,  VIC 
News,  Undeletable  Lines  on  Apple, 
PET,  and  VIC;  Budgeting  on  the 
Apple,  Atari  Cassette  Boot-tapes, 
Atari  Variable  Name  Utility,  Atari 
Program  Library,  Train  Your  PET  to 
Run  VIC  Programs,  Interface  a  BSR 
Remote  Control  System  to  PET,  A 
General  Purpose  BCD  to  Binary 
Routine,  Converting  to  Fat-40  PET. 

December  1981:  Saving  Fuel  $$ 
(multiple  computers),  Unscramble 
Game  (multiple  computers).  Maze 
Generator  (multiple  computers), 
Animating  Applesoft  Graphics,  A 
Simple  Atari  Word  Processor,  Add- 
ing High  Speed  Vertical  Positioning 
to  Atari  P/M  Graphics,  OSl 
Supercursor,  A  Look  at  SuperPET, 
Supermon  for  PET/CBM,  PET 
Mine  Maze  Game,  Replacing  the 
INPUT  #  Command,  Foreign  Lan- 
guage Text  on  the  Commodore 
Printer,  File  Recovery. 

January  1982:  Invest  (multiple 
computers),  Developing  a  Business 
Algorithm  (multiple  computers), 
Apple  Addresses,  Lowercase  with 
Unmodified  Apple,  Cryptogram 
Game  for  Atari,  Superfont:  Design 
Special  Character  Sets  on  Atari, 
PET  Repairs  for  the  Amateur, 
Micromon  for  PET,  Self-modifying 
Programs  in  PET  BASIC,  Tinymon: 
A  VIC  Monitor,  VIC  Color  Tips,  VIC 
Memory  Map,  ZAP;  A  VIC  Game. 

May  1982:  VIC  Meteor  Maze  Game, 
Atari  Disk  Drive  Speed  Check, 
Modifying  Apple's  Floating  Point 
BASIC,  Fast  Sort  for  PET/CBM,  Ex- 
tra Atari  Colors  Through  Artifacting, 
Life  Insurance  Estimator  (multiple 
computers),  PET  Screen  Input,  Get- 
ting the  Most  out  of  VIC's  500  Bytes. 

August  1982:  The  New  Wave  of 
Personal  Computers,  Household 
Budget  Manager  (multiple  comput- 
ers). Word  Games  (multiple 
computers),  Color  Computer  Home 
Energy  Monitor,  A  VIC  Light  Pen 
for  Under  $10,  Guess  That  Animal 
(multiple  computers),  PET/CBM 
Inner  BASIC,  VIC  Communica- 


tions, Keyprint  Compendium, 

Animation  with  Atari,  VIC  Curios- 
ities, Atari  Substring  Search,  PET 
and  VIC  Electric  Eraser. 

September  1982:  Apple  and  Atari 
and  the  Sounds  of  TRON,  Com- 
modore Automatic  Disk  Boot,  VIC 
Joysticks,  Three  Atari  GTIA  Arti- 
cles, Commodore  Disk  Fixes,  The 
Apple  PILOT  Language,  Sprites 
and  Sound  on  the  Commodore  64, 
Peripheral  Vision  Exerciser  (mul- 
tiple computers),  Banish  INPUT 
Statements  (multiple  computers). 
Charades  (multiple  computers), 
PET  Pointer  Sort,  VIC  Pause,  Map- 
ping Machine  Language,  Com- 
modore User-defined  Functions 
Defined,  A  VIC  Bug. 

January  1983:  Sound  Synthesis  and 
the  Personal  Computer,  Juggler  and 
Thunderbird  Games  (multiple 
computers),  Music  and  Sound  Pro- 
grams (multiple  computers).  Writ- 
ing Transportable  BASIC,  Home 
Energy  Calculator  (multiple 
computers),  All  About  Commodore 
WAIT,  Supermon  64,  Perfect  Com- 
modore INPUTS,  VIC  Sound  Gen- 
erator, Copy  VIC  Disk  Files, 
Commodore  64  Architecture. 

May  1983:  The  New  Low-Cost 
Printer/Plotters,  Jumping  Jack 
(multiple  computers).  Deflector 
(multiple  computers),  VIC  Kaleido- 
scope, Graphics  on  the  Sinclair/ 
Timex,  Bootmaker  for  VIC,  PET, 
and  64,  VICSTATION:  A  "Paper- 
less Office,"  The  Atari  Musician, 
Puzzle  Generator  (multiple 
computers).  Instant  64  Art,  64  Odds 
and  Ends,  Versatile  VIC  Data  Ac- 
quisition, POP  for  Commodore. 

June  1983:  How  to  Buy  the  Right 
Printer,  The  New,  Low-Cost  Print- 
ers, Astrostorm  (multiple  comput- 
ers). The  Hawkmen  of  Dindrin 
(multiple  computers),  MusicMaster 
for  the  Commodore  64,  Commo- 
dore Data  Searcher,  Atari  Player/ 
Missile  Graphics  Simplified,  VlC 
Power  Spirals,  UnNEW  for  the  VIC 
and  64,  Atari  Fast  Shuffle,  VIC 
Contractor,  Commodore  Supermon 
Q&  A. 


9'!     COMPUTEt     November  1985 


COMPUTE!  Back  Issues 


July  1983:  Constructing  the  Ideal 
Computer  Game,  Techniques  for 

Writing  Your  Own  Adventure 
Game,  SpeedSki  and  Time  Bomb 
(VIC),  Castle  Quest  and  Roadblock 
(Atari),  RATS!  and  Goblin  (64), 
How  to  Create  a  Data  Filing  System 
(multiple  computers),  How  to  Back 
Up  Disks  for  VIC  and  64,  Atari 
Artifacting,  All  About  the  Com- 
modore USR  Command,  TI  Mailing 
List. 

August  1983:  Weather  Forecaster 
(multiple  computers).  First  Math 
and  Clues  (multiple  computers), 
Converting  VIC  and  64  Programs 
to  PET,  Atari  Verify,  Apple 
Bytechanger,  VIC  and  64  Escape 
Key,  Banish  Atari  INPUT  State- 
ments, Mixing  Graphics  Modes  on 
the  64,  VICplot,  VlC/64  Transla- 
tions: Reading  the  Keyboard,  Musi- 
cal Atari  Keyboard,  VIC  Display 
Messages. 

September  1983:  Games  That 
Teach,  Caves  of  Ice,  Diamond 
Drop,  Mystery  Spell,  and  Dots 
(multiple  computers),  VIC  Pilot, 
Ultrasort  (VIC,  64,  PET),  Easy  Atari 
Page  Flipping,  Computer  Aided 
Design  on  the  TI,  Relative  Files  on 
the  VIC/64,  Atari  Fontbyter,  TI 
Sprite  Editor,  All  About  Interrupts 
(multiple  computers).  Cracking  the 
64  Kernal,  Making  Change  on  the 
Timex/Sinclair,  Build  Your  Own 
Random  File  Manager  (multiple 
computers). 

October  1983:  Computer  Games  by 
Phone,  Coupon  File  (multiple 
computers).  Dragon  Master  and 
Moving  Maze  (multiple  comput- 
ers). Merging  Programs  from  Com- 
modore Disks,  Atari  Master  Disk 
Directory,  Sprites  in  TI  Extended 
BASIC,  Commodore  EXEC,  Multi- 
color Atari  Character  Editor,  High 
Speed  Commodore  Mazer,  Apple 
Sounds,  Extra  Instructions  (mul- 
tiple computers),  Commodore  DOS 
Wedges,  Invisible  Disk  Directory 
for  VIC  and  64, 

February  1984:  What  Makes  a 
Good  Game,  Circus  (multiple 


computers),  Quatrainment  (mul- 
tiple computers),  Commodore  3-D 
Drawing  Master  (Apple  version 
also  included).  Speedy  BASIC  for 
VIC  and  64,  Dr.  Video  64. 

March  1984:  All  About  Adding 
Peripherals,  Modern  Memory:  The 
Future  of  Storage  Devices,  Roader 
(multiple  computers).  Barrier  Battle 
(multiple  computers).  Program- 
ming the  TI:  File  Processing,  Sound 
Shaper  (multiple  computers).  Com- 
modore Floating  Subroutines,  Big 
Buffer  for  Atari. 

April  1984:  Apple's  Macintosh  Un- 
veiled, Securities  Analysis  (mul- 
tiple computers).  Worm  of  Bemer 
(multiple  computers).  Program- 
ming the  TI:  File  Processing,  Part  2, 
1540/1541  Disk  Housekeeping, 
Hidden  Atari  DOS  Commands, 
Function  Keys  for  the  Apple,  TI 
Tricks  and  Tips,  Super  Directory 
(multiple  computers). 

May  1984:  The  Digital  Palette:  Fun- 
damentals of  Computer  Graphics, 
The  Inside  Story;  How  Graphics 
Tablets  and  Light  Pens  Work,  Pic- 
ture Perfect  for  Atari  and  Com- 
modore 64,  64  Hi-Res  Graphics 
Editor,  Snertle  (multiple  comput- 
ers), Pentominos:  A  Puzzle-Solving 
Program  (multiple  computers),  A 
BASIC  Cross-Reference  (PET,  64). 

June  1984:  Choosing  the  Right 
Printer;  The  Easy  Way  to  Hard 
Copy,  Pests  (multiple  computers). 
Olympiad  (multiple  computers). 
Programming  the  TI:  TI  Graphics, 
MacroDOS  for  Atari,  Part  1,  Apple 
Variable  Save,  Programming  64 
Sound,  Part  1,  Apple  Input  and 
Menu  Screens. 

July  1984:  Evolutionary  to  the  Core: 
The  Apple  lie  Heads  for  Home,  The 
ABC's  of  Data  Bases,  Statistics  for 
Nonstatisticians  (multiple  com- 
puters). Bunny  Hop  (multiple 
computers).  Blueberries  (multiple 
computers).  Atari  Artist,  Applesoft 
Lister,  Program  Conversion  with 
Sinclair  BASIC  and  TI  BASIC, 
Commodore  64  ROM  Generations. 


September  1984:  New  Trends  in 
Educational  Computing,  Choosing 
the  Best  Educational  Software,  Mis- 
sile Math  (multiple  computers), 
Lightsaver  (multiple  computers), 
Multiple  Choice  Quiz  Generator 
(multiple  computers).  Lightning 
Sort  (multiple  computers).  Com- 
modore Autoboot,  Apple  Editing 
Hints,  Atari  Paddle  Fixer,  Musical 
TI  Keyboard. 

January  1985:  VIC/64  TurboTape: 
Tape  at  Disk  Speeds,  Music  in  the 
Computer  Age,  Inside  MSX,  Para- 
trooper (multiple  computers).  Res- 
cue of  Blondell  (Commodore/ 
Atari),  Guitar  Tuner  (multiple 
computers).  Which  Computer  Lan- 
guage Is  Best?,  Machine  Language 
Multiplication,  Part  1,  Enhanced 
Applesoft  Input,  Atari  Terminal 
Program,  IBM  Pie  Chart  Maker. 

February  1985:  Special  Games  Is- 
sue, The  New  Atari,  Fame  Games, 
Birth  of  a  Computer  Game,  Acrobat 
(multiple  computers).  Terminal 
Program  for  VIC  &  64,  Program- 
ming the  TI  Without  a  Math  Back- 
ground, Adding  Sound  Effects  to 
Atari,  Rebound:  Machine  Language 
IBM  Game,  Apple  Bowling  Champ, 
64  Sound  Effects. 


Back  issues  are  $6  each.  Price  in- 
cludes freight  in  the  US.  Outside  the 
US  add  $1  per  magazine  ordered 
for  surface  postage,  $4  per  maga- 
zine for  airmail  postage.  AH  back  is- 
sues are  subject  to  availability. 

In  the  Continental  US  call 

TOLL  FREE  800-334-0868 

(919-275-9809  in  NC) 

Or  write  to: 
COMPUTE!  Back  Issues 
P.O.  Box  5058 
Greensboro,  NC  27403  USA 

Prepayment  required  in  US  funds. 
MasterCard,  Visa,  and  American 
Express  accepted. 
NC  residents  add  4.5%  sales  tax. 
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These  figures  arc  redrawn  rapidly  at 
dlffereul  angles  to  create  the  illusion  of 
rotation  in  space. 


Following  is  a  description  of 
what  each  command  does.  Except 
for  SWAP,  every  command  must  be 
followed  by  one  or  more  numeric 
values  (numbers  or  numeric 
variables). 

Large-Scale  Commands 

These  commands  are  used  to  pre- 
pare the  computer  for  drawing  and 
to  perform  other  general  tasks: 

SCREEN  determines  which  of 
three  screens  is  displayed.  SCREEN 
0  selects  the  normal  text  screen. 
SCREEN  1  switches  you  to  the  first 
graphics  screen,  and  SCREEN  2 
displays  the  second  graphics 
screen.  Switching  to  a  graphics 
screen  automatically  sets  up  multi- 
color high-resolution  mode.  Ani- 
mation is  simulated  by  flipping 
back  and  forth  between  the  two 
graphics  screens.  For  instance,  you 
can  display  a  figure  on  screen  1 
while  redrawing  it  on  screen  2,  then 
display  screen  2  while  redrawing 
the  shape  on  screen  1,  and  so  on. 
SCREEN  0  restores  the  text  screen 
when  a  program  is  finished. 

It's  important  to  remember 
which  screen  you're  working  on. 
When  a  graphics  screen  is  dis- 
played, Qrawing  commands  appear 
on  that  screen.  When  you're  using 
the  text  screen,  drawing  commands 
take  effect  on  the  last  graphics 
screen  shown. 

Use  the  function  keys  fl,  f3, 
and  f5  to  switch  from  one  screen  to 
another  in  direct  mode.  For  in- 
stance, try  pressing  fl.  The  com- 
puter prints  SCREENO  followed  by 
a  carriage  return  to  execute  that 
command  (if  you're  already  in  the 
text  screen,  nothing  changes).  Press 
f3  to  perform  SCREENl,  f5  to  per- 
form SCREEN2,  and  fl  to  return  to 


the  text  screen.  Don't  press  these 
keys  while  a  program  is  running, 
DCLEAR  clears  a  graphics  screen. 
Use  DCLEAR  1  to  erase  graphics 
screen  1  and  DCLEAR  2  to  clear 
screen  2.  Both  screens  are  cleared 
when  you  start  up  the  program. 
COLOR  sets  the  screen  and  draw- 
ing colors,  using  color  numbers 
from  0-15  as  listed  in  the  64  man- 
ual. This  command  is  followed  by 
five  values  in  the  general  form 
COLOR  BO,BA,Cl,C2,C3.  The  first 
two  values  (BO  and  BA  in  this  case) 
set  the  screen  border  and  back- 
ground colors.  The  last  three  values 
select  drawing  colors.  In  multicolor 
hi-res  mode  you  can  draw  in  up  to 
three  different  colors.  Thus, 
COLOR  0,0,1,3,6  sets  the  border 
and  background  colors  to  black  and 
sets  the  drawing  colors  1,  2,  and  3 
to  white,  cyan,  and  green,  respec- 
tively. Since  drawing  commands 
refer  to  the  drawing  colors  by  num- 
ber (1,  2,  or  3),  you  should  always 
execute  a  COLOR  command  before 
drawing. 

ANGLE  is  an  important  command 
that  sets  the  observation  angles— 
your  (the  observer's)  position  in 
space  relative  to  the  X-Y-Z  grid. 
Look  at  the  figure  again  and  imag- 
ine a  cube  is  drawn  there.  If  you 
remain  stationary  and  rotate  the 
grid — or  if  the  grid  remains  station- 
ary and  you  change  your  posi- 
tion— the  cube's  appearance 
changes.  (Since  the  positioning  is 
relative,  you  can  visualize  the 
change  either  way,) 

ANGLE  takes  three  values, 
which  refer  to  the  Y  plane,  X  plane, 
and  Z  plane,  respectively.  These 
values  represent  degrees  of  rotation 
around  the  axis  of  each  plane  and 
must  each  be  in  the  range 
—  360-360,  Program  3  demon- 
strates a  simple  use  of  ANGLE.  By 
redrawing  the  same  shape  at  differ- 
ent observation  angles,  you  can 
achieve  the  illusion  of  movement  in 
space.  Note  that  ANGLE  changes 
the  effect  of  subsequent  drawing 
commands,  it  does  not  change  the 
appearance  of  existing  objects. 
PARAM  sets  four  general  parame- 
ters and  should  also  be  used  before 
you  begin  to  draw.  It  takes  four 
values  in  the  general  form  PARAM 
X,Y,SC,DI.  The  first  two  values  (X 
and  Y  in  this  example)  locate  the 
origin  or  center  of  the  3-D  grid  on 


Only  three  program  lines  are  needed  to 
draw  this  spherical  surface. 


the  screen.  Coordinate  (0,0,0)  of  the 
grid  is  located  wherever  you  put  the 
origin.  Since  the  graphics  screen 
contains  160  horizontal  pixels 
(screen  dots)  and  200  vertical  pix- 
els, the  X  value  must  be  in  the  range 
0-159  and  the  Y  value  must  be  in 
the  range  0-199.  Use  an  X  value  of 
80  and  a  Y  value  of  100  to  center  the 
origin  in  the  middle  of  the  screen. 
The  third  PARAM  value  (SC) 
is  scale,  which  controls  the  overall 
size  of  the  image.  The  larger  the 
scale,  the  bigger  the  picture,  and 
vice  versa.  This  number  must  be  in 
the  range  0-100;  a  scale  value  of  20 
works  well  in  many  cases.  The  final 
PARAM  value  (DI)  is  the  distortion 
value,  a  number  in  the  range  of 
0-250.  On  most  monitors  and  TVs 
the  pixels  are  actually  wider  than 
they  are  high,  causing  a  mathemati- 
cally perfect  circle  to  look  elliptical 
on  the  screen.  This  value  adds  a 
correction  factor  to  eliminate  the 
distortion.  A  distortion  value  of  165 
works  well  in  most  instances.  If 
your  circles  still  look  squashed,  ex- 
periment with  other  values. 

Drawing  Commands 

These  commands  draw  points, 
straight  lines,  and  circles  or  ellipses: 

DPLOT  draws  a  point  on  the  cur- 
rent graphics  screen  and  is  followed 
by  four  values.  The  first  three  val- 
ues set  coordinates  for  the  point  in 
2-X-Y  order,  and  the  fourth  selects 
one  of  the  three  drawing  colors  de- 
fined in  an  earlier  COLOR 
command. 

DLINE  draws  a  line  from  one  point 
to  another.  It  requires  seven  values: 
three  coordinates  for  the  starting 
point,  three  coordinates  for  the 
ending  point,  and  the  drawing 
color.  Both  sets  of  coordinates  are  in 
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Here  are  145  reasons  to 
buy  at  Elek-Tek,  not  to 
mention  the  fastest 
delivery  anywhere. 


BERNOULU  BOX 

1.  5  meg  Drive 

tor  Macintosh $  1375 

la.    Cartridges  for  above 43 

2.  10  meg  Drive  tor  IBM -PC/XT/ 
AT  &  compatibles 1790 

3.  20  meg  Drive  for  IBM-PC/XT/ 
AT  &  compatibles .......  2490 

4.  10  meg  Drive  w/  Auto  Bool  for 
IBMPC/XT & canpatWes  ....  1890 

5.  20  meg  Drive  vrf  Auto  Boot  lor 
IBM-PC/XT  &  compatiWes  . . .  .2590 

6.  10  meg  oartridges  for  above 

(3  pak  specal) 1Z5 


PRINTER  BUFFERS 


7. 

DDP-16 

16K  Par/Par.  (exp,  to  64K) . 

70 

QUADRAM 

B. 

QRMP8 

SK  Parallel/Parallel  

125 

9. 

QRMPS8 

SK  Parallel/Senal 

.139 

to. 

QRMSP8 

8K  Serial/Parallel   -  . 

.139 

11. 

QRMSS8 

8K  Serial/Serial 

.139 

POWER  PROTECTORS 


12 


PowerMlte  PG600-S9 

6  cutlet  Surge  Suppressor  .  .30 
13.    ISOBARS 

8  outlet  Surge  Suppressor     .  SO 


iHF 


Standby  Power  Systems 

Protects  your  computer  hardware 
and  data  when  the  power  goes  ouL 

14.  400VA(3.3A) ..475 

•  Tlansfenime— 4-6  Mi.  Sec 

•  Waveform— rectangular 

•  Runtime— up  to  24  min 

15.  1000VA 875 

Switcnes  to  battery  pov/ered 
back-up  in  Vi  mil.  sec 

•  Clean  sine  wave  output 

•  AC  line  synctironizeci 

•  Regulated  output  voltage 

•  Surge  Suppression 

•  EFI/RFl  filler 


Save  30%  to  43% 

off  Manufacturer  Suggested  Retail  prices  on 

EPSON  •  Okidata  •  Star 
•  TOSHIBA  •  COMREX  •  OLYMPIA 


PRODUCTS  FOR  IBM-PC 


EPSON 
FX85 

EPSON* 

16.  LX80   S215 

17.  RX  100+    -    350 

m    FX85 340 

19.  FX  185 475 

20.  LQ  ISOOparalel    CALL 

21.  DXIO  Daisy  Wheel  lOCPS  -  -  230 

22.  DX20  Daisy  Wheel  20CPS  CALL 

23.  Comrex  il  Comriter     269 

24.  Amdek  310A 

Amber  Monitor S  150 

25.  Generic  Multl 

Multifunction  Board.  64K        150 

26.  AST  Six  Pak  + 
Multifunction  Board.  64K        229 

27.  AST  Six  Pak  +  (loided) 
Multifunction  Board,  38dK      289 

28.  AST  Megaplus  II 
Multifunction  Board.  64K         270 

29.  Quadram  Quadboard 
Multifunction  Board.  OK  195 

30.  Quadram  Quadboard 

Multl,  Board,  64ra84K        210«57 

31.  Orchid  Tech. 

PC  Turbo  1B6       570 

32.  Paradise 

Modular  Graptiics  Card  275 

33.  Hercules 

Monochrome  Card 329 

34.  Hercules  Color 

Color  Graphic  Card  ,    ,  ,  170 

35.  Novation  490605-1 

2400BPS  inc.  Mi[e  Software         620 

36.  Novation  490603 

■/2  Card  Modem  2400BPS 

No  software 425 

37.  Novation  490603-1 

As  above  inc.  MS-DOS  Soft\vare   490 
36.      Hayes  1200B 

Internal  modem  wi'soflware         379 

39.  AT&T  4000 

300/1200  Ext.  Modem  -  .         335 

40.  Hayes  1200 

External  modem 399 

41.  Hayes  2400 

External  modem 599 

42.  US  Robotics  Courier  2400 

Ext.  2400B  Smart  Modem  . .  460 

43.  US  Robotics  Talpsc 
Telecomm  Software  75 

44.  TEAC  FD55B 

Vi  hi  DSDD  Disk  Drive ,  90 


45.  SG  10    235 

46.  SO  10/15 CALL 

47.  SR  10fl5 CALL 

OKIDATA 

4a.    Oki  182 CALL 

49.  Okj  192/193  ,  - CALL 

50.  Oki  84 CALL 

OTHER  PRINTERS 

51.  Olympia  Compact  2        .S  350 

52.  Toshiba  P341    CALL 

53.  Toshiba  P351 CALL 

54.  Toshiba  PI 340 CALL 


PRODUCTS  FOR  APPLE 


55.  U— Print  IIC-16K 

Par  Interface  external  ....  $  85 

56.  Grappler  PLUS 

Graphics  Interface 80 

57.  Buffered  Grappler 

16K  Buffer  (Expand  to  64K)    150 

58.  Kensington  System  Saver 
Fan  and  Surge  Suppr  .  69 

59.  Super  Cooling  Fan 

Fan  and  Surge  Suppr.  ,  .  ,    .29 

60.  Gamma 

Disk  Controller  Card 48 

61.  Gamma  II 

SS  Disk  Drive  for  II,  Ita  llplus  . .  .125 

62.  Gamma  ilc 

SS  Disk  Drive  for  Ilc 125 

63.  RanBELITE2 

DSSD  Disk  Drive 335 

64.  RanaELITE3 

DSOO  Disk  Drive 420 

65.  ERAM8C 

80  col:  64K  RAIVl  for  lie  .    .115 

66.  Novation  Apple  Cat  II 

300  Baud  fvlodem 200 

67.  Novation  212 

300/1200  Baud  Modem  .  ,  .390 

68.  Nov  49059112 

Mod.  &  Soft,  lor  Macintosh    CALL 

69.  Hayes  MIcromodem  lie 

300  Baud  Modem    .      .         145 

70.  Hayes  Smartmodein  Ilc 

300  Baud  Modem  for  Ilc  . .  240 

71.  Wieo  501030 

Analog  Joystick 36 

72.  Amdek  Monitors CALL 

73.  Zenith  Monitors CALL 


HUGE  SAVINGS  ON  DISKETTES 


SVt'SSDD 
DSBD 

SVi'SSDD 

DSHD 

SSDD96TPI 

DS0096TPI 

S^t'OSDOHD 

(FwlBM«ri 

8"  SSDD" 
8"  DSDD" 


oDysstt 

niaxe« 

3M 

gors^ 

^.^ 

„0*^ 

28.00 

25.00 

25.00 

25.00 

37.00 

37.00 

37.00 

37.00 

17.00 

14,00 

14.50 

13.00 

11.50 

11.50 

21.00 

18.00 

18.00 

16.00 

12.50 

14.00 

ZS.0O 

24.00 

24.00 

37.00 

29.00 

29.00 

45.00 

39.00 

40.00 

— 

24.00 

25.00 

29.00 

25.00 

19.00 

29.00 

32.00 

29.00 

— 

20.00 

— 

HEWLETT-PACKARD 


73.  HP-71B  Computer $  399 

74.  HP^2400A 

Series  70  card  reader 125 

75.  HP-e2401A 

HP-IL  interface 95 

76.  HP-S2402A 

4K  memory  module 60 

77.  HP-e2700A 

8K  memory  module 150 

78.  HP-82441A 
Assembly/Forth 120 

79.  HP-82480A 

HP-71  math  pac 75 

80.  HP-82482A 

HP-71  finance  pac 60 

81.  HP-82483A 

Sun«ying  Pac  120 

82.  HP-e2484A 

Curve  Fitting    75 

83.  HP-82485A 

Text  Editor 60 

84.  HP-824e8A 

Data  Cam.  Pac 120 

SPECIAL  PURCHASE 


HP-41C 
$105 

WhllB  Limited  Quantmes  Last 

86.  HP-41CV $168 

87.  HP-41CX 245 

88.  Optical  Wand 95 

89.  Card  Reader  145 

90.  Printer 283 

91.  Quad  R,A,M.  (for  HP41C)    .  ,  60 

92.  Ext,  Ivlemory  Module 60 

93.  Exl  Function  Module 60 

94.  Time  Module 60 

95.  HP-IL  Loop  Module 95 

96.  Digital  Cassette  Drive  ,    ,    ,400 

97.  Pri.nter/Plotter  (HP-IL)  335 

98  HP-222SB 

Th  InkJet  Printer 375 

99.  HP-9114A 

Disk  Drive 600 

SLIMLINE  Shirtpocket  Styled 
Power  Packed  Programmable 
LCD  PROBLEM  SOLVERS 

100.  HP-11C 

Scientific  58 

101.  HP-15C 

Scientific   90 

102.  HP-12C 

Financial   90 

103.  HP-1BC 

Programmer 90 


^ 

Call  for  Quantity  pricing  for  10  boxes  or  more. 


3M 

DATA 

CARTRIDGES 


140.  DC100 S  14.00 

141.  DC300A 18,00 

142.  DC300XL 21,00 

143.  DCSOOXLyP 22.00 

144.  DC600A 23.50 

145.  DC1000    15.00 


Call  for  Quantity  pricing 
for  10  cartridges  or  more 


CALL  TOU  FREE  800-621-1269  EXCEPT  Illinois,  Alaska 


ELEK-TEK  jnc. 


COip  AfCs  InvifKj   Win  O'Q   SI^DO  Visa  qt  MastB'Ca'd  b>  M«il  or  Phoie  Mail  Cas:i'#^'«  CnecK   Mor   Ore    Ps-sani!  Chacl^  (Z 
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Z-X-Y  order.  The  following  pro- 
gram demonstrates  a  simple  use  of 
DLINE: 

10  COLOR0,0,  1,  J0,  3:PARAJ'180,  100 
,20,  ]65:DCLEAR]  sSCREElUtFOR 
J=0TQ360STEP5 

20  ANGLEJ, 90,0:DLINE3500,0,0,4 
500,0,0, 3:WEXT 

Press  fl  to  return  to  screen  0 
when  the  program  is  finished. 
Change  the  90  in  line  20  to  12  and 
run  it  again  to  see  how  a  different 
observation  angle  affects  the  ob- 
ject's appearance, 

DDRAW  works  like  DUNE   but 

starts  drawing  at  the  point  where  a 
previous  DPLOT,  DLINE  or 
DDRAW  command  left  off.  Since 
the  beginning  point  is  already  de- 
fined, this  command  needs  only 
four  values:  three  coordinates  for 
the  ending  point  and  a  drawing 
color.  For  example,.  DDRAW 
—  500,0,0,1  draws  a  line  from  the 
previous  point  to  (  —  500,0,0)  in 
color  1. 

DCIRCLE  draws  a  circle  or  ellipse 
and  requires  eight  values.  The  first 
three  values  are  Z-X-Y  coordinates 
that  define  the  center  of  the  circle. 
The  fourth  value  sets  the  radius,  or 
distance  from  the  center  to  the  cir- 
cle's edge.  The  next  three  values 
define  orientation  angles  for  the  cir- 
cle, and  the  last  value  sets  the  draw- 
ing color. 

This  command  takes  the  gen- 
eral form  DCIRCLE  Z,X,Y,R,AY, 
A2,AX,C.  As  with  ANGLE,  the 
DCIRCLE  orientation  angles  con- 
trol which  way  the  circle  faces. 
When  all  three  angles  are  zero,  the 
circle  is  drawn  in  the  Z-Y  plane. 
Increasing  the  value  of  AY  causes  a 
counterclockwise  rotation  around 
the  Y  axis.  If  AY  is  90,  AZ  is  0,  and 
AX  is  0,  the  circle  is  drawn  in  the  X- 
Y  plane.  Increasing  the  value  of  AZ 
rotates  the  circle  counterclockwise 
around  the  Z  axis.  When  AY  is  0, 
AZ  is  90,  and  AX  is  0,  the  circle  is 
drawn  in  the  X-Z  plane.  Increasing 
the  value  of  AX  rotates  the  circle 
counterclockwise  around  the  X  axis. 

DCIRCLE  uses  integer  compu- 
tations to  speed  up  the  drawing 
process.  Though  the  command  ac- 
cepts noninteger  (fractional)  values, 
it  only  uses  the  integer  part  of  the 
number.  This  program  shows  how 
a  spherical  surface  can  be  formed 
out  of  many  circles. 


10    COLORS,  0,  1  ,  10,  3:PARAM80,  100 

, 20, 165:DCLEAR1 : SCREENl 
23    FORJ=90TO    0STEP-5;ANGLE0, J, 

0:DCIRCLE0, 0,0, 4500, 0,90,0, 

2: NEXT 
30    FORJ->5TO753TEP10:ANGLE0,90, 

0  :IJCIRCLE0,  0,0,  4500,0,  J,  0,  3 

:  tJEXT 


"3-D  Graphics  Package"  helps  you  draw 
co}7iplex  shapes  like  these. 


Animation  Commands 

This  group  of  commands  simplifies 
the  process  of  drawing  and  redraw- 
ing complex  objects: 

ANIM  stands  for  animate  and  takes 
one  value  corresponding  to  the 
screen  you  want  to  affect.  ANIM  1 
displays  graphics  screen  2,  clears 
screen  1,  and  lets  you  draw  on 
screen  1,  ANIM  2  does  the  reverse: 
Screen  1  is  displayed,  screen  2  is 
cleared,  and  you're  ready  to  draw 
on  screen  2.  Program  2  demon- 
strates a  typical  use  of  ANIM. 
SWAP  exchanges  the  contents  of 
screen  1  and  screen  2,  providing 
another  means  of  animation.  For 
instance,  you  might  display  screen 
1  at  all  times,  redrawing  the  figure 
on  screen  2  (which  is  not  seen), 
then  quickly  move  the  new  figure 
into  screen  1  with  SWAP.  This 
command  requires  no  parameters. 
FSET  is  a  very  powerful  command 
that  lets  you  define  up  to  three  fig- 
ures. Once  a  figure  is  defined,  it  can 
be  drawn  quickly  at  any  time  with  a 
FIGURE  command  (see  below).  A 
figure  consists  of  a  series  of  draw- 
ing instructions,  and  each  use  of 
FSET  lets  you  add  one  drawing  in- 
struction to  the  figure. 

The  general  form  of  the  com- 
mand is  FSET  FN,Z,X,Y,C,1.  In  this 
example,  FN  sets  the  figure  number 
that  determines  which  of  the  three 
possible  figures  you  are  working 
on.  Z,  X,  Y,  and  C  represent  three 
coordinates  and  a  drawing  color, 


and  I  represents  the  drawing  in- 
struction. The  instruction  can  be 
either  a  DPLOT  or  a  DLINE  com- 
mand. If  I  is  0,  then  FSET  performs 
DPLOT,  drawing  a  point  at  (Z,X,Y) 
in  the  color  C.  If  I  is  1,  FSET  per- 
forms DLINE,  drawing  a  line  from 
the  last  coordinate  defined  to  the 
point  (Z,X,Y)  in  the  color  C.  The 
first  of  the  three  figures  defined  by 
FSET  may  contain  up  to  120  sepa- 
rate drawing  instructions.  Figures  2 
and  3  are  limited  to  80  instructions 
each. 

FIGURE  is  used  to  draw  an  entire 
figure  previously  defined  with  an 
FSET  command.  It  takes  a  single 
value  corresponding  to  the  figure 
number.  For  instance,  FIGURE  1 
draws  the  first  figure  defined  with 
FSET.  FIGURE  2  draws  the  second, 
and  so  on. 

FCLEAR  clears  any  of  the  three 
figure  definitions,  permitting  you  to 
create  new  figures  with  FSET. 
FCLEAR  1  clears  the  figure  1, 
FCLEAR  2  clears  the  figure  2,  and 
so  on. 

Memory  Allocation 

Here  are  the  various  memory  areas 
used  by  this  program: 

32768-33791  Screen  2  color  memory 

33792-40959  Program  code 

40960-49151  Screen  2  bitmap 

49132-52223  Figure  definitions 

52224-53247  Screen  ]  color  memory 

57344-65535  Screen  1  bitmap 

Quick  Reference  Table 

ANGLE  Y,X,Z 

ANIMN 

COLOR  BO,BA,Cl,C2,C3 

DCIRCLE  Z,X,Y,R,AY,AZ,AX,C 

DCLEAR  N 

DDRAW  2,X,Y,C 

DLINE  Z,X,Y,Z1,X1,Y1,C 

DPLOT  Z,X,Y,C 

FCLEAR  FN 

FIGURE  FN 

FSET  FN,Z,X,Y,C,I 

PARAM  X,Y,SC,DI 

SCREEN  N 

SWAP 

Program  1 :  3-D  Graphics 
Package 

Pleose  refer  1o  the  "MIX"  article  in  this  issue 
before  entering  the  following  listing. 


34000 
34006 
34012 
34018 
34024 
34030 
34036 
34042 
34048 


:032, 189, 
:032,015, 
:032,05S, 
:0S4,003, 
:086,003, 
:08e,003, 
:10i,141, 
:g03,169, 
!l69,010, 


137,032, 
153,032, 
153, 169, 
141,085, 
141,087, 
141,089, 
169,030, 
100,141, 
141,101, 


193, 137, 
036,153, 
000, 141, 
003, 141, 
003, 141, 
003, 032, 
141,099, 
100,003, 
003, 169, 


160 
123 
002 
171 
181 
082 
207 
254 
081 
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34054  : 165, 141, 102,003, 169, 160, 234 
34060  :141,078,13a, 032, 068, 166,123 
34066  : 169, 012, 141, 064, 003, 169, 064 

34072  : 011, 141, 060, 003, 169, 010, 162 

34073  : 141, 061, 003, 169,013, 141,046 
34084  1062,003,169,014,141,063,232 
34090  :003,032,117,137,032,091,19a 
34096  :137, 024, 162, 255, 160, 127, 145 
34102  :032, 153, 255, 032, 191, 227, 176 
34108  : 120, 169,019, 141,004,003,004 
34114  1169,136,141,005,003,169,177 
34120  : 201, 141, 006, 003, 169, 135, 215 
34126  ! 141, 007, 003, 169, 163, 141, 190 
34132  :008,0g3,169,135, 141,009,03  7 
34138  :003, 169, 228, 141 , 024, 003, 146 
34144  : 169, 133, 141,02  5,003, 169,224 
34150  1001,141,022,003,169,134,060 
34156  : 141, 02  3, 003, 169, 074, 141, 147 
34162  : 143,  002, 169, 153, 141, 144, 098 
34168  :002,088,  160,000, 185, 138, 181 
34174  :133,032,210,255, 200, 192, 124 
34180  : 090, 208, 245, 076, 116, 164,007 
34186  : 147, 153, 018, 032, 032, 032, 040 
34192  :051,045,06a, 073,  077,  069, 01 5 
34198  : 078, 083, 073, 079, 078, 032, 061 
34204  : 080, 073, 067, 084, 085, 082, 115 
34210  : 069, 032, 065, 078, 065, 076, 035 
3421 6  : 089, 083 , 073 , 083, 032 , 032 , 048 
342  22  ; 032,  032, 032, 032, 032, 032, 110 
34228  !032,  146, 154, 153, 018, 032, 203 
34234  :032,  032,  032,  03  2,  032,  032, 122 
34240  : 032, 032, 032, 066,  009,  03 2,  219 
34246  ! 067, 072, 082, 073, 083, 084, 147 
34252  :  073,  065,  078,  032,  077,  046,  063 
34258  : 032,  080, 065, 078, 078, 069, 100 
34264  : 084, 079, 078, 032, 032, 032, 041 
34270  : 032, 032, 032, 146, 154, 01 3,  119 
34276  : 072, 138, 072, 152,  072,  169,  135 
34282  1127,141,013,221,172,013,153 
34288  : 221, 016, 003, 076, 114, 254, 156 
34294  :032,  188,246,032,225,255,200 
34300  : 240, 003, 076, 114, 254, 165, 080 
34306  1055,133,001,032,163,253,127 
34312  :032, 024, 229, 032, 018, 133, 220 
34318  : 108, 002, 160, 230,  122, 208, 076 
34324  1002,230,123,096,032,017,008 
34330  : 134, 032, 138, 173, 032, 191, 214 
34336  : 177, 032, 121, 000, 164, 100, 114 
34342  =165,101,096,162,000,165,215 
3434S  : 100, 01 6, 01 5, 162,001,056, 138 
34354  : 169, 000, 229, 101,  133, 101,  015 
34360  : 169, 000, 229, 100, 133, 100, 019 
34366  : 096, 032, 027, 134,032,041, 168 
34372  1134,142,092,003,165,100, 192 
34378  : 141, 091, 003, 165, 101, 141, 204 
34384  : 090, 003, 032, 024,  134,032,  139 
34390  ! 041, 134, 142,095,003, 165, 154 
34396  ! 100, 141, 094, 003, 165, 101, 184 
34402  : 141, 093, 003, 032,  024, 134, 013 
34408  : 032, 041, 134, 142,  098,  003,  042 
34414  : 165, 100, 141, 097, 003, 165, 01 3 
34420  : 101, 141, 096, 003, 076, 000, 021 
34426  : 144, 032, 063, 134, 165, 038, 186 
34432  ! 133, 251, 133, 025, 165,040, 107 
3443B  {133,252, 133,026,032,024, 222 
34444  : 134, 165, 101,141,065,003,2  37 
34450  :076,10e, 138,032,063, 134, 185 
34456  :  165,038, 133 , 251 , 165, 040, 176 
34462  : 133, 2 52, 032, 01 7, 134, 032, 246 
34468  :063,134,165,038, 133, 253, 182 
34474  :165,040, 133,254,032, 324,050 
34480  :134, 141,065,003,076, 242,069 
34486  1138,032,027,134,141,099,241 
34492  : 003, 032, 024, 134, 141,100,110 
34498  : 003, 032, 024, 134,141,101,117 
34504  :003,032,024,134, 141,102, 124 
34510  1003,096,032,027,134,208,194 
34516  1003,076, 091, 137, 201,001  , 209 
34522  1208,011,169,224,141,078,025 
34528  :13S,032, 117,137,076,039, 251 
34534  1137,169,160, 141, 078, 138, 029 
34540  : 032, 117, 137, 076, 065, 13 7, 032 
34546  ! 032, 027, 134, 201, 001,  208, 077 
34552  :  01 1,032, 039, 137, 169, 160,028 
34558  : 141, 078, 138,076, 193, 137, 249 
34564  : 03 2, 065, 137,169,224, 141,304 
34570  :078, 138, 076, 189, 137, 032, 143 
34576  102  7,134,141,064,003,032,161 
34582  1024,134,141,060,003,032,160 
34538  : 024, 134, 141,061,003,032,167 
34594  : 024, 134, 141,062,003,03  2, 174 


34600  :024, 134, 141,063,003,076,225 
34606  !ll7,137,032,02  7,  134,141,122 
34612  : 084, 003, 140,085,003,032,143 
34618  : 024, 134, 141, 086,003, 140, 074 
34624  7087,003,032,024, 134,141,229 
34630  : 088, 003, 140,089,003,076, 213 
34636  ;101, 141, 03 2, 027, 134, 140, 2 39 
34642  : 156, 003, 141, 155,003,032,060 
34648  :024, 134, 140, 158, 003 , 1 41 , 176 
34654  : 157, 003, 032, 024, 134, 140, 072 
34660  : 160, 003, 141, 159, 003, 032, 036 
34666  :024, 134, 140, 162, 003, 141 , 198 
34672  : 161, 003, 03 2, 024, 134, 140,094 
34678  5  085,003,141, 084, 003, 032, 2 10 
34684  :024, 134,140,087,003, 141,141 
34690  1086, 003, 03  2, 024, 134,140,037 
34696  : 089, 003, 141,088,003,032, 236 
34702  : 024, 134, 141, 065, 003, 076, 073 
34708  :251, 145,032, 02 7, 1 34 , 201 , 1 70 
34714  : 001, 208, 003, 076, 189, 13 7, 000 
34720  :076,193,137,032, 115,000,201 
34726  : 201, 204, 144, 025, 201, 21 7, 134 
34732  =176,021,032, 180, 135,076,024 
34738  : 174, 167, 23  3, 203, 010, 168, 109 
34744  =185,014,137,072,185,013,022 
34750  ! 137, 072, 076, 11 5, 000, 032, 110 
34756  =121,000,076, 231 , 167, 016, 039 
34762  =066,201,255,240,062,036,038 
34768  =015,048,058,170, 132,073,192 
34774  ; 201, 204, 176, 01 0,1 60, 160, 101 
34780  =132,035, 160, 158, 132,034, 103 
34786  : 208, 01 1,2 3 3, 076, 170, 160, 060 
34792  =136,132,035,160,199,132,002 
34798  :034, 160,000,010,240,016, 186 
34804  1202,016,012,230,034,208,178 
34810  =002,230,035,177,034,016,232 
34816  1246, 048,241, 200, 177, 034, 178 
34822  =048,008,032,071, 171, 208,032 
34828  =246,076, 243, 166,076, 239,034 
34834  =166,166,122,160,004,132,000 
34840  =015,189,000,002,016,007,253 
34846  : 201, 255, 240, 062, 232, 208, 204 
34852  =244,201,032,240,055,133, 173 
34858  :008, 201, 034, 240, 086, 036, 13  5 
34864  :015, 112,045, 201,063, 208, 180 
34870  =004,169,153,208,037,201,058 
34876  =048,144,004,201,060, 144,149 
34882  =029,132, 113, 160,000, 132, 120 
34888  =011, 136,  134, 122, 202, 200, 109 
34894  =232, 199,000,002,056,249,038 
34900  =153, 160, 240, 245, 201,128, 192 
34906  =208,048,005,011,164,113,127 
34912  =232,200,153,251,001,185,094 
34918  =251,001,240,089,056,233,204 
34924  =058,240,004,201,073,208,124 
34930  =002,133,015,056,233,085,126 
34936  =208, 159, 133,008, 189,000, 049 
34942  1002,  240, 223, 197, 008, 240, 012 
34948  =219,200,153,251,001,232, 164 
34954  =208,240,166,122,230,011,091 
34960  =200, 185, 157, 160,016, 250,088 
34966  =185, 158, 160, 208, 180,  160,177 
34972  =255,202,200, 232,189,000,210 
34978  =002,0  56,249,199, 136,240,020 
34984  =245, 201, 128, 208, 002, 240, 168 
34990  =173,166,122,2  30,011,200,052 
34996  =185,198,136,016,250,185,  126 
35002  =199,136,208,226,189,000,120 
35008  =002,016,155,076,009,166,104 
35014  =032,068,080,076,079,212,  2  33 
35020  1068, 076,073,078, 197,068, 252 
35026  ; 068, 032, 065, 215,080,065,017 
3  5032  =082,065,205,033,067,082,032 
35038  ! 069, 069, 206,065,078,073,  014 
35044  =205,067,079,076,079,210,176 
35050  : 065, 076, 071, 076, 197, 068, 021 
35056  =067,073,082,067,076,197,034 
35062  1068,067,076,069,065, 210,033 
35068  =070,083,069,212,070,073,061 
35074  ; 071, 085, 082, 197, 070, 067, 062 
35080  =076,069,065,210,000,122,038 
35086  =134,148, 134, 162, 134, 182, 140 

35092  1134,207,134,241,134,014, 116 

35093  =13  5,047,13  5,077,135,149,192 
35104  =135,073,151,057,152,007,100 
35110  =153, 173,000,221,041,248,106 
35116  1009,004,141,000,221,169,076 
35122  =057, 141, 024, 208, 169, 059, 196 
3  5123  =141,017,208, 169,024,141,244 
35134  =022,203,096,173,000,221,014 
35140  1041,248,009,005,141,000,000 


35146  : 221, 169, 009, 141, 024, 208, 078 
3  5152  =169,059,141,017,208,169,075 
3  5158  =024,141,022,208,096,173,238 
3  5164  =000,221,041, 248,009,007, 106 
3  5170  : 141, 000, 221, 169, 021, 141, 023 
35176  =024, 208, 169, 027, 141 , 01  7 , 178 
3  5182  1208,169,008,141,02  2,208,098 
3  5188  =096,173,064,003,141,032,113 
33194  =203,173,060,003,141,033,228 
3  5200  =208, 173,061,003,010,010,081 
35206  =010, 010, 013, 062, 003, 160, 136 
3  5212  =250,153,255,203,153,249,123 
3  5218  : 204, 153, 243, 205, 153, 237, 061 
35224  :206, 1 53 , 255, 1 27, 1 53, 249, 01 5 
35230  1128,153,243,129,153,2  37,177 

352  36  =130, 136,208,229, 173,063,079 
35242  =003,160,250,153,25  5,215,182 
35248  =153,  249,216,  153,243,217,127 
35254  =153,237,218,136,208,241,095 
3  5260  =096, 169,224,208,002,169,03  2 
3  52  66  =160,  133,083,  169,  224,  133, J077 
3  5272  =089, 169,000, 133,087,168,078 
3  5278  =14  5,087,200,208,2  51,230.047 
35284  =088, 230,089, 208, 245,096, 144 
35290  =165,026,074,074,074,133,252 
35296  =037,010,010,024, 101,087,031 
35302  =133,087,074,074,133,083,051 
3  5308  =165,037,010,010,010,010,016 
35314  =010,010,13  3,087,169,007,145 
3  5320  =03  7,026,024, 101,037, 133, 144 
3  5  326  =087,096,165,02  5,074,074,007 
3  5332  1133,089,074,074,074,074,010 
3  5338  =074,133,090,165,039,010,059 
35344  =010,010, 133,089,169,003,174 

353  50  1037,025,170, 169,000,13  3,044 
35356  =091,173,065,003,240,024,112 
35362  1106,144,005, 189, 104, 138, 208 
3  5368  =133,091,173,065,003,106,099 

353  74  ii06, 144,009,024, 189,104, 110 
35380  =138, 010,101,091,133,091,104 
35386  =096, 152,072,120,169,048,203 
35392  1133,001,024, 165,089,101,065 
3  5398  :0S7, 1 33, 093, 165 , 090, 101 , 227 
3  5404  =038, 105,224,133,094,160,112 
35410  =000,177,09  3,061,100,138,139 
35416  =005,091, 145, 093, 169, 055, 134 
35422  =133,001,088, 104, 168, 096, 172 
35428  1063,207,243,252,064,016,177 
35434  =004,001, 032, 213, 137, 032, 018 
3  5440  =000,133,076,059,138,198,209 
35446  =028,056,165,101,229,099,028 
35452  =13  3, 101, 165, 028, 229, 100, 112 
35458  =133,028,032,000,133,164,113 
35464  1026,200,136, 132,026,032,  176 

354  70  =218,13  7,032,059,138,196,154 
35476  =028, 208, 243 , 096, 032, 000, 243 
35482  1138,164,026,136,200,132,182 
35488  =026, 03  2, 218, 137,032,059, 152 
35494  =138,196,028,208,243,096,051 
3  5500  =230,027,024, 165, 101,101,052 
35506  1099,133,101,165,027,101,036 
3  5512  : 100, 133, 027, 032, 218, 137, 063 
35518  :164,025,136, 200, 132,025, 104 
3  5524  =032,000,138,03  2,059,138,083 
3  5530  =196,027,208, 243,096, 198, 146 
35536  =027,056,165,101,229,099,117 
35542  =133,101,165,027,229,100,201 
35548  : 133,027,032, 218, 137, 164, 163 

355  54  :  02 5,  200, 136,  132, 02 5, 032,  008 
35560  =000,138,032,059,138,196,027 
35566  ! 027, 208, 243, 096, 165, 251, 204 
355  72  1133,025,165,252,133,026,210 
35578  =197,2  54,144, 012,032,039,160 
35584  =139, 165, 253, 133, 251, 165, 082 
35590  =254,133,252,096,165,253,135 
3  5596  =133,251,165,025,133,253,204 
35602  =165,251,133,025, 165,254,243 
3  5608  =133,252,165,026,133,254,219 
35614  =165,252,13  3,026,056,032,182 
35620  =039,139,096,229,254,133,158 
35626  =102, 165, 251, 197, 253, 144, 130 
35632  =060, 229, 253 , 197 , 102, 144, 009 
35638  =027,133,098,165,102,133,200 
35644  =097,032,174, 139, 165, 251, 150 
3  5650  =133,027,230,027,032,207,210 
35656  1138,198,026, 165,027,197,055 
35662  =253, 208,24  5,096,13  3,097,086 
3  5668  =165,102,133,098,032, 174,020 
35674  =139,165,252,133,028,230,013 
35680  =023,032,117,138,198,025,122 
35686  1165,028,197,254,208,245,175 


November  1985  COMPUTE!   W 


35692 
35698 
35704 
35710 
35716 
35722 
3572B 
35734 
35740 
35746 
35752 
35758 
35764 
35770 
35776 
35782 
35738 
35794 
35830 
35806 
3  5812 
35a]a 
35824 
35830 
35B36 
35842 
35848 
35854 
35860 
35866 
35872 
35878 
3  5884 
35890 
35896 
35902 
35908 
35914 
35920 
35926 
35932 
35938 
35944 
35950 
35956 
35962 
35968 
35974 
35980 
35986 
35992 
35998 
36004 
36010 
36016 
36022 
36028 
36034 
36040 
36046 
36052 
36058 
36064 
36070 
36076 
36032 
36088 
36094 
36100 
36106 
36112 
36118 
36124 
36133 
36136 
36142 
36148 
36154 
36160 
36166 
36172 
36178 
36134 
36190 
36196 
36202 
36208 
36214 
36220 
36226 
36232 


1096, 

056, 

165, 

253, 

229 

25], 

134 

:197, 

102, 

144, 

029, 

133, 

098, 

049 

:165, 

102, 

133, 

097, 

032 

]74, 

055 

!l39. 

230, 

099, 

165, 

251 

133, 

119 

!027, 

198, 

027, 

032, 

172 

138, 

214 

:198, 

026, 

165, 

027, 

197 

253, 

236 

:208, 

245, 

096, 

133, 

097 

)65, 

064 

!l02, 

133, 

098, 

032, 

174 

139, 

060 

:16S, 

252, 

133, 

028, 

2  30 

028, 

224 

1032, 

117, 

138, 

230, 

025 

165, 

101 

:028, 

197, 

254 

208, 

245 

096, 

172 

:230, 

:i65, 

097, 
098, 

230 

098, 

162 

008 

231 

133 

100, 

169 

000 

077 

:006, 

100, 

042 

197, 

097 

144 

004 

:004 

229 

097 

230 

100 

202 

030 

:20a 

242 

133 

098 

162 

,008 

025 

:169 

000 

133 

099 

165 

098 

100 

:006 

099 

042 

197 

097 

,144 

02  7 

:004 

229 

097 

230 

099 

,202 

053 

:208 

242 

198 

100 

169 

,000 

lis 

:133 

101 

096 

000 

000 

,001 

047 

!030 

002 

060 

003 

089 

,004 

166 

.•U9 

005 

148 

006 

177 

,007 

190 

:205 

008 

232 

010 

003 

,011 

203 

1029 

012 

054 

013 

078 

,014 

196 

;102 

015 

124 

016 

144 

,017 

164 

:164 

018 

182 

019 

199 

,020 

098 

:214 

021 

228 

022 

240 

023 

250 

:250 

02  5 

002 

026 

008 

,027 

102 

!012 

028 

014 

029 

014 

,030 

153 

!012 

031 

007 

032 

000 

032 

146 

!246 

033 

234 

034 

219 

035 

071 

:202 

036 

lai 

037 

158 

,038 

184 

;132 

039 

103 

040 

071 

041 

220 

1035 

041 

253 

042 

211 

,043 

169 

:166 

044 

117 

045 

065 

,046 

033 

:010 

046 

206 

047 

144 

,048 

057 

:212 

049 

007 

049 

189 

,050 

118 

[Jll 

051 

029 

051 

199 

,052 

061 

:109 

053 

015 

053 

173 

,054 

031 

:070 

054 

220 

055 

109 

,055 

143 

:250 

056 

130 

057 

006 

,057 

142 

!l34 

058 

001 

05S 

120 

058 

021 

!234 

059 

087 

059 

192 

060 

033 

:036 

060 

131 

060 

222 

,061 

174 

!0S2 

061 

133 

061 

210 

,062 

189 

:02  5 

062 

092 

062 

154 

,062 

073 

:211 

063 

007 

063 

054 

,063 

083 

:097 

063 

134 

063 

166 

,063 

214 

:194 

063 

216 

063 

234 

,063 

211 

!246 

063 

254 

064 

000 

,239 

250 

il32 

238 

231 

246 

254 

,255 

234 

:246 

231 

132 

143 

149 

,142 

183 

:14S 

150 

142 

134 

145 

,242 

107 

:146 

134 

149 

132 

231 

,  5  51 

095 

:134 

145 

145 

138 

150 

,144 

014 

!l45 

133 

106 

132 

107 

,169 

212 

:000 

157 

068 

003 

157 

,071 

138 

:003 

152 

016 

013 

024 

,169 

065 

1 104 

101 

106 

133 

106 

,144 

132 

:002 

230 

107 

230 

107 

,056 

176 

rl65 

106 

233 

180 

168 

,165 

211 

:107 

233 

000 

144 

005 

,132 

077 

:106 

254 

063 

003 

165 

,106 

164 

:2gi 

090 

144 

014 

189 

,068 

174 

:003 

20B 

003 

2  54 

071 

003 

016 

1 169 

180 

229 

106 

176 

,008 

092 

:189 

068 

003 

157 

071 

,003 

233 

1165 

106 

010 

133 

106 

,168 

180 

!l85 

231 

139 

157 

067 

,003 

024 

il85 

232 

139 

J57 

066 

003 

030 

1056 

169 

180 

229 

106 

168 

162 

!ie5 

231 

139 

157 

070 

003, 

045 

ilBS 

232 

139 

157 

069 

003 

051 

:096 

133 

039 

132 

090 

169, 

237 

;000 

133 

091 

133 

092 

162, 

145 

!ai7 

024 

102 

092 

102 

091, 

224 

:102 

090 

102 

089, 

144 

013, 

086 

!024 

165 

037 

101, 

091 

133, 

153 

:091 

165, 

088 

101, 

092 

133, 

228 

:092 

202, 

203, 

230, 

096 

032, 

168 

:041, 

141, 

006, 

090, 

038 

091, 

233 

:038, 

092, 

006, 

090, 

038 

091, 

187 

:038, 

092, 

165, 

091, 

164 

092, 

224 

:09e. 

173, 

084, 

003, 

172 

085, 

201 

:003, 

162, 

000, 

032, 

189 

140, 

120 

:173, 

086, 

003, 

172, 

087 

003, 

124 

:162, 

006, 

032, 

189, 

140 

173, 

052 

:088, 

003, 

172, 

089, 

003, 

162, 

129 

:012, 

032, 

189, 

140, 

173, 

083, 

247 

1003, 

077, 

068, 

003, 

141, 

105, 

021 

36238 
36244 
36250 
36256 
36262 
36268 
36274 
36280 
36286 
36292 
36298 
36304 
36310 
36316 
36322 
36328 
36334 
36340 
36346 
36352 
36358 
36364 
36370 
36376 
36382 
36388 
36394 
36400 
36406 
36412 
36418 
36424 
36430 
36436 
36442 
36448 
36454 
36460 
36466 
36472 
36478 
36484 
36490 
36496 
36502 
36508 
36514 
36520 
36526 
36532 
36538 
36544 
36550 
36556 
36562 
36568 
36574 
36580 
36536 
36592 
36598 
36604 
36610 
36616 
36622 
36628 
36634 
36640 
36646 
36652 
36658 
36664 
36670 
36676 
36682 
36688 
36694 
36700 
36706 
36712 
36718 
36724 
36730 
36736 
36742 
36748 
36754 
36760 
36766 
36772 
36773 


: 003, 173, 081, 003, 133, 087,  110 

:-17  3,0e2,003 

133 

088, 

173 

032 

:066,003,172 

067 

003, 

032 

241 

1081,141,141 

103 

003, 

140 

001 

! 104, 003, 173 

083 

003, 

877 

097 

:071,003,141 

108 

003, 

173 

159 

1069,003,172 

070 

003, 

032 

015 

:0ei,141, 141 

106 

003 

140 

028 

:107,003,173 

083 

003 

077 

124 

:077,003,073 

001 

141 

120 

099 

:003,173,075 

003 

172 

076 

192 

;003,032,081 

141 

141 

118 

212 

:003,140,119 

003 

173 

074 

214 

:003,077,108 

003 

141 

114 

154 

:003, 173,072 

003 

133 

087 

135 

!l73,073,0B3 

133 

088 

173 

107 

(106,003,172 

107 

003 

032 

149 

:0ai,14J ,174 

114 

003 

208 

197 

1008,141,112 

003 

140 

113 

255 

:003,240,015 

056 

169 

000 

227 

1229,091,141 

112 

003 

169 

239 

=000,229,092 

141 

113 

003 

078 

:173,074,003 

077 

105 

00  3 

197 

-.073,001,141 

117 

003 

173 

020 

:103,003,  172 

104 

003 

032 

191 

;031, 141, 174 

117 

003 

203 

248 

1003,141,115 

003 

140 

116 

053 

:003,240,015 

056 

169 

000 

019 

:229,09l,141 

115 

003 

169 

034 

=000,229,092 

141 

116 

003 

129 

sl74,105,003 

240 

017 

056 

149 

:169,000,237 

103 

003 

J41 

213 

!l03,003,169 

000 

237 

104 

182 

:003,141,104 

003 

174 

108 

105 

!003,240,017 

056 

169 

000 

063 

:237,106,003 

141 

106 

003 

180 

;169,000,237 

107 

003 

141 

247 

1107,003,173 

080 

003 

077 

039 

2068,003,073 

001 

141 

114 

002 

:003,173,078 

003 

133 

087 

085 

:173,079,003 

133 

088 

173 

007 

:066,003,172 

067 

003 

03  2 

219 

1081,141,174 

114 

003 

208 

091 

!021,024,109 

112 

003 

141 

042 

:112,003,152 

109 

113 

003 

130 

:141,113,003 

016 

046 

238 

201 

:114,003,016 

024 

056 

173 

036 

:112,0B3,229 

091 

141 

1)2 

088 

!003,173,113 

003 

229 

092 

019 

:141,113,003 

048 

005 

205 

184 

;1M,003,016 

017 

056 

169 

049 

:000,237,]12 

003 

141 

112 

029 

:003,169,000 

237 

113 

003 

211 

:14J  ,113,003 

173 

080 

003 

205 

:077,071,003 

,073 

001 

141 

064 

tl]7,003,173 

,069 

003 

172 

241 

5070,003,032 

,081 

141 

174 

211 

!ll7,003,208 

021 

024 

109 

198 

!ll5,003,141 

,115 

003 

152 

251 

!l09, 116,003 

,141 

116 

003 

216 

:016,046,238 

,117 

003 

016 

170 

:024,056,]73 

115 

003 

229 

084 

:091,141,115 

,003 

173 

116 

129 

:003,229,092 

141 

116 

003 

080 

=  048,005,206 

,117 

003 

016 

153 

1017,056,169 

000 

237 

115 

102 

=003,141,115 

003 

169 

000 

201 

=237,116,003 

141 

116 

003 

136 

=173,080,003 

077 

077 

003 

195 

=073,001,141 

111 

003 

173 

034 

1075,003,172 

076 

003 

032 

155 

=081,141,141 

109 

003 

140 

159 

1110,003,173 

072 

003 

172 

083 

=073,003,032 

081 

141 

133 

019 

=087,132,088 

173 

080 

003 

125 

=077,074,003 

077 

071 

003 

129 

=141,105,003 

173 

069 

003 

068 

=172,070,003 

032 

081 

141 

079 

=3  74,105,003 

208 

021 

024 

121 

=109, 103,003 

141 

103 

003 

054 

=152,109,104 

003 

141 

104 

211 

=003,016,046 

238 

105, 

003 

015 

=016,024,056 

,173 

103 

,003 

241 

=229,091 ,}41 

103 

003 

173 

ISO 

=104,003,229 

092 

141 

104 

039 

=003,048,005 

206 

135 

003 

254 

=016,017,056 

169 

000 

237 

129 

=103,003, 141 

103 

003 

169 

162 

=000,237,104 

003 

141 

104 

235 

=  003,173,080, 

003 

077, 

074 

062 

=  003,077,068, 

003 

073, 

001 

139 

36784 
36790 
36796 
36802 
36808 
36814 
36820 
36826 
36832 
36838 
36844 
36850 
36856 
36862 
36863 
36874 
36880 
36886 
36892 
36893 
36904 
36910 
36916 
36922 
36928 
36934 
36940 
36946 
36952 
36958 
36964 
36970 
36976 
36982 
36988 
36994 
37000 
37006 
37012 
37018 
37024 
37030 
37036 
37042 
37048 
37054 
37060 
37066 
37072 
37078 
37084 
37090 
3  7096 
37102 
37108 
37114 
37120 
37126 
37132 
37138 
37144 
37150 
37156 
37162 
37168 
37174 
37130 
3  7186 
37192 
37198 
37204 
37210 
37216 
37222 
37223 
37234 
37240 
37246 
37252 
37258 
37264 
37270 
37276 
37282 
37288 
37294 
37300 
37306 
37312 
37318 
37324 


:141 
:172 
=  174 
:109 
:152 
1003 
1016 
:229 
;107 
;003 
:016 
106 
:000 
;003 
:  105 
;003 
;133 
;091 
:091 
:006 
;013 
:133 
;  133 
:10e 
!003 
:1  33 
1094 
:091 
=  013 
:152 
;  115 

!091 

:092 
;077 
=  109 

!003 

:172 
;  165 
;208 
:03B 
;016 
1056 
=  038 
:039 
[013 
:133 
:  133 
:165 
=  003 
;165 
=  133 
=  000 
=  208 
=  101 
=  144 
=  090 
;077 
=  112 
=  003 
=  172 
=  165 
=  208 
=  240 

!091 

=  392 
=  077 
=  115 
=  003 
=  172 
=  165 
=  238 
1040 
;076 
I  229 
=  229 
:003 
:173 
:119 
=  003 
;141 
:  105 
:  133 
:041 
:019 
1)33 
133 
016 
040 
i041 
087 
101 


,  108 
,067 
,  108 
,106 
,109 
,016 
,024 
,091 
,003 
,048 
,01  7 
,003 
,237 
,096 
,003 
,  133 
,088 
,003 
,  164 
,133 
,056 
,038 
,  039 
,003 
,133 
,088 
,003 
,164 
,024 
,  101 
,  144 
,  133 
,  133 
,  111 
,003 
,133 
,097 
,091 
,016 
,  152 
,036 
,165 
,  165 
,048 
,056 
,038 
,039 
,039 
,  160 
,090 
,088 
,032 
,011 
,090 
,056 
,133 
,  114 
,003 
,  133 
,091 
,091 
,006 
,  013 
,133 
,133 
,117 
,003 
,133 
,  094 
,  091 
,013 
,  152 
,112 
,091 
,092 
,077 
,  118 
,003 
,  172 
,165 
,208 
,040 
,016 
,056 
,040 
,041 
,013 
,133 
133 
,165 
,  003 


,003 
,003 
,003 
,  003 
,  107 
,046 
,056 
,141 
,229 
,005 
,056 
,141 
,  107 
,  173 
,  133 
,087 
,  173 
,032 
,092 
,033 
,  169 
,  169 
,  173 
,133 
,  087 
,173 
,332 
092 
,  101 
,039 
,056 
,  038 
,039 
,003 
,  133 
,  03B 
,003 
,  164 
,024 
,101 
,  230 
,038 
,03  9 
,004 
,  169 
,  169 
,165 
,133 
,  000 
,133 
,  173 
,041 
,024 
,  133 
,  173 
,038 
,003 
,133 
,038 
,003 
,  164 
,133 
,056 
,040 
,041 
,003 
,133 
,088 
,003 
,  164 
,024 
,101 
,145 
,133 
,  133 
,120 
,003 
,133 
,097 
,091 
,016 
,152 
,336 
,165 
,  165 
,  043 
,056 
,340 
,041 
,041 
,  160 


,  173 
,032 
,238 
,  141 
,003 
,238 
,  173 
,  106 
,092 
,206 
,169 
,136 
,003 
,092 
,135 
,173 
,090 
,041 
,166 
,132 
,000 
,000 
,095 
,105 
,  173 
,093 
,041 
,166 
,038 
,133 
,  165 
,165 
,173 
,  133 
,  087 
,173 
,032 
,092 
,101 
,039 
,105 
,229 
,  229 
,198 
,000 
,000 
,038 
,063 
,032 
,087 
,102 
,141 
,173 
,03B 
,099 
,173 
,  133 
,087 
,173 
,032 
,092 
,040 
,169 
,169 
,173 
,133 
,087 
,173 
,032 
,092 
,  101 
,041 
,056 
,040 
,041 
,003 
,133 
,088 
,003 
,164 
,024 
,  101 
,  230 
,040 
,041 
,004 
,  169 
,169 
,  165 
,133 
,000 


,066 
,031 
,021 
,  106 
,  141 
,108 
,106 
,  003 
,  141 
,108 
,  000 
,003 
,  141 
,003 
,  173 
,  104 
,003 
,  141 
,  105 
,039 
,229 
,229 
,003 
,  173 
,  107 
,003 
,141 
,105 
,  133 
,039 
,038 
,039 
,098 
,105 
,173 
,096 
,041 
,166 
,038 
,133 
,016 
,091 
,092 
,105 
,  229 
,229 
,133 
,173 
,041 
,165 
,003 
,165 
,099 
,076 
,003 
,092 
,105 
,173 
,090 
,  041 
,  166 
,132 
,000 
,  000 
,  095 
,  105 
,  173 
,093 
,041 
,166 
,040 
,  133 
,  165 
,165 
,173 
,133 
,087 
,173 
,032 
,092 
,  101 
,  041 
,  105 
,229 
,229 
,198 
,000 
,000 
,  040 

,08a 

,032 


,003, 
,141, 
,  024, 
,003, 
,107, 
,003, 
,003, 
,173, 
,  107, 
,003, 
,237, 
,169, 
,107, 
,077, 
,103, 
,003, 
,172, 
,165, 
,208, 
,  240, 
,091, 
,092, 
,077, 
,  106, 
,  003, 
,172, 
,165, 
,208, 
,038, 
,076, 
,229, 
,229, 
,903, 
,173, 
,110, 
,003, 
,141, 
,105, 
,133, 
,039, 
,019, 
,133, 
,133, 
,016, 
,033, 
,039, 
,087, 
,  101, 
,141, 
,091, 
,160, 
,105, 
,003, 
,253, 
,229, 
,003, 
,173, 
,113, 
,  003, 
,  141, 
,  105, 
,041, 
,  229, 
,229, 
,003, 
,  173, 
,116, 
,  003, 
,  141, 
,105, 
,  133, 
,041, 
,040, 
,041, 
,098, 
,105, 
,  173, 
,096, 
,041, 
,166, 
,040, 
,133, 
,316, 
,091, 
,092, 
,105, 
,229, 
,229, 
,133, 
,173, 
,041  , 
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37330 
37336 
37342 
37348 
37354 
37360 
37366 
37372 
37378 
37384 
37390 
37396 
37402 
37408 
37414 
37420 
37426 
37432 
37438 
37444 
37450 
37456 
37462 
37468 
37474 
37430 
37486 
37492 
3749S 
37504 
37510 
37516 
37522 
37528 
37534 
37S40 
37546 
37552 
37358 
37564 
37570 
37576 
37582 
37S88 
37594 
37600 
37606 
376)2 
37618 
37624 
37630 
37636 
37642 
37648 
37654 
37660 
37666 
37672 
3767B 
37684 
37690 
37696 
37702 
37708 
377J4 
37720 
37726 
37732 
37738 
37744 
37750 
37756 
37762 
37768 
37774 
37780 
37786 
37792 
37798 
37804 
37810 
37816 
37822 
37828 
37834 
37840 
37846 
37852 
37858 
37864 


14) 

165 

105 

208 

011 

024 

096 

)73 

)00 

003 

101 

090 

133 

048 

040 

076 

234 

145 

056 

173 

178 

100 

003 

229 

090 

133 

040 

055 

169 

159 

197 

038 

176 

002 

207 

133 

038 

169 

199 

197 

040 

248 

176 

002 

133 

040 

096 

173 

093 

084 

003 

172 

085 

003 

162 

249 

000 

032 

189 

140 

173 

036 

110 

003 

172 

087 

003 

162 

006 

185 

032 

189 

140 

173 

08B 

003 

127 

172 

089 

003 

162 

312 

032 

234 

189 

140 

173 

077 

003 

077 

173 

080 

003 

141 

126 

003 

173 

046 

075 

003 

133 

087 

173 

076 

073 

003 

133 

088 

173 

078 

003 

010 

172 

079 

003 

032 

081 

141 

046 

141 

)24 

003 

140 

125 

003 

030 

173 

077 

003 

077 

068 

003 

207 

141 

129 

003 

173 

066 

003 

071 

172 

067 

003 

032 

081 

141 

053 

141 

127 

003 

140 

128 

003 

110 

173 

077 

003 

077 

083 

003 

246 

141 

138 

003 

173 

081 

003 

119 

172 

082 

003 

032 

081 

141 

097 

141 

136 

003 

140 

137 

003 

152 

173 

074 

003 

073 

001 

141 

063 

132 

003 

173 

072 

003 

141 

128 

130 

003 

173 

073 

003 

141 

133 

131 

003 

173 

071 

003 

077 

074 

080 

003 

073 

001 

141 

135 

055 

003 

173 

069 

003 

133 

087 

096 

173 

070 

003 

133 

088 

173 

018 

078 

003" 

172 

079 

003 

032 

807 

081 

141 

141 

133 

003 

140 

029 

134 

003 

173 

071 

003 

077 

113 

083 

003 

141 

123 

003 

173 

134 

081 

003 

)72 

082 

003 

032 

037 

081 

141 

174 

123 

003 

208 

144 

008 

141 

121 

003 

140 

122 

211 

003 

240 

015 

056 

169 

000 

165 

229 

091 

141 

121 

003 

169 

186 

000 

229 

092 

141 

122 

003 

025 

173 

068 

003 

077 

074 

003 

093 

077 

080 

003 

141 

123 

003 

133 

)73 

066 

003 

133 

087 

173 

091 

067 

003 

133 

088 

173 

072 

254 

003 

172 

073 

003 

032 

081 

038 

141 

133 

087 

132 

088 

173 

228 

078 

003 

172 

079 

003 

032 

103 

081 

141 

174 

123 

003 

208 

216 

021 

024 

109 

121 

003 

141 

167 

121 

003 

152 

109 

122 

003 

008 

)41 

122 

003 

03  6 

046 

238 

070 

123 

003 

016 

024 

056 

173 

161 

121 

003 

229 

091 

141 

121 

222 

003 

173 

122 

003 

229 

092 

144 

141 

122 

003 

048 

005 

206 

053 

123 

003 

016 

017 

056 

169 

174 

000 

237 

121 

003 

141 

121 

163 

003 

169 

000 

237 

122 

003 

080 

141 

122 

003 

159 

000 

133 

120 

106 

032 

002 

148 

173 

139 

158 

003 

141 

147 

003 

173 

140 

171 

003 

141 

148 

003 

173 

141 

179 

003 

141 

149 

003 

173 

142 

137 

003 

141 

150 

003 

173 

143 

195 

003 

141 

151 

003 

173 

144 

203 

003 

)41 

152 

003 

173 

145 

211 

003 

141 

153 

003 

)73 

146 

219 

003 

141 

154 

003 

024 

165 

096 

105 

105 

010 

133 

106 

032 

104 

002 

148 

173 

147 

003 

133 

224 

251 

173 

148 

003 

133 

252 

072 

173 

139 

003 

141 

147 

003 

236 

)33 

253 

173 

140 

003 

141 

223 

148 

003 

133 

254 

032 

242 

198 

138 

173 

149 

003 

133 

251 

239 

173 

150 

003 

133 

252 

173 

026 

141 

003 

141 

149 

003 

133 

230 

253 

173 

142 

003 

141 

150 

016 

003 

133 

254 

032 

242 

138 

218 

173 

151 

003 

133 

251 

173 

050 

152 

003 

133 

252 

173 

143 

028 

003 

141 

151 

003 

133 

253 

lie 

173 

144 

003 

141 

152 

003 

056 

133 

254 

032 

242 

138 

173 

162 

153 

003 

133 

251 

173 

154 

063 

003 

133 

252 

173 

145 

003 

167 

141 

153 

003 

133 

253 

173 

064 

37870 
37876 
37882 
37888 
37894 
37900 
37906 
37912 
379)8 
37924 
37930 
37936 
37942 
37948 
37954 
37960 
37966 
37972 
37973 
37934 
37990 
37996 
3B002 
3S008 
38014 
33020 
33026 
33032 
33038 
38044 
38050 
38056 
33062 
33068 
38074 
38080 
38086 
38092 
38098 
38104 
38U0 
33116 
33122 
38128 
38134 
38)40 
38146 
38152 
33158 
38164 
33170 
33176 
38182 
38188 
38194 
38200 
38206 
38212 
38213 
38224 
38230 
33236 
38242 
38243 
38254 
38260 
38266 
38272 
33273 
38284 
38290 
38296 
38302 
38308 
33314 
38320 
38326 
38332 
38338 
38344 
33350 
38356 
38362 
38368 
38374 
38380 
38386 
38392 
38398 
33404 


:146,003 
:254,032 
:201,090 
:147,096 
:106,032 
! 003, 141 
!003,172 
!l41 , 14! 
:003,173 
: 003, 173 
:003,032 
:0a3,140 
:003,141 
:003, 172 
:141,  141 
:003, 165 
;173,126 
:173,124 
!032,0ei 
:140,070 
;141,077 
:172,131 
:)41,075 
:173, 133 
:173,136 
: 032, 081 
rl40,032 
:165,033 
:  040,  141 
: 003, 073 
:173,a77 
:077,003 
;001,141 
:149,165 
: 165, 040 
:068,003 
:003, 173 
: 141, 074 
:073,001 
;010,149 
: 003, 165 
:173,a71 
:071,003 
:001, 141 
: 003, 073 
1032,010 
:143,003 
: 003, 096 
:  090,003 
:091,003 
:017,056 
:003,141 
i237,091 
: 173, 071 
: 208, 026 
:109,090 
!l73,070 
:141,091 
:092,003 
: 090, 003 
;090, 003 
! 070, 003 
i 005, 206 
i056, 169 
:141,090 
; 091, 003 
1072,003 
!073,003 
;074,003 
i000,237 
;003,169 
;141,094 
1141,095 
:173,075 
; 141, 093 
;109,094 
:016,043 
1026,056 
075,003 
;  094, 003 
;  094, 003 
1003,016 
237,093 
il69,000 
094,003 
096,003 
097, 003 
017,056 
003,141 
237,097 


141,154 
242, 133 
240,003 
056, 169 
066, 151 
068,003 
122,003 
066,003 
129,003 
127,003 
081,141 
073,003 
080,003 
134,003 
078,003 
106,032 
003, 141 
003, )72 
141,14) 
003,173 
003,173 
003,032 
003,140 
003,141 
003,172 
141 , 141 
003,032 
14) ,139 
140,003 
00)  ,  141 
003,073 
173,083 
083,003 
038,141 
141,142 
073,001 
074,003 
003,173 
141,080 
165,038 
040, 141 
003,073 
173,077 
077,003 
001,141 
149,165 
165,040 
)73,066 
173,067 
173,068 
169,000 
090, 003 
003,141 
003,141 
024, 173 
003, 141 
003,109 
003,016 
016,026 
237,069 
173,091 
141,091 
092,003 
000,237 
003,169 
141,091 
141,093 
141,094 
240,017 
093,003 
000,237 
003, 173 
003,<S08 
003,109 
003,173 
003,141 
238.095 
173,093 
141,093 
237,076 
048,005 
017,056 
003, 141 
237,094 
173,078 
173,079 
173,080 
169,000 
096,003 
003, 141 


,003, 133,050 

,165,106,157 

,076,122,214 

,090, 229,019 

,173, 123,145 

,173, 121,009 

,032,081,175 

,140,067,070 

,141, 074,041 

,172, )2B, )30 

,141,072,000 

, 173, 135,063 

,173,133,075 

,032,081,229 

,140,079, 136 

,066,  )5)  ,083 

,071,003,083 

, 125,003, )72 

,069,003,045 

,132,003,105 

,  130,003,1)7 

,081,14)  ,156 

,076,003,040 

,033,003, 149 

,137,003,238 

,081,003,099 

,010,149,042 

,003, 165,027 

,173,071,206 

,071,003,  )92 

,001,141,118 

,003,073,063 

,032,010, 183 

,141,003,049 

,003,  173,082 

, 141,068,034 

,073,001,013 

,030,003,  166 

,003,032,023 

, )4] , )45,096 

,146,003,208 

,001 ,141,178 

,003,073,122 

, 173,083,206 

,033,003,038 

,038,  141,019 

, 141, 144, 126 

, 003, 141, 234 

,003,141,235 

,003,240,086 

,  237,090,083 

, 169,000, 182 

,091, 003,092 

,092,003,015 

,069,003,041 

,090,003, 236 

,091,003,255 

,048, 238,093 

,056,173,184 

,003, 141,  111 

,003,237,171 

,003,048,  192 

,016,017,181 

,090,003,147 

,000,237,238 

,003, 173,  106 

,003,173,095 

,003,173,103 

,056,169,181 

, 141,093, 195 

,094,003,140 

,077,003,131 

,026,024,  143 

,093,003,108 

,076,003,147 

,094,003,108 

,003,016,036 

,003,237,008 

,003,173,170 

,003,141,242 

,206,095,145 

,169,000,217 

,093,003,020 

,003, 141, 100 

,003,141,210 

,003, 141, 219 

,003,240,070 

,237,096,055 

,169,000,154 

,097,003,070 


38410  ! 173, 083, 003, 141, 098, 003,  255 
36416  : 208, 026, 024, 173, 031, 003, 01 9 
38422  : 109, 096, 003, 141, 096, 003, 214 
38428  : 173, 082, 003, 109, 097, 003, 239 
38434  ! 141, 097, 003, 016, 048, 238,  065 
38440  =098,003,016,026,056,173,156 
38446  : 096, 003, 2 37, 081, 003, 141, 095 
38452  1096,003, 173,097,003, 237,149 
38458  :082,003,141,097,003,04a, 176 
38464  : 005, 206, 098, 003, 01 6, 01 7, 153 
33470  : 056, 169, 000, 237, 096, 003, 119 
38476  : 141, 096, 003, 169, 000, 237, 210 

38482  : 097, 003, 141, 097, 003, 173,  084 

38483  : 161, 003, 133, 087, 173, 162, 039 
38494  :003, 13  3,088, 17  3,090,003,072 
38500  : 172, 091, 003, 032, 081, 141, 108 
38506  : 173, 092, 003, 240, 01 3, 056, 171 
38512  : 169, 000, 229, 091, 133, 091, 057 
38518  ! 169, 000, 2 29, 092, 133, 092, 065 
38524  : 024, 165, 091, 109, 155, 003, 159 
38530  =141,090,003, 165,092, 109, 218 
38536  : 156, 003, 141, 091, 003, 169,187 
38542  : 000, 141, 092, 003, 173, 091, 130 
38548  : 003, 0) 6, 020, 238, 092, 003, 008 
38554  : 056,) 69, 000, 2  37, 090, 003, 197 
38560  : 141,090,003, 169,000, 23  7,032 
38566  :091, 003, 141, 091, 003, 173, 156 
38572  : 093, 003, 172, 094, 003, 032, 057 
38578  ! 081, 141, 173,095,003,240,143 
38534  :0) 3,056, 169,000, 229,091, 230 
38590  : 133, 091, 169, 000, 229, 092, 136 
3B596  : 133, 092, 024, 165,091,109,042 
38602  : 157, 003, 141, 093, 003, 165, 252 
38608  : 092, 109, 158, 003, 141, 094, 03 7 
38614  =003,169,000,141,095,003,113 
33620  : 173, 094, 003, 016,020, 238, 252 
38626  =095,003,056,169,000, 237,013 
38632  =093,003, 141,093,003, 169, 222 
38638  =000,237,094,003,141,094,039 
38644  =003, 173,096,003, 172,097,020 
38650  =003,03  2,081,141,17  3,098,010 
38656  =003, 240, 013,056, 169, 000, 22  5 
38662  =229,091,133,091,169,000,207 
3866B  =229,092, 133,092,024, 165, 23  5 
38674  =091,109,159,003,141,096,105 
38680  =003, 165,092,109, 160,003,044 
38686  =141,097,003,169,000,141,069 

38692  =098, 003, 173,097,003,016,  170 

38693  =020, 2  38,098,003,056,169, 114 
38704  : 000, 23  7,096, 003, 141 , 096, 109 
33710  =003,169,000,237,097,003,051 
38716  =141, 097, 003, 076, 000, 144,009 
38722  :010, 168, 185, 231, 139, 133, 164 
38728  =038,135,232,139,133,087,168 
38734  =096,032,02  7,134,201,001,057 
38740  =208,047,173, 164,003,240,151 
38746  =003,076,053,164,238,165,021 
38752  =003,169,119,205,165,003,243 
387  53  =203,003,238,164,003,173,12  3 
33764  =170, 003, 172, 171,003,032, 147 
38770  =231,151,173,170,003,105,179 
38776  =011,141,170,003,173,171,021 
33782  =003,105,000,141,171,003,037 
38788  =096,201,002,208,047,173,091 
33794  =166,003,240,003,076,053,167 
38800  =164, 238,167,003, 169,080,197 
38306  =205,167,003, 208,003,238, 206 
38812  =166,003, 173, 172,003,172,077 
38818  =173,003,032,231,151,173,157 
33824  =172,003,105,011,141,172,004 
38830  =003,173,173,003,105,000,119 
38836  =141,173,003,096,173,168,166 
38842  =003,240,003,076,053,164,213 
38348  =238, 169,003, 169,030, 205,032 
33854  =169,003,208,003,2  38,168,219 
38360  =003,173,174,003, 172,175,136 
38366  =003,032,2  31, 151, 173, 174,206 
38372  =003, 105,011,141,174,003,141 
38378  =173,17  5,003,105,000,141,051 
38884  =175,003,096, 133,029,132,028 
38890  : 030, 032, 024, 134, 032, 041, 015 
38896  =134,160,002,138,145,029,030 
38902  =136, 165, 100, 145, 029,136, 189 
30908  =165,101,145,029,032,024,236 
38914  =134,032, 041, 1 34 , 160, 005 , 2  52 
38920  = 133, 145, 029, ) 36, 165, 100, 209 
38926  =145,029,136,165,101,145,223 
38932  =029,032,024, 134,032,041,056 
38938  =134,160,008,138,145,029,128 
38944    =136,165, 100, 145,029,136, 231 
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33953 
38956 
38962 
38968 
38974 
38980 
38986 
38992 
38993 
39094 
39010 
39016 
39322 
39028 
39034 
39040 
39046 
39052 
39058 
39064 
39070 
39076 
39082 
39088 
39094 
39100 
39106 
39112 
39118 
39124 
39130 
39136 
39142 
39148 
39154 
39160 
39166 
39172 
39178 
39134 
39190 
39196 
39202 
3920B 
39214 
39220 
39226 
39232 
3923B 
39244 
39250 
39256 
39262 
39268 
39274 
39280 
39286 
39292 
39298 
39304 
39310 
39316 
39322 
39328 
39334 
39340 
39346 
39352 
393  58 
39364 
39370 
39376 


;165 
!l34 
:024 
:024 
:001 
l208 
;165 
1000 
;030 
;208 
;003 
:003 
;133 
r076 
:208 
I  169 
1 141 
1030 
:090 

!091 

1092 
i093 
;094 
;095 
;096 
;097 
!098 
;065 
:021 
:133 
il33 
!l38 
I  144 
:040 
:20e 
;165 
;165 
1076 
;134 
1000 
:003 
;141 
I  208 
1003 
:141 
i)73 

lies 

;141 
il41 
:220 
:020 
;009 
:230 
;]41 
il73 
i203 
I  183 
;201 
:160 
1006 
il53 
;23S 
:198 
;16S 
:169 
:000 
a33 
;067 
;048 
:069 
000 
078 


,101 

145 

029 

032 

024, 

,160 

009 

145 

029 

032, 

,134 

160 

010 

145 

029, 

,096 

032 

027 

134 

201, 

,208 

025 

173 

165 

003, 

,003 

076 

053 

164 

173, 

,003 

141 

176 

003 

169, 

,  133 

029 

169 

192 

133, 

,076 

141 

152 

201 

002, 

,025 

173 

167 

003 

208, 

,076 

0S3 

164 

173 

167, 

,141 

176 

003 

169 

029, 

,029 

169 

197 

133 

030, 

,141 

152 

173 

169 

003, 

,003 

076 

053 

164 

173, 

,003 

141 

176 

003 

169, 

,133 

029 

169 

200 

133, 

,160 

000 

177 

029 

141, 

,003 

200 

177 

029 

141, 

,003 

200 

177 

029 

141, 

,003 

200 

177 

029 

141, 

,003 

200 

)77 

029 

141, 

,003 

200 

177 

029 

141, 

,003 

200 

177 

029 

141, 

,003 

200 

177 

029 

141, 

,003 

200, 

177 

029 

141, 

,003 

200, 

177 

029 

141, 

,003 

200, 

177 

0Jy, 

233, 

,032 

000, 

144 

165, 

033, 

,251 

133, 

025 

165 

040, 

,252 

133 

026 

032 

108, 

,076 

242 

152 

032 

000, 

,165 

038, 

133 

253 

165, 

,133 

254 

032 

242 

138, 

,176 

003 

240 

016 

024, 

,029 

105 

011 

133 

029, 

,030 

105 

000 

133 

030, 

,141 

152 

096 

032 

027, 

,201 

001, 

208 

017 

169, 

,141 

164, 

003 

141 

165, 

,141 

170, 

003 

169 

192, 

,171 

003, 

096 

201 

002, 

,019 

169 

000 

141 

166, 

,141 

167, 

003 

169 

029, 

,172 

003 

169 

197 

141, 

,003 

096 

169 

000 

141, 

,003 

141 

169 

003 

169, 

,141 

174 

003 

169 

200, 

,175 

003 

096 

173 

003, 

,240 

027 

165 

198 

208, 

,164 

190 

177 

195 

240, 

,141 

119 

002 

230 

198, 

,190 

208 

005 

169 

000, 

,003 

220 

076 

066 

235, 

,141 

002 

20B 

035 

165, 

,201 

004 

208 

007 

169, 

,160 

153 

076 

149 

153, 

,005 

208 

007 

169 

193, 

,153 

076 

149 

153 

201, 

,208 

007 

169 

203 

160, 

,076 

149 

153 

076 

072, 

,133 

195 

132 

196 

165, 

,20B 

023 

032 

072 

235, 

,198 

240 

016 

198 

198, 

,016 

141 

003 

220 

169, 

,141 

001 

220 

169 

000, 

,190 

076 

066 

235 

083, 

,082 

069, 

069 

078, 

032, 

,013 

000, 

083 

067, 

082, 

,069 

078, 

032 

049, 

013, 

,083 

067, 

082 

069, 

069, 

,03  2 

050, 

013 

000, 

013, 

,022 
,041 
,040 
,058 
,125 
,233 
,219 
,224 
,176 
,108 
,222 
,113 
,033 
,062 
,031 
,021 
,171 
,165 
,018 
,025 
,032 
,039 
,046 
,053 
,060 
,067 
,074 
,114 
,094 
,  191 
.134 
,096 
,104 
,051 
,139 
,208 
,205 
,016 
,228 
,  118 
,188 
,  130 
,225 
,040 
,101 
,122 
,  199 
,  124 
,149 
,110 
,044 
,019 
,128 
,073 
,062 
,  136 
,224 
,  139 
,254 
,121 
,053 
,  i80 
,154 
,151 
,  116 
,191 
,193 
,069 
,227 
,250 
,060 
,138 


Program  2:  Complex  Ani- 
mation Demo 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  published  bimonthly  In  COMPUTEf. 

10  REM  SET  FIGURE  I     irem  3  6 

20  FCLEAR  1  I  rem  64 

30  FOR  1=1  TO  33  :  READ  X,Y,Z, 

CO, A  :rem  238 


40  F3ET  l,X*50a, Y*500,S*500,CO 

,A  :rem  190 

50  NEXT  I  :rem  237 

60  REM  SET  FIGURE  2     : rem  42 

70  FCLEAR  2  : RESTORE   : rem  164 

80  FOR  1=1  TO  33  :  READ  X,Y,Z, 

CO, A  :rem  243 

90  FSET  2,  Y*500,  X*500,-Z*500 

,4-C0,A  :rem  32 

100  NEXT  I  :rem  25 

110  REM {3  SPACES 3 ANIMATION  OF 

{SPACElTHE  CROSS    : rem  22 
120  A-=]  :D  =  2:C  =  3  :  rem  26 

130  PARAM  80,100,25,165 

:rern  133 
140  COLOR  12,11, 10,13,14 

:rein  179 
150  FORJ=10TO5OSTEP10  :rem  10 
160  FORI=i0TO80STEP10  :rera  13 
170  ANGLEI,J,l{4  SPACES j : ANIHl 
:FIGURE] :FIGURE2  : rem  30 
180  ANGLEI+5, J, I+5:ANIM2:FIGUR 

El :FIGURE2         : rem  224 
190  NEXTI.J  irem  152 

200  FORI=]TO2O00:NEXT  :rem  14 
210  SCREES0;REM  NORHAL:rem  106 
220  END  :rem  107 

2  30  REM  CO-ORDINATES  OP  THE  CR 

OSS  :rem  225 

240  DATA  -1,-1,-1,1,0,-1,-4,-1 

,1,1,-1,-4,-3,1,1  ;rem  147 
250  DATA  -1,4,-3,1,1,-1,4,-1,1 

,1,1,4,-1,1,1,1,4  :rem  161 
260  DATA  -3,1,1,1,-4,-3,1,1,1, 

-4,-1,1,], ) ,-1,-1 ,1 

:rem  248 
270  DATA  1,-1,-4,-1,1,0,1,-4,- 

1,1,1,-1,-4,-3, 1,0: rem  200 
280  DATA  1,-4,-3,1,1,-1,4,-3,1 

,0,1,4,-3,1,1,1,1  : rem  164 
290  DATA  -1,1,0,  1,4,-)  ,  1,  1, -1, 

J ,-1, 1,0,-1,4,-1,1 :rem  200 
300  DATA  1,-1,-1,-1,2,0,1,-1,- 

1,2, 1, ] ,-1,-2,2, 1  :rem  143 
310  DATA  -1,-1,-2,2,1,-1,1,-2, 

2,  1,-1  ,1,-1,2,  1,  1,  1 

:rem  239 
320  DATA  -1,2,1,1,1,-2,2,1,1,- 

1,-2,2,3,1,1,-2, 2,0 

:rem  244 
330  DATA  -1,1,-2,2,1,-1,-1,-1, 

2,0,-1  ,-1,-2,  2,  1    :rem  99 


Program  3:  Observation 
Angles  Demo 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  published  bimonthly  in  ccMPUTEi, 

10  PARAM  80,100,30,165  :rem  7S 
20  COLOR  12,11,10,13,14 

irem  128 
30  FORJ=5TO3  55STEP10  :rem  227 
40  FORI=0TO340STEP20  : rem  217 
50  ANGLE  J, I, I [6  SPACES ) :ANIM2 
:GOSUB100  :rem  220 

60  ANGLE  J,I+10,I+10:ANIM1:GOS 
UB100  : rem  244 

70  NEXTI.J  :rem  101 

80  FORI=1TOS00:NEXT  srem  1S3 
90  SCREEN0SSND  : rem  106 

100  DLINE-500, 0,0, 2000,0,0, 1 

:rem  122 
110  DLINE0, -500, 0,0, 2000,0, 2 

;rem  J  24 
120  DLINE0,a,-500,0,0,2000,3 

:rem  126 
130   RETURN  .-rem   116  rt 


IBM 

Graphics 

On  A 

Monochrome 

Monitor 

Thomas  G.  Honlin  111 


Though  advanced  IBM  graphics  re- 
quire a  color /graphics  adapter,  you 
can  create  simple  graphics  and  even 
animation  on  a  monochrome  system 
as  well.  Here's  a  short  program  to 
show  how  it's  done. 


IBM  PC  computers  can  generate 
stunning  graphics,  but  advanced 
BASIC  graphics  features  are  avail- 
able only  on  PCjrs  or  PCs  with  a 
color/graphics  adapter.  However, 
with  the  right  programming  meth- 
ods, your  monochrome  system  can 
produce  graphics,  too.  Granted, 
they  are  fairly  low  resolution — and 
no  amount  of  programming  skill 
can  make  your  monochrome  moni- 
tor display  more  than  one  color — 
but  they  are  graphics  nonetheless. 
You  may  find  them  handy  for  utili- 
tarian purposes  (for  example,  add- 
ing interest  to  bar  graph  displays), 
or  you  may  enjoy  making  simple 
graphic  screens,  animated  figures, 
or  games.  Once  you  master  the 
basic  technique,  more  and  more  ap- 
plications will  come  to  mind. 

Character  Graphics 

When  an  IBM  PC  boots  up,  it 
checks  to  see  if  the  system  contains 
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a  color/graphics  adapter  and  con- 
figures itself  accordingly.  If  a  color/ 
graphics  adapter  is  present,  you 
n\ay  use  advanced  BASIC  graphics 
commands  like  PUT  and  GET.  If 
not,  those  commands  cause  an  error. 
However,  even  a  monochrome  sys- 
tem has  the  ability  to  display  a  large 
set  of  special  characters.  IBM 
graphics  characters  have  ASCII  val- 
ues of  128  to  255  and  include  a 
number  of  different  shapes  useful 
in  creating  boxes,  borders,  and  so 
on. 

The  characters  vk'e're  interested 
in  are  those  which  consist  of  a  solid 
block.  All  computer  graphics  are 
produced  by  turning  pixels  (picture 
elements)  on  or  off  to  light  up  dif- 
ferent parts  of  the  screen.  The 
smaller  the  size  of  the  pixel  dots, 
the  more  detailed  the  image.  Al- 
though the  IBM  character  set 
doesn't  include  any  pixel-sized 
characters — each  character  is  com- 
posed of  several  pixels — it  does  in- 
clude some  we  can  use  like  giant 
pixels. 

Giant  Pixels 

For  example,  CHR${219)  is  a  solid 
block  character,  the  inverse  of 
CHR$(32),  the  blank  space.  Using 
these  two  characters  together  pro- 
vides a  graphics  screen  with  80  X 
25  resolution.  To  turn  on  a  "dot" 
within  this  coarse  screen,  print  the 
solid  block  at  the  desired  spot.  To 
turn  off  a  dot,  print  a  space.  The 
BASIC  function  SCREEN(Y,X)  tells 
you  whether  a  given  location  con- 
tains a  dot  or  an  empty  space. 
Though  you're  limited  to  simple, 
quite  blocky  shapes,  this  system  is 
fast  and  simple  to  use.  However, 
it's  possible  to  do  much  better. 

Besides  the  block  and  space 
characters  which  light  up  or  blank 
out  an  entire  screen  location,  there 
are  some  which  light  up  only  part 
of  a  screen  position.  For  instance, 
CHR$(220)  is  solid  on  the  bottom 
half  and  blank  on  the  top.  The 
reverse  is  true  of  CHR$(223).  By 
using  these  characters,  we  can  dou- 
ble our  resolution  to  80  X  50  pixels. 
This  complicates  matters  a  bit,  since 
we  want  to  use  only  half  a  screen 
position,  and  BASIC  lets  you  print 
only  to  an  entire  screen  position. 
Here's  a  point-plotting  routine  that 
handles  the  tricky  details  for  you: 


GR. y»Y\2+i  s  GR. SC-SCREEN 

(BR. Y,X+l)«aR. OFFSET- (Y 
MOD  2) «3! IF  Z"0  THEN  1 

0020  ELSE  IF  6R.SC-32  T 

HEN  BR . SC-223-BR . OFFSET 
ELSE  IF  BR.SC+BR.OFFSE 

T0223  THEN  GR.SC-219 
10010  LOCATE  GR.Y,X+1: PRINT  C 

HRKGH.SC)  }!  RETURN 
10020  IF  GR.SC+SR.0FFSET=223 

THEN  GR.SC=32  ELSE  IF  B 

R.BC:<>32  THEN  GR.SC-220 

+BR. OFFSET 
10030  GOTO  10010 
100*0  6R.V=Y\2+1:S9=SCREEN(GR 

.Y,X+l>iZ-(BR.SC-219  OR 
SR.SC+<Y  MOD  2X3-223) 

I  RETURN 


To  plot  a  point  with  this  rou- 
tine, set  the  variable  X  to  the  de- 
sired horizontal  coordinate  (0-79) 
and  the  variable  Y  to  the  vertical 
coordinate  (0-49).  Now  you've  set 
the  screen  location  for  the  giant 
pixel.  To  turn  it  on,  set  the  variable 
2  to  1.  Set  Z  to  0  to  turn  the  pixel 
off.  Then  call  the  subroutine  with 
GOSUB  10000.  Line  10040  is  a  sep- 
arate routine  that  tells  you  whether 
a  given  location  is  lit  up  or  blank. 
To  test  any  point  on  the  screen,  set 
the  variables  X  and  Y  to  the  appro- 
priate coordinates;  then  GOSUB 
10040.  The  variable  Z  equals  —1  if 
that  point  is  lit  or  0  if  it's  blank. 

An  Animated  Snalce 

Though  this  system  emulates  a  sim- 
ple graphics  screen,  keep  in  mind 
that  you  are  still  printing  charac- 
ters. Thus,  there  are  four  screen 
locations  that  cause  everything  to 
scroll  upward  if  you  plot  a  point 
there:  locations  (79,46),  (79,47), 
(79,48),  and  (79,49).  To  avoid 
scrolling  your  display,  either  do  not 
use  these  particular  locations  or  re- 
strict your  screen  to  79  X  50  pixels 
(use  horizontal  locations  0-78). 
Note  that  you  can  mix  text  and 
graphics  freely,  but  putting  graph- 
ics on  top  of  text  causes  some  sur- 
prising results.  The  following 
program  demonstrates  how  to  ani- 
mate a  simple  figure.  Add  these 
lines  to  the  point-plotting  routine 
and  save  the  program.  Make  sure 
the  numeric  keypad  is  in  numeric 
mode  before  you  run  it. 


10  KEY  OFF:CLS:DEFINT  A-ZsY-0 
sZ-liFOR  X-0  TO  24jSNAKE«« 
SNAKE»+CHR»(X)+CHR«(Y);BaS 
UB  10000iN£XTtDX-l:DY-0iX- 
X-1 


20  I*"INKEY«t IF  I«<>""  THEN  D 
X-SeN ( INSTR ( "369" , I*) -INST 
R ( "147" , I») ) 1 Dy«SBN (INSTR ( 
"123", I*) -INSTR ("789", I«> J 
tlF  I*-"  "  THEN  CLSiEND 

30  X°ASC(RIBHT*(SNAKE«,2)  )-^DX 
t  Y-ASC  (RI6HT«{SNAKE«,in+D 
YiIF  X>7a  THEN  X-0  ELSE  IF 
X<0  THEN  X--7B 

40  IF  Y>49  THEN  Y-0  ELSE  IF  Y 
<0  THEN  Y-49 

50  Z-l:(30SUB  10000:  SNAKE«<>SNA 
KE»+CHR« ( X ) +CHR* ( Y ) : X-ASC ( 
LEFT» (SNAKE*, 1))!Y-ASC(MID 
«(SNAKE«,2,l))lZ-0:GOSUB  1 
0000: SNAKE«-MID« (SNAKE*,  3) 
iSOTO  20 


Control   the  direction   of  the 

wandering  animated  snake  by 
using  the  numeric  keypad.  Press 
the  space  bar  to  end  the  program. 
To  improve  its  speed,  the  point- 
plotting  routine  is  as  short  as  possi- 
ble. However,  if  you  don't  require 
fast  drawing,  you  might  want  to 
add  other  features.  Perhaps  you'd 
like  to  color  or  shade  the  points  to 
introduce  different  degrees  of 
brightness  (of  course,  since  each 
two-pixel  pair  corresponds  to  a  sin- 
gle character,  there's  a  limit  to  this 
technique).  You  might  add  range 
checking  to  check  for  valid  coordi- 
nates before  you  plot  a  point.  And 
you  could  also  modify  the  routine 
to  place  graphics  on  top  of  text 
correctly.  @ 


To  receive 

additional 

information  from 

advertisers  in 

this  issue,  use 

the  handy  reader 

service  cards  in 

the  back  of 
the  magazine. 


November  1985    COMPUTE!     103 


.WORLD- 


CNBNFQR 
Z.  commodore 
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95 


w^ 
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1 


as 


EA. 

Mln.  purchase  10 
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95 
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11 


95 
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COMMODORE 

Dynamic  Keyboard 

Part  2 


Jim  Butterfield,  Associate  Editor 


Part  1  discussed  the  fundamentals  of 
dynamic  keyboard  programming, 
which  in  effect  allows  the  computer  to 
"type  on  its  own  keyboard."  Now  let's 
look  at  some  important  applications 
for  this  technique. 


As  we  saw  in  Part  1,  dynamic  key- 
board programming  uses  a  two- 
step  method  to  let  a  program  give 
itself  direct-mode  commands.  Step 
1  is  to  print  the  command  at  a  spe- 
cific location  on  the  screen.  Step  2  is 
to  put  a  RETURN  character  in  the 
computer's  keyboard  buffer,  then 
stop  the  program  with  the  cursor 
flashing  over  the  screen  command. 
The  RETURN  character  makes  the 
computer  execute  the  command 
just  as  if  you'd  pressed  RETURN. 

It's  worth  mentioning  that  you 
may  print  more  than  one  command 
on  a  screen  line,  Just  as  in  a  pro- 
gram line,  separate  the  multiple 
direct-mode  commands  with  co- 
lons. You  can  use  more  than  one 
screen  line  of  direct-mode  com- 
mands as  well.  However,  you  must 
be  careful  to  put  the  commands  in 
exactly  the  right  place,  and  make 
sure  the  cursor  flashes  directly  over 
the  line  to  be  executed  when  the 
program  stops. 

Here  are  some  applications  for 
the  dynamic  keyboard  technique: 

•  Allow  a  user  to  enter  a  formula 
that  the  program  will  use; 

•  Allow  a  program  to  load  another 
program; 

•  Allow  a  program  to  modify  itself 
(tricky); 

•  Run  test  programs  to  determine, 


for  instance,  how  the  computer  re- 
sponds to  certain  direct  commands 
and  calculations. 

Keyboard  Buffer  Locations 

The  following  table  shows  the  loca- 
tion of  the  keyboard  buffer  counter 
and  the  start  of  the  keyboard  buffer 
on  most  Commodore  computers: 


Counter 

Buffe 

VIC-20,  Commodore  64 

198 

631 

Commodore  16,  Plus/4 

239 

1319 

PET/CBM  <4.0  & 

Upgrade  BASIC) 

158 

623 

PET  (Original  ROM) 

525 

527 

B128  (Model  700) 

209 

939 

Usually  your  program  must 
POKE  a  value  of  1  into  the  counter 
and  a  value  of  13  {the  character 
code  for  RETURN)  into  the  buffer. 
That  tells  the  computer  there's  one 
RETURN  character  in  the  buffer 
waiting  to  be  processed.  If  there's 
more  than  one  line  of  direct-mode 
commands  on  the  screen  to  be  per- 
formed, you  need  a  higher  count 
and  more  characters.  On  the  B128, 
it's  wise  to  execute  a  BANK  15  com- 
mand before  the  POKEs. 

Entering  A  Formula 

Let's  write  a  brief  program  that  al- 
lows a  student  to  enter  a  formula 
and  then  generates  a  table  of  values 
based  on  the  formula.  More  com- 
plex versions  of  the  program  might 
solve  an  equation  or  draw  a  graph, 
but  we'll  keep  the  example  simple. 
In  practice,  it  would  be  wise  for 
your  program  to  check  for  valid 
syntax  before  evaluating  the  formu- 
la. Again,  for  the  sake  of  brevity, 
we'll  do  only  the  dynamic  key- 
board portion. 


This  program  is  for  VIC-20  and 
Commodore  64  only.  If  you  have 
another  Commodore  model,  use 
the  table  above  to  change  the  POKE 
addresses  in  line  140.  Also,  don't 
forget  the  colon  that  appears  just 
before  the  GOTO  statement  in  line 
130. 

100  PRINT" (CLR) {DOWN) FORMULA  E 
VALUATION.": PRINT" INPUT  A 
CsPACEIFORMULA"     :rera  52 

110  PRINT"BASED  ON  VARIABLE  X" 
:PRINT"SUCH  AS:":PRINT" 
{DOWN} (2  SPAGES]Y=  X*7-SaR 
(X)": PRINT  :rem  7 

120  PRINT"YOUR  FORMULA :": INPUT 
■'{DOWN]  (2  SPACES  Jy=";F5:  PR 
INTCHR$(147) : PRINT: PRINT 

: rem  1 50 

130  PRINT"Y=";F5; " :GOT01 50" : DI 
HV(10):FORX=ITO10:PRINTCHR 
${19)  trem  178 

140  POKE  198, l:POKE631 , 13:END 

:rem  103 

150  V(X)=Y:NEXT  X:FOR  X=l  TO  1 
0:PRINT    X,VCX):NEXT    X 

:  rem    2 

Notice  how  this  program  does 
a  task  which  would  be  difficult  or 
impossible  without  using  the  dy- 
namic keyboard  technique. 

Loading  Anotlier  Program 

If  you  put  a  LOAD  command  in  a 
program,  the  new  program  doesn't 
load  in  the  usual  way.  Instead,  it's 
chaijied  to  the  old  program.  The 
new  program  retains  the  variables 
and  arrays  (if  certain  rules  are  ob- 
served), and  the  effect  is  that  of  two 
successive  programs  working  con- 
tinuously on  a  single  job.  That's  not 
always  what  is  wanted.  Especially 
with  menu  programs  or  bootstraps 
(program-loading  programs),  your 
goal  may  be  simply  to  start  the  new 
program    without    preserving 
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variables  or  data  from  the  old  one. 
That's  what  happens  when  you 
perform  LOAD  as  a  direct  com- 
mand. With  the  dynamic  keyboard 
technique,  we  can  simulate  this 
from  within  a  program. 

Let's  write  a  simple  dynamic 
keyboard  loading  sequence.  Again, 
the  program  is  given  for  VlC-20 
and  Commodore  64  only.  For  other 
Commodore  models,  use  the  table 
above  to  change  the  POKE  address- 
es in  line  120. 

100    PRINT"  {CLR)  [DOVMJPROGRAM    L 
OADING":PRINT"PROGRAH 
[2    DOVral":PRINT"PROGRAM    NA 
ME":INPUTP$ 

110  PRINT" (CLR)": PRINT: PRINT: P 
RINT "LOAD" ; CHRS ( 34 )  r  P$ ; CHR 
5(34) ;", 8" : PRINT: PRINT 

120  PRINT: PRINT: PRINT "RUN" :PRI 
NTCHR5(19) :POKE198,2:POKE6 
31,13:POKE632,13 

Note  that  there  are  two  sepa- 
rate command  lines:  one  for  LOAD 
and  one  for  RUN.  Of  course,  it's 
important  to  position  the  lines  cor- 
rectly, but  that's  not  hard  to  work 
out  when  you  set  up  the  program. 
You  see  everything  happening  on 
the  screen,  and,  if  you've  placed 
your  command  a  line  too  high  or 


low,  the  problem  is  easy  to  spot. 
(For  the  VIC,  you  must  limit  the 
length  of  the  filename  you  enter  to 
seven  or  fewer  characters.  Other- 
wise, an  unrelated  bug  built  into 
the  VIC'S  INPUT  statement  causes 
the  program  to  fail.) 

Tricks  And  Advanced 
Points 

On  computers  with  color  capabili- 
ties, you  can  hide  your  dynamic 
keyboard  tricks  if  you  wish.  If  you 
print  the  direct-mode  commands  in 
the  same  character  color  as  the 
screen  background,  they  won't  be 
visible  to  you,  but  the  computer  can 
still  see  and  execute  them.  Your 
program  can  even  change  colors  as 
it  runs  so  that  some  parts  of  the 
commands  are  visible  and  some  are 
not. 

Occasionally,  you'll  want  to 
use  the  dynamic  keyboard  tech- 
nique to  change  a  program  as  it 
runs.  That's  tricky,  since  any  time 
you  add  or  change  a  program  line, 
the  values  of  all  variables  are  lost. 
It's  hard  to  run  a  program  when  its 
variables  disappear,  but  it  can  be 
done  if  handled  carefully.  The  criti- 


cal variables  can  be  reentered  using 
the  dynamic  keyboard  technique, 
using  lines  such  as  X=7:L  =  120: 
GOTO  580.  Another,  somewhat 
more  cumbersome  method  is  to 
POKE  the  value  of  each  variable 
into  spare  memory  and  PEEK  the 
value  later  when  needed. 

Why  would  a  program  need  to 
change  itself?  The  most  usual  situa- 
tion involves  converting  an  ASCII 
program  listing  into  tokenized 
BASIC  format.  It's  common  to  list 
programs  in  ASCII  (untokenized) 
form  when  translating  from  one 
computer  to  another.  This  is  espe- 
cially true  when  you  transfer  pro- 
grams over  the  phone  line  with  a 
modem.  As  each  line  of  the  ASCII 
listing  arrives,  it  must  be  entered  as 
if  it  were  being  typed,  to  store  it  in 
tokenized  format.  While  it's  possi- 
ble to  do  the  whole  job  by  hand  (by 
printing  each  line  on  the  screen  and 
pressing  RETURN),  the  dynamic 
keyboard  technique  lets  the  com- 
puter do  this  busywork  for  you. 

Next  month,  in  Part  3,  we'll 
cover  the  use  of  the  dynamic  key- 
board technique  for  self-modifying 
programs  in  more  detail.  @ 


Program  Your  Own  EPROMS 


VIC  20 
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(C 
C 
(D 

E 
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EASY  TO  USE.  VERSATILE. 

•  Read  or  Program.  One  byte  or 
32K  bytes! 

OR  Use  like  a  disk  drive.  LOAD, 
SAVE,  GET,  INPUT  PRINT,  CMD, 
OPEN,  CLOSE— EPROM  FILES! 
Our  software  lets  you  use  familiar  BASIC  commands  lo 
create,  modify,  scratch  files  on  readily  available  EPROf^/l 
chips.  Adds  a  new  dimension  to  your  computing  capability. 
Works  with  most  ML  Monitors  too. 

•  Make  Auto-Start  Cartridges  o(  your  programs. 

•  The  promenade"  CI  gives  you  4  programming  voltages, 
2  EPROM  supply  voltages,  3  intelligent  programming 
algorithms,  15  bit  chip  addressing,  3  LED's  and  NO 
switches.  Your  computer  controls  everything  from  software  I 

•  Textool  socket.  Anti-static  aluminum  housing. 
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Some  EPROM  types  you  can  use  with  the  promenade" 
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Simple  Assembling  With 

IBM  DEBUG 


Tim  Victor,  Editorial  Progrommer 


You  don't  need  to  buy  an  expensive 
assembler  to  write  short  machine  lan- 
guage programs  on  an  IBM  PC  or 
PCjr— a  copy  of  PC-DOS  already 
contains  the  basic  tools  you  require. 
This  article,  which  assumes  some  fa- 
miliarity with  hexadecimal  numbers 
and  machine  language  theory,  shows 
how  to  make  the  most  of  the  DEBUG 
utility  when  you're  ready  to  tackle 
8088  machine  language. 


Tucked  away  on  the  DOS  Supple- 
mental Programs  disk  that  came 
with  your  copy  of  PC-DOS  is  a  file 
called  DEBUG.  DEBUG  is  a  simple 
but  powerful  development  tool  for 
exploring  your  computer  and  writ- 
ing short  machine  language  (ML) 
programs.  It  includes  a  minias- 
sembler, which  converts  assembly 
language  instructions  into  machine 
language  directly  in  memory,  and  a 
disassejnbler,  which  allows  you  to 
reverse  this  process  and  examine 
ML  programs  already  in  memory. 
DEBUG  also  has  trace  and  break- 
point functions  for  testing  ML  pro- 
grams, utilities  for  loading  and 
saving  programs  on  disk,  and  sev- 
eral other  valuable  features.  Using 
these  tools,  we'll  show  how  to  write 
a  small  ML  program. 

To  get  started  with  DEBUG, 
boot  up  DOS  from  your  master. 
disk.  When  the  DOS  prompt  A> 
appears,  insert  the  DOS  Supplemen- 
tal Programs  disk  into  drive  A:,  type 
DEBUG,  and  press  ENTER.  DE- 
BUG loads  and  runs,  replacing  the 
DOS  prompt  with  its  own  prompt, 
a  hyphen  (-).  You  can  return  to 
DOS  at  any  time  by  putting  your 
master  disk  back  in  the  drive,  typ- 
ing Q  for  Quit,  and  pressing 
ENTER. 


Since  you  should  preserve 
your  DOS  Supplemental  Programs 
disk  as  an  archival  backup,  let's  ask 
DEBUG  to  copy  itself  onto  another 
disk.  You  could  use  the  DOS  COPY 
command,  but  using  DEBUG  is  a 
good  way  to  learn  how  to  load  and 
save  machine  language  program 
files. 

Cloning  DEBUG 

DEBUG  has  three  commands  for 
disk  operations:  L  (Load),  W 
(Write),  and  N  (Name).  N  creates  a 
data  structure  called  a  file  control 
block  (FCB)  that  DOS  uses  for  all 
disk  operations,  including  DE- 
BUG's  Load  and  Write.  The  FCB 
contains  the  name  of  a  file,  along 
with  information  such  as  size  and 
file  organization.  To  learn  more 
about  the  FCB,  consult  Appendix  E 
of  the  DOS  2.00  Manual,  or  Chapter 
6  of  the  DOS  2.10  Technical  Refer- 
ence Manual. 

The  first  step  in  backing  up 
DEBUG  is  to  load  another  copy  of  it 
into  memory.  Type  N  DEBUG.COM 
and  press  ENTER.  (You  need  to 
include  the  .COM  extension  be- 
cause DEBUG  doesn't  make  any 
assumpHons  about  the  file  type.) 
DEBUG  responds  with  another  hy- 
phen. Next,  type  L  and  press  EN- 
TER. The  disk  drive  whirs,  and  then 
another  hyphen  appears.  You've 
loaded  a  second  copy  of  DEBUG. 

Remove  the  Supplemental  Pro- 
grams disk.  Replace  it  with  a  for- 
matted disk  that  you'll  be  using  for 
ML  programs.  Type  W  and  press 
ENTER,  The  drive  comes  on  again, 
and  then  DEBUG  displays  the  mes- 
sage "Writing  2E80  bytes"  and  the 
hyphen  prompt.  You  now  have  a 
copy  of  DEBUG.COM  on  your  ML 
disk. 


A  Sample  Program 

Let's  try  assembling  a  program  with 
DEBUG.  Start  by  typing  A  100  to 
start  assembling  at  address  lOOH. 
(IBM  programmers  generally  de- 
note hexadecimal  numbers  by  ap- 
pending an  H  to  the  number.  All 
input  and  output  with  DEBUG  is 
expressed  in  hexadecimal.)  DEBUG 
responds  with  a:xjx:0100,  where 
xxxx  is  a  four-digit  hexadecimal 
number.  This  number  is  the  current 
value  of  the  code  segment  register. 
It's  of  minor  importance  right  now 
and  will  be  discussed  in  detail  later. 
Now  type  in  the  following  pro- 
gram. DEBUG  displays  the  memory 
address  of  each  instruction  for  you. 
All  you  need  to  enter  are  the 
instructions. 

MOV  AH,09 

MOV  DX,109 

INT  21 

INT  20 

DB  "HELLO  THERES" 

Press  ENTER  to  leave  the  as- 
sembler. This  program  is  the  ML 
equivalent  of  everyone's  first 
BASIC  program; 

10  PRINT  "HELLO  THERE" 

The  ML  version  looks  quite  a 

bit  longer,  but  it  would  be  even 
more  involved  if  it  weren't  for  the 
INT  21H  instruction,  which  calls  a 
DOS  function  routine  (Print  String) 
by  executing  a  software  INTerrupt. 
Before  calling  this  routine,  the  pro- 
gram takes  two  preparatory  actions. 
The  first  instruction  loads  the  AH 
register  (an  internal  8088  register) 
with  the  value  9.  In  8088  machine 
language,  instructions  with  two 
operands  like  MOV  AH,09  operate 
from  right  to  left — just  as  A  =  9  in 
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BASIC  moves  the  value  9  into  the 
variable  A.  You  specify  the  destina- 
tion operand  first,  then  the  source 
operand.  This  might  seem  a  little 
backwards,  but  it's  a  common  con- 
vention and  you'll  soon  adjust  to  it. 

AH  is  the  high  (most  signifi- 
cant) byte  of  AX,  the  16-bit  (two- 
byte)  accumulator  register  of  the 
8088.  When  a  program  calls  Inter- 
rupt 21H,  the  value  in  AH  indicates 
the  function  you're  asking  DOS  to 
perform.  Function  9,  Print  String, 
displays  a  string  on  the  screen, 
starting  with  the  character  at  the 
address  contained  in  the  DX  regis- 
ter and  ending  with  the  character  $. 
The  second  instruction  moves  the 
address  109H  into  the  DX  register. 
The  last  instruction,  INT  20H,  ends 
the  program  by  returning  control  to 
the  program  that  called  it — in  this 
case,  DEBUG. 

Finally,  we  create  the  string  we 
want  to  print  using  DB,  a  pseudo- 
opcode  {pseudo-op).  When  the  as- 
sembler sees  a  pseudo-op  such  as 
DB,  it  performs  a  function  instead 
of  generating  code.  This  particular 
pseudo-op  tells  the  assembler  to 
store  bytes  of  data  in  memory,  be- 
ginning at  the  current  location.  The 
data  can  be  either  a  list  of  hexadeci- 
mal numbers  between  00  and  FF, 
separated  by  spaces  or  commas,  or 
a  quoted  string,  as  shown  above.  If 
the  data  is  a  string,  the  ASCII  code 
for  each  character  is  entered  in 
memory,  The  dollar  sign  at  the  end 
of  the  string  is  very  important. 
Without  this  delimiter,  the  Print 
String  function  will  keep  printing 
whatever  bytes  it  happens  to  find  in 
memory  following  the  message.  It 
might  be  a  long  time  before  it 
comes  across  a  $  and  stops. 

8088  Memory  Addressing 

Now  that  the  program  is  in  memo- 
ry, we  can  use  the  disassembler  to 
examine  it.  Type  U  for  Unassemble, 
and  DEBUG  displays  several  rows 
of  text  on  the  screen  (the  number  of 
rows  differs  between  40-  and  80- 
column  displays).  Notice  that  the 
disassembled  code  is  aligned  in 
four  columns.  The  first  column 
shows  the  address  of  each  instruc- 
tion as  two  four-digit  hexadecimal 
numbers  separated  by  a  colon,  just 
as  was  displayed  when  you  entered 
the  program.  The  first  four-digit 
number  is  the  current  value  of  the 


code  segment  register  mentioned 
before,  and  the  second  is  the  value 
of  the  instructioji  pointer.  To  under- 
stand why  two  registers  are  needed 
to  point  to  a  single  memory  location 
requires  some  understanding  of  the 
8088's  addressing  scheme. 

The  8088  microprocessor  can 
access  up  to  one  megabyte  (1024K) 
of  memory  using  20-bit  addresses. 
However,  for  compatibility  with 
older  Intel  processors,  the  8088  has 
only  a  16-bit  instruction  pointer. 
Because  a  16-bit  (four  hexadecimal 
digit)  register  can  only  have  values 
between  0  and  65,535,  another  reg- 
ister, the  code  segment  register,  is 
needed  to  address  the  entire 
1,048,576  bytes  allowed  by  the 
8088.  The  code  segment  register  is 
also  a  16-bit  register,  but  instead  of 
addressing  individual  bytes,  it 
points  to  blocks  of  16  bytes,  called 
paragraphs.  Any  five-digit  hexadec- 
imal address  that  ends  in  a  zero  is 
the  beginning  of  a  paragraph.  For 
example,  the  byte  of  memory  at 
5D320H  is  at  the  beginning  of  the 
paragraph  addressed  by  a  segment 
register  containing  5D32H. 

The  code  segment  register 
points  to  the  first  paragraph  of  a 
64K  block  of  memory  called  the 
code  segment  (CS).  There  are  three 
other  segments,  the  data  segment 
(D5),  stack  segment  (SS),  and  extra 
segment  (ES),  plus  a  register  that 
points  to  the  beginning  of  each.  In 
simple  programs,  however,  all  the 
segment  registers  usually  have  the 
same  value  as  CS.  To  find  the  next 
byte  of  code  to  be  fetched,  the  value 
in  the  instruction  pointer  is  added 
to  the  address  of  the  beginning  of 
the  code  segment.  The  physical  ad- 
dress of  this  byte  can  be  found  vnth 
this  formula: 

Physical  Address  =  IP-(-(CS'16) 

The  effect  of  organizing  mem- 
ory this  way  is  that  a  programmer 
doesn't  have  to  know  where  the 
program  will  be  loaded.  When  DOS 
loads  a  .COM  program,  it  starts  the 
code  segment  at  the  beginning  of 
any  available  paragraph  in  memo- 
ry. The  program  is  loaded  at  an 
offset  of  lOOH  bytes  above  the  start 
of  the  segment  and  the  instruction 
pointer  is  set  to  lOOH.  The  four 
segment  registers,  CS,  DS,  SS,  and 
ES,  all  point  to  the  start  of  the  code 
segment. 


The  second  instruction  of  the 
example  program  moves  an  ad- 
dress, 109H,  into  DX.  This  address 
is  an  offset  into  the  current  data 
segment.  The  string  to  be  printed  is 
located  at  an  offset  of  109H  only  if 
the  data  segment  register  is  equal  to 
the  code  segment  register  and  the 
program  starts  at  offset  lOOH.  In 
practice,  the  CS  register  is  rarely 
changed  except  by  DOS  and  needs 
little  or  no  attention  in  most 
programs. 

Displaying  Binary  Code 

The  second  column  of  the  disas- 
sembled listing  on  the  screen  con- 
tains four-  or  six-digit  hexadecimal 
numbers.  These  are  the  contents  of 
the  memory  locations,  the  binary 
code  which  the  8088  can  execute. 
Notice  that  the  first  MOV  instruc- 
tion is  one  byte  shorter  than  the 
second.  The  first  instruction  only 
loads  half  of  a  16-bit  register  (AH  is 
the  upper  half  of  AX),  so  the  data 
occupies  one  byte,  but  the  second 
MOV  loads  all  of  DX,  which  takes 
two  bytes  of  data  (a  word). 

The  third  column  shows  the 
mnemonics — symbolic  names  for 
each  opcode  instruction.  The  fourth 
column  displays  the  operands.  This 
program  consists  of  four  opcodes: 
two  MOV  instructions  followed  by 
two  INT  instructions.  Notice  that 
the  DB  pseudo-op  doesn't  show  up 
in  a  disassembly.  Instead  of  dis- 
playing your  characters,  DEBUG 
tries  to  convert  the  string  into  as- 
sembler mnemonics,  and  therefore 
prints  several  meaningless  instruc- 
tions. DEBUG  is  frequently  fooled 
this  way  because  program  instruc- 
tions and  data  are  both  stored  as 
binary  bytes.  DEBUG  has  no  way  of 
knowing  where  the  program  ends 
and  the  data  begins. 

If  you  type  another  U,  DEBUG 
continues  to  disassemble  and  dis- 
play the  next  16  or  32  bytes  in 
memory  (depending  on  your  screen 
width).  Since  the  program  is  only 
21  bytes  long,  DEBUG  starts  dis- 
playing part  of  itself,  still  in  memo- 
ry from  when  you  copied  it.  Type  U 
100  to  disassemble  from  the  begin- 
ning of  your  program  again.  DE- 
BUG's  U  command  also  accepts 
both  starting  and  ending  addresses 
if  you  separate  them  with  a  space. 

It's  a  good  idea  to  save  your 
program  on  disk  before  running  it. 
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If  the  program  causes  something 
unexpected,  like  an  infinite  loop  or 
a  complete  system  crash,  it's  nice  to 
have  a  copy  saved.  Then  you  can 
load  it  and  search  for  the  error  with- 
out typing  the  program  again  from 
scratch. 

As  before,  you  need  to  tell  DE- 
BUG the  name  of  your  file.  Type  N 
HELL0.COM,  Now  there's  one 
more  thing  to  consider:  How  many 
bytes  of  memory  should  DEBUG 
write  to  disk?  When  we  used  the  W 
command  to  copy  DEBUG,  it  wrote 
the  same  number  of  bytes  that  it 
had  loaded,  but  now  we're  saving  a 
new  program  which  has  never  been 
loaded.  When  DEBUG  loads  a  file, 
it  stores  the  size  of  the  file  in  the  CX 
register  and  the  four  least  signifi- 
cant bits  of  the  BX  register.  The 
same  registers  are  used  when  DE- 
BUG writes  a  file.  So  if  your  pro- 
gram is  less  than  65,536  bytes  long 
(most  are),  the  BX  register  should 
be  set  to  zero. 

To  examine  and  change  CX, 
type  R  CX.  DEBUG  prints  the  con- 
tents of  CX  (probably  2E80H,  left 
over  from  copying  DEBUG),  then 
prints  a  colon  at  the  beginning  of 
the  next  line.  You  can  press  ENTER 
to  leave  the  value  unchanged,  or 
type  a  new  value.  Since  the  new 
program  is  21  bytes  long,  type  15 
(the  hexadecimal  equivalent  of  21) 
and  press  ENTER,  Now  type  W  to 
write  the  program  to  disk.  DEBUG 
responds  with  the  message  "Writ- 
ing 0015  bytes,"  then  returns  the 
prompt. 

Running  And  Debugging 

Now  that  your  program  is  safe  on 
disk,  run  it  by  typing  G  and  press- 
ing ENTER.  The  screen  should  dis- 
play HELLO  THERE,  Then  DEBUG 
prints  "Program  completed  nor- 
mally" followed  by  its  usual 
prompt.  If  your  program  completed 
but  didn't  print  correctly,  disassem- 
ble starting  from  lOOH  and  check 
that  all  instructions  are  correct.  If 
your  program  locked  up  the  com- 
puter, reboot,  restart  DEBUG,  and 
thank  yourself  for  saving  the  pro- 
gram. Reload  the  program  with  N 
and  L,  then  disassemble  it  to  see 
what  it  looks  like.  If  you  don't 
know  what's  wrong,  one  technique 
is  to  try  setting  a  breakpoint.  This 
halts  the  program  at  a  predeter- 
mined point  so  you  can  check  the 


contents  of  the  registers. 

For  instance,  to  make  the  pro- 
gram stop  before  the  INT  20H  in- 
struction, you  can  set  one  or  more 
breakpoints.  To  set  a  breakpoint, 
type  G  followed  by  the  addresses  of 
one  or  more  instructions  in  your 
program.  If  you  set  more  than  one 
breakpoint,  separate  the  addresses 
with  spaces.  The  program  begins 
executing,  but  stops  when  the  in- 
struction pointer  equals  the  address 
of  a  breakpoint.  DEBUG  displays 
the  contents  of  all  registers  and 
flags  and  disassembles  the  instruc- 
tion at  the  breakpoint  (the  instruc- 
tion pointed  to  by  the  instruction 
pointer,  the  next  instruction  to  be 
executed).  Type  G  to  restart  the 
program  at  the  instruction  that  the 
instruction  pointer  references. 

If  you  stopped  your  program 
with  a  breakpoint  but  want  to  re- 
start it  from  the  beginning,  type  G 
=  100.  DEBUG  sets  the  instruction 
pointer  to  lOOH  (or  whatever  ad- 
dress you  specify)  before  starting. 
You  can  also  set  both  the  starting 
address  and  one  or  more  break- 
points. Just  include  the  breakpoint 
addresses  on  the  same  command 
line,  separating  them  from  the 
starting  address  and  each  other 
with  spaces. 

Keep  this  in  mind:  Before  DE- 
BUG executes  a  G  command,  it 
saves  the  values  of  all  the  registers, 
including  the  instruction  pointer.  If 
the  program  runs  normally,  and 
completes  by  executing  INT  20H, 
DEBUG  restores  all  the  registers. 
This  is  great  if  your  program  runs 
all  the  way  from  beginning  to  end. 
You  just  type  G  and  your  program 
runs  again.  If,  however,  your  pro- 
gram has  just  completed  after  being 
restarted  from  a  breakpoint,  the  in- 
struction pointer  now  points  to  the 
location  where  the  breakpoint  was 
set.  Typing  G  starts  it  from  the 
breakpoint  again.  To  run  the  pro- 
gram from  the  beginning,  type  G 
=  100. 

Learning  fAore  About 
DEBUG 

You've  now  used  DEBUG  to  load 
and  store  program  files,  to  assemble 
and  disassemble  a  new  machine 
language  program,  and  to  execute  a 
program.  Some  other  useful  com- 
mands we  don't  have  room  to  cover 
are  D  (Dump),  which  displays  the 


contents  of  a  block  of  memory  as 
hexadecimal  numbers  and  ASCII 
characters;  E  (Enter),  to  examine 
and  change  the  contents  of  individ- 
ual memory  locations;  and  T 
(Trace),  which  executes  an  ML  pro- 
gram one  instruction,  at  a  time,  dis- 
playing all  registers  and  flags 
between  instructions. 

As  you  learn  more  about  8088 
machine  language,  you'll  find  DE- 
BUG a  big  help  in  testing  your  pro- 
grams. Though  you  might  use  a 
separate  assembler  when  your  pro- 
grams get  larger,  DEBUG  remains 
useful  for  testing  and  modifying  the 
assembled  programs.  If  you  want  to 
know  more,  there  is  a  complete  de- 
scription of  each  DEBUG  command 
in  Chapter  12  of  the  DOS  2.00  Man- 
ual and  Chapter  8  of  the  DOS  2.10 
Manual.  Information  on  the  DOS 
functions  and  interrupts  can  be 
found  in  Appendix  D  of  the  DOS 
2.00  Mayiual  and  Chapter  5  of  the 
DOS  2.10  Technical  Reference  Man- 
ual. To  learn  more  about  machine 
language  programming  on  the  IBM 
PC  and  PCjr,  see  COMPUTEl's  Be- 
ginner's Guide  to  Machine  Language 
on  the  IBM  PC  &  PCjr.  @ 
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Save-With-Replace: 

Debugged  At  Last 
Part  2 


Last  month,  Part  1  proved  that  a  long- 
suspected  bug  in  the  Commodore 
Save-with-Replace  command  really 
exists.  Using  a  program  that  demon- 
strated the  bug  on  a  1541  disk  drive, 
the  article  showed  how  disks  can  be 
scrambled  when  files  are  scratched 
and  reicritten  zuith  Save-with-Replace. 
The  article  also  offered  a  brief  expla- 
nation of  the  bug  and  hoio  to  avoid  it. 
This  month,  Part  2  examines  the 
Save-with-Replace  bug  in  greater  de- 
tail for  technically  advanced  readers. 
The  author  is  the  president  of  Quan- 
tum Software,  which  produces  the 
Peek  a  Byte  disk  utility  for  the  Com- 
modore 64. 


What  actually  causes  the  Save- 
with-Replace  bug?  When  and  how 
does  it  occur  and  is  there  a  fix  for  it? 
We  have  performed  extensive  test- 
ing to  determine  exactly  how  the 
bug  happens.  As  explained  last 
month,  we've  determined  that  the 
bug  is  avoidable  if  the  drive  num- 
ber (drive  0)  is  specified  in  all  disk 
commands.  If  you  don't  always 
specify  drive  0,  the  bug  occasional- 
ly bites,  That's  significant  infor- 
mation in  itself — but  we  wanted  to 
know  why. 

DOS  Thievery 

First,  we  should  note  that  although 
the  SAVE@  command  deletes  a 
disk  file  and  saves  a  replacement  in 
a  single  operation,  it  works  differ- 
ently than  if  you  issued  separate 
SCRATCH  and  SAVE  commands. 
SAVE@  calls  entirely  different 
DOS  routines— the  SCRATCH  and 
SAVE  are  executed  as  part  of  a  con- 


P.A.  Sloymoker 


tinuous  procedure,  and  the  SAVE@ 
command  therefore  requires  that 
more  drive  buffers  be  available. 

DOS  V2.6  has  five  internal 
buffers,  numbered  0  to  4.  These 
buffers  start  at  memory  pages  $300, 
$400,  $500,  $600,  and  $700,  respec- 
tively. Normally  an  image  of  the 
disk's  BAM  (block  availability  map) 
is  stored  in  the  page  at  $700,  an 
image  of  the  directory  sector  in  use 
is  stored  at  $600,  and  the  other 
three  buffers  are  available  for  file 
use.  As  long  as  a  buffer  is  active,  it 
cannot  be  used  for  anything  else.  If 
DOS  has  assigned  an  internal  chan- 
nel to  the  BAM  at  $700,  then  trying 
to  open  a  direct  channel  to  buffer  4 
(from  BASIC:  OPEN  2,8,2,"#4")  will 
produce  a  70,NO  CHANNEL,00,00 
error. 

Similarly,  DOS  assigns  chan- 
nels and  buffers  to  the  directory 
sector  and  file  sectors  which  are 
being  read  or  written.  Normally 
DOS  assigns  two  read  or  two  write 
channels  and  uses  only  three  of  the 
five  buffers.  The  SAVE(q)  com- 
mand, however,  requires  all  five 
buffers — two  read,  two  write,  and 
the  BAM.  If  DOS  can't  find  a  free 
buffer,  it  tries  to  steal  an  assigned 
but  inactive  buffer.  This  thievery 
causes  the  SAVE(a)  command  to  oc- 
casionally fail — for  reasons  which 
will  be  discussed  shortly. 

Why  does  omitting  the  drive 
number  in  disk  commands  cause 
DOS  to  steal  a  buffer?  When  a  file  is 
opened  or  loaded  via  the  OPEN 
routine  ($D7B4),  DOS  searches  the 
internal  directory  to  look  for  the 
specified  filename  (DOS  routine 
names  and  addresses  in  this  article 
conform  to  those  listed  in  Inside 


Commodore  DOS,  Datamost,  1984). 
ONEDRV  ($C312)  determines 
whether  a  drive  was  specified. 
OPTSCH  ($C3CA)  assigns  a  default 
or  specified  drive  for  each  file  in  the 
command,  and  also  calls  AUTOI 
($C63D).  AUTOI  reads  the  BAM  of 
the  disk  in  the  specified  drive,  and 
also  tries  to  initialize  drive  1  if  no 
drive  was  specified.  Usually  buffer 
3  ($600)  is  allocated  for  the  phan- 
tom drive  1  BAM,  and  a  Bl  SEEK 
command  is  issued  to  the  disk  con- 
troller. This  results  in  an  internal 
DRIVE  NOT  READY  error  in  the 
disk  controller.  The  error  is  trapped 
by  AUTOI  but  not  reported  outside 
the  disk  drive.  This  leaves  buffer  3 
allocated  but  inactive.  FFST 
($C49D)  then  reads  the  directory 
and  tries  to  find  the  file. 

The  reason  this  inactive  buffer 
assignment  is  important  is  that  the 
SAVE@  command  requires  all  five 
buffers,  but  only  four  are  now 
available.  Whenever  DOS  needs  to 
allocate  a  buffer,  it  calls  GETBUF 
($D28E).  If  one  is  not  free,  GETBUF 
tries  to  steal  an  inactive  one  by 
calling  STLBUF  ($D339).  If  the 
drive  number  is  always  specified 
and  no  direct  access  buffers  are  al- 
located, STLBUF  is  never  called. 
We  verified  this  by  modifying  GET- 
BUF after  copying  DOS  onto  an 
EPROM  (Eraseable-Programmable 
Read  Only  Memory).  If  a  channel 
can't  be  stolen,  then  a  NO  CHAN- 
NEL error  occurs.  But  if  STLBUF  is 
called,  the  SAVE@  bug  sometimes 
occurs. 

Stealing  The  Wrong  Buffer 

STLBUF  can  be  called  several  times 
during  a  5AVE@  command.  The 
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ATARI 

130XE  {12aK) CALL 

SaOST  (512K) CALL 


800XL  S'lK CALL 

650  Imertace S1 19.00 

1010  Recorder S49.99 

1050  Disk  Drive S169.00 

1025  Doi  Mairix  Printer S199.99 

1027  Letter  Quahly  Primer SJ69,99 

1030  Direct  Conned  Modem    ,  S59  99 

APPLE 


B036  Alan  Wnler S29,99 

Slar  Raiders S4.99 

Missile  Command $4.99 

Defender ^ &4.99 

Galaxian ■*     «'' ^"'^^ 

Dig  Dug >t***  s^'- S4.99 

DonKey  Kong S4.99 

Joust S4.99 

Eastern  From S4.99 

BOARDS  FOR  ATARI 

Anion  32K S39.99 

Axlon  4aK  (400) S69.99 

Axlon    ISBK SZ69.99 

Bil  3  Full  View  80 S169.00 


APPLE  lie CALL 

APPLE   lie CALL 

MaclNTOSH , CALL 

Ic  LCD  Display CALL 

f S  cammodore 

C128  Cnmpuler 5289.00 

C157T  (Dish  Drln  lor  C128I Sr^EW 

C1902  (RGB  13"  MonitDr  lor  C12e).,..$l'EW 
C167D  (Modom  (01  C1Z8I SNEW 

Commodore  Plus  4 ST99.00 

CBM   64 SI  49.00 

C1541   DISl!  Drive S199.00 

CI 530  Dalaselle S39.99 

M-B01  Dot  fi^alrix  Printer S169.00 

MCS  B03  Dot  lyialrix 5179,00 

C170Z  Color  .Monilor S189.00 

C1660  Aulo  Modem 559,99 

DPS  1101  Daisy  Primer S339,00 


PORTABLE  COMPUTERS 


tlm^  HEWLETT 
m^KM   PACKARD 

41CV     „ S1B9  99 

41CX S249  99 

HP  71 B S419  99 

HP  lie S62  99 

HP    12C/15C(16C S89  99 

HP  750 5949,00 

HPIL  t^oduie   S98  99 

HPIL  Casselle  or  Primer,   .    .  S359  99 

Card  Reader      S143  99 

Extended  Funclion  Module 563,99 

Time  Module 563  99 

Wa  (lock  the  full  line  of 
HP  catculator  products 

SEQ 

PC-e401 CALL 

PC-B201   Ponable  Computer,  S289(» 

PC-8231   Disk  Dnve 5599,00 

PC-e221A  Tnermal  Primers,       S149  00 
PC-828 1 A  Dala  Recorder  S99  99 

PC-B20t-06  8K  RAI^  Chips,       S106  00 

SHARP 


Macintosh  Software 

Lotus  Jazz CALL 

Mlcroloft  Excel CALL 

Microsoft   Business  Pak  5375,00 

Living  Vldootaxt 

ThinkTank   512  515900 

Manhattan  Ready,  Set.  Go  .  .379,99 
Cralghton  Davslopment 

twlac  Spell S69,99 

Monogram  Dollars  i.  Sense,, ,,S99.99 
Peachtraa  Back  to  Basics  -  GLS109,D0 
PFS  Frie  4  Report  (New  Version)S1 29,00 
Silicon  Baaeh  Atrborn S25,99 


PC-1350            

..     S159  99 

PC-1261 

S159  99 

PC-1260 

S109  99 

PC-1500A 

S165  99 

PC-I25aA 

iSB  99 

CE-iss  Pnniei/Casseiie.  , 

,     5128  99 

Ptofesslonal  Softwaie 

Fleet  System  II  w;Spell^ 549.99 

Trivia  Fever 529.99 

Word  Pro  4  Plus(5  Plus  each...S239.00 

Inio  Pro .„S1 79,00 

Adminislralor S399.00 

BRODERBUND 

The  Prim  Stiop 529,99 

File   (64) 'Y 559-99 

Report  (64) , 549,99 

PaperClip  w(Spell  Pack S79.99 

The  Consultant  DBMS S69,99 

Bus  Card   II $13900 

80  Col  Display -...,5129.00 


CE.150  Color  Primer  Casseue,S17i ,99 
CE-161    16K  RAM  S134  99 


DISKETTES 


maxell 

3V>"   SS(DD S39-99 

3Vj"  DS/DD $54,99 

S'.'j"  MD-1  wlHartlcas*  S17-99 

51a"  MO-2  w/Hardcaso  - S23  99 

5V<"  M0-2-HD  for  AT S44  99 

t'i  Vcrbatini. 

5VV    SSfDD      S21  99 

5V.  ■  DS'DD S29  99 

Disk  Analyzef  ,- - 524  99 


Elepfianl  6'i"  SS/SD $13,99 

Elepnant  bv."  SS/DD -S15-99 

Elephant  SV<"  DS/DD $16,99 

Elephant  premium  DS/DD 123.99 

5W  OSiDD  Floppy  Disks 

(Box  0(   10) 525.99 


DISK  HOLDERS 

INNOVATIVE  CONCEPTS 

Flip-in-File  10 S3.99 

Flip-in-Fi1o  BO 517-99 

Flip-in-FKe  SO  w/lock.,.,. 524,99 

Flip-in-Ftie  (400/800  ROM) ..$11.99 

AMACAY 

50  Disk  Tub  5Vj" $9.99 

30  Disk  Tub  SVj" Sa.99 


MODEMS 


Volksmodem $59.99 

Volksmodem  300/1200 1189.99 

Mark  XII  (1200  Baud) $259.00 

Signalman  Express 5299,00 

Ligtitning  2400  Baud 5399.00 

(B  Hayes 

Smanmodem  300 5139.00 

Smartmodem  1200 S3B9.00 

Smanmodem  1200B..- $359,00 

Smanmodem  2400 S629.00 

Micromodera  lie 5149,00 

Smart  Com  II $89-99 

Ctironograph 519900 

Transet  1000 $309,00 

PEX 

Reacn   1200  Baud  Hall  Card      $39900 

ms"  miCROBITS 

MPP-IOOOE  AD/AA  (Atari) S79.99 

MPP-t064  AD/AA  (C-64)      .         S69-99 

[Novatiofi[S 

Sman  Cat  Plus $319.00 

J. Cat $99-99 

Novation   2400 CALL 

Apple  Cat  II S229.00 

212  Apple  Cat  II...., $379,00 

Apple  Cat  212  Uporade 5229.00 

MacmoSem $319.00 

Ouadmodem  II 

300'1200 5339.00 

300/1200/2400 $499.00 

TELE  LEARNING 

C64  300  Baud (Closeout) $39,99 


GRAPHICS 


©hoala 

IBIVl S89.99 

Appte/Franklin., 579,99 

■Polaroid 

Palette ,  - $1299.00 


DRIVES 


HARD 

ALLX3V 

PC   Slor-  ,  CALL 

tDEA.v»ociji« 

5  meg  Ftemovable/lnlernal  51399.00 
10  meg  Fixed/Internal  S12490O 

15  meg  5  RemovablenO  Fixed  S2149  00 

25  meg  5  nemovat)le*20  Fixed  52499,00 

i'M£Grt- 

10  meg  Bernoulli  Box -,  .51999.00 

20  meg  Bernoulli  Box S2599.00 

5  meg    'MacNoulfi" 51499.00 

TICHNOLOOIES 

12,  25,  35,  50.  80  meg  (PC) 
(rom  $1499.00 

FLOPPY 

Atari  GT il^PUS; ^,3^ 

C-64  GT $229.00 

At, 5  Apple T^^^ 5179.00 

A2       Apple $179.00 

SD1  C-64  Single 5219.00 

S02  064  Dual - $469.00 

isndan 

320K  S»"  (PC) SI  19.00 

TEAC 

320K  S'A" 5109.00 


PRINTERS 


PC  COMPATIBLES 


300  Green S129.00 

300  Amber $139.00 

310  Amber  IBM-Plug 3169.00 

Color  300  ComposilB S179.00 

Color  500  Composile/RGB $389.00 

Color  600  Hi-Res  (640x240) S399.00 

Color  700  Hi-Bes  (720x240) $499.00 

Color  710  Long  Phosphor S579,0O 

Colo:  722  IBM  Enhanced S579.00 

12"  Amber/Green  Composite S99-93 

12"  Amber/Graen  TTL (ea,|  3119.00 

SEC 

JB  1260  Green S59.99 

JB  1201/1206  (aa.)  $99.99 

JB  1270  Green ,..313900 

JB  127S  Amber.- STte.OO 

JB  1280  G  TTU12BS  A  TTL S149.00 

JC   1410  RGB 5669.00 

PI^INCETON 

MAX-12E  Amber S1B9.00 

HX-9  9"  RGB $469.00 

HX-9E   Enhanced $519,00 

HX-12  12'    RGB S469-00 

HX.12E  Enhanced S559.00 

SR-12   Hi-Res S59B.00 

SR-12  P  Enhanced .....S649.0D 

115  12"  Green  Mono.... S1 19.00 

116  12"  Amber  Mono $119.00 

121  Green  TTL .S139.0Q 

122  Amber  TTL $149.00 

420  Hl-Res  RGB  (IBM) $429,00 

440  Ullra  Hi-Res  RGB $559.00 

8400  Quadchrome  I S47g,DQ 

8410  Quachrome  II $429.00 

8420  Amberchrome 5179,00 

8S0O  Quad  Screen 51499.00 

ykmm 

ZVM   1220/1230 (ea.)  S99.99 

ZVM  1240  IBM  Amber S149.00 

ZVM  130  Color.,.. $269.00 

ZVM  131  Color $249.00 

ZVM   133  RGBfColor $429.00 

ZVM  135  RGBfColor $459.00 

ZVM  136  RGB/Color $599.00 

Multi  110  (Apple  II) S169.00 

Graphcard-.  ~. S79  99 

Seriall  Card S99.9B 

Microbufler  II -f S169  00 

Microbutler  32K S189  00 

QUADtWI^ 

Microlazer, from  $139,00 

Elazer  (Epson) from    $79,99 

j^OfongelTlkro 

Grappler  CD  (C64) ,...$99.99 

Grapple:   +  (Apple) $$9.99 

Grapbler  16Ki-  (Apple) $159.00 

DIGITAL  DEVICES 

Ape  Face  (Atari) , $49.99 

U-Pnm  A  (Atari)--- $54.99 

U-A16/Bulfflr  (Alan) $74,99 

U-Cai|  Interlace  (Atari) $39,99 

U-Prrnt  C  (C54| $49,99 

P-16  Print  Butter $74  99 

U-Pnm  II  Apple  lie $89,99 

TVMAC 

Ce-l  Epson 559.99 

C64  Oi^idata 559.99 

C64  Star $57.99 


INTERFACES 


Canon 

A40 - CALL 

LBP-BA1    User CALL 

pCITIZEN 

MSP-10  (80  col.) ,  $279,00 

MSP-15  (132  COl.) $399.00 

MSP-20  (80  col) $349.00 

MSP-25  (132  col.) $509.00 

cmDH 

Prowriter   75D0 3219.00 

Prowriler  8510P S299.00 

Prowriler  B510  NLQ $329.00 

Prowfilet   1550P.  $449.00 

Starwriter  10-30 $459,00 

corona 

Lazer  LP-30D $2799.00 


DIABLO 


D25  Daisywheel $549.00 

630-109  Daisywheel $1749.00 

D80IF  Daisywheel CALL 

2000 $749.00 

EPSON 

LX-8a.  LX.90,  Fx-as.  Fx-ia5 

JX-BO.  DX-10,  DX-20,  SO  2000 
HS-ao,  Homewnler  10 CALL 

6000  Letter  Quality CALL 

6100  Letter  Quality CALL 

6300  Letter  Quality CALL 

NEC 

8027  Transportable S299-0D 

2000  Series S699  00 

3000  Series $1099,00 

8000  Senes $1449.00 

ELF  360 - $449.00 

Pinwnter  560 5999.00 


OKIDATA 


84,  1B2.  192.  193.  2410 CALL 

Okimale  10  (Specify  C64/Atari)S1B9.00 
Okimale  20  (IBM) CALL 

OLYMPIA 

Needlepoint  Dot  Matrix 3299.00 

Compact  HO 5339.00 

Compact  2 $369.00 

Panasonic 

KX1091 --$259-00 

KX1092 $369  00 

KX1093 S479-00 

Quadjel $399-00 

Quad  Laser CALL 

^SiLYER-REEO 

500  Letter  Duality $279.00 

550  Letter  Quality $419.00 

770  Letter  Quality 3759.00 


SQ-10C  (C64  Interlace) $NEW 

SB/SD/EG:sr  Series CALL 

Powenype  Letter  Quality CALL 

Texas  Instruments 

T1850 5529.00 

Tia5S 5799.00 

T1866.... S1049.00 

TOSHIBA 

1340  (80  column)  $589.00 

P3S1  (132  column) S1149.00 


IBM  PC  SYSTEMS 

Configured  to  your 

specification. 
Call  for  Best  Price! 

IBM-PC,  IBM-PC  II,  IBM-XT,  IBM-AT 


SOFTWARE  FOR  IBM 


Electnc  Desk  IBM-PC $199,00 

.\^HTOX-TATEB 

Framework 5369.00 

dBase  111 $369.00 

BBORIPAD 
,N"iP'ja''n«,;.: 

Turbo  Pascal  3.0 549,99 

Sideiiick-,- ..,.- 339,99 

CEHTRAL  POINT 

Copy  II  PC-Backup 529,99 

DECISION  RESOURCES 

Chartmaster $259.00 

Signmaslar 3179.00 

FOX  &  QELLER 

Quickcode  III $169.00 

FUNK  SOFTWARE 

Sideways 539,99 

®  i  Iiirviird  S<if't\\-an:  Inc. 

Harvard  Project  Manager $209.00 

Total  Project  Manager $269.00 

Human  EdRe™ 

Communication  Eflge 599.99 

Management  Edge 51 19.00 

Negotiation  Edge $139,00 

Sales  Edge S1 19  00 

LIFETREE 

Volkswnter  Duluxe 5159.00 

LIVING  VIDEOTEXT 
Think  Tank $109.00 

•  Lotus 

Symphony $439.00 

1-2-3 -.„,. $309.00 

MECA  SOFTWARE 
Managing  Vout  Money 5109.00 

[?.  :«!:>:--tii,  j 

Crosstalk  Xvi ,.,.589.99 

Microstuf  Remote 369.99 

RiBase  4000 5259.00 

RiBase   5000 3399.00 

Clout  2  0 $129-00 

lllMicroPm 

WordStar  2000 $249,00 

WordStar  20O0  + 5309,00 

WordStar   Professional 5299,00 

word .MtCW^OFT. ,„,.,„ 

Mouse 5139.00 

Flight  Simulator $39.99 

MultiPlan $129.00 

BUoItiMate 

Multi  Mate  Word  Proc $249.00 

NOUMENON 

Intuit $69.99 

NORTON 

Norton  Uliliiias  3,0 $59.99 

Peacliie«t  5000 5189.00 

PeachPack  (GL/AP/Afl) 5219,00 

^•' 

Access '.*-". 379.99 

Write/Graph/File/Plan (Ba).$79.e9 

Report $74.99 

Proof $59.99 

Professional  Software 

Wordplus-PC  w/Boss $249.00 

ROSESOFT 

Prokey S89.99 

THE  SOFTWARE  GROUP 

Enable 5339.00 

SATELLITE  SYSTEMS 

Word  Pertecl  40 $219.00 

SORCIM/IUS 

Accounting 
AP/AR/GUII^V(OE,....,..(ea,)  $295,00 

SuperCalc  111 $195.00 

EasyWriier  II  System $195.00 

Super  Project $195.00 

sn 

open  Access S379.00 

THOUOHTWARE 

Trrgger 5289,00 

Sell,  Sell,  Sell 

Training.. ..,...,.„. $299.00 

Applioalion 5179.00 


Safan  (7300) CALL 

6300 CALL 

corona 

PPC400  Dual  Portable $1239.00 

PPCXT  10  meg  Portable $1969.00 

PC40022  Dual  Desktop $1389.00 

PC400-HD2  10  meg $1989.00 

ITT 

ITT  X-TRA  -^-^-^ 

256K,  2  Drive  System CALL  I 

256K,1D  meg  Hard  Drive  System  CALL 
XPS.  20  meg CALL  | 

MBC  550-2  Single  Drive 5699.00  I 

Mac  555-2  Dual  Drive $969.00 

MBC  511  10  mag 51799.00 

MBC  67a  Ponable CALL 

MBC  880  Desktop CALL 

PC-15B.21  Single  Desktop CALL 

PC-1S8-52  Dual  Desktop CALL 

PC-15B-53  10  meg  Desktop CALL 

PC-161-21  Single  Ponable CALL 

PC-161-52  Dual  Portable CALL 

Z-200   (AT) CALL 

171  (Portable) ^....CALL 

138  (Transportable) ^^ CALL 

148  (DeskTop) V^ CALL 


MULTIFUNCTION  CARDS 


/isr 

Six  Pack  Plus 5239,00 

Mega  Plus  II - 5269.00 

UO  Plus  II 5139.00 

Advantage-AT $399.00 

(jraph  Pak $599,00 

Monograph  Plus 5399.00 

Preview  Mono 5299,00 

PC  l^et  Cards 5379  00 

5251/11  On-line - S799,D0 

5251/12  Remole $579.00 

3780  Emulation  Card ,...$639.00 

BSC  Bisyno ..3489.00 

IHMA  3270...."^^, SB79.00 

IHMA  Flint 5993.00 

Color  Card  (Graphics  Edge) $299.0C 

Magic  Card  II CALL 

Edge  Card $299,0C 

^    ^      HERCULES    _^^ 

Graphics $299, OC 

Color $169  00 

lDEAs!,odates 

IDEAmax  ■  ZPR,  64K,  C,  S,  P.S229.O0 

IDEAmmi  -  YPR,  C,  S,  P 5189.00 

IDEAminimaK  -  MPH  128K 5229,00 

IDEAshare  Software.,... $219.00 

IDEA  52S1 $699.00 

MYLEX 

The  Chairman $479,00 

PARADISF 

Modular  Graphics  Card 3279.00 

Multi  Display  Card -.-$22900 

Five  Pack  C.  S 5159.00 

PEHSYST 

Bob  Board $339.00 

Captain  -  64 5199.00 

Captain  Jf.  128K 5279.00 

Graphics  Master -- 5469.00 

Quadport-AT $119  00 

Quadmeg  ■  AT  (IZSK) 5349,00 

The  Gold  Quadboard $449.00 

The  Silver  Quadboard $239.00 

Expanded  Ouadboaid 5219.00 

Quad   512  + $229.00 

Liberty 5309  OD 

QuadSprinl $499,00 

OuadLink 5399.00 

Quadcolor  1 $199.00 

QuadJr.  Expansion  Chassis $46900 

Expansion  Chassis  Memory $199.00 

Chronagraph $79.99 

Parallel  Interlace  Board $64.99 


result  is  that  the  BAM  and  directory 
sectors  can  be  reassigned  to  differ- 
ent buffers  during  a  single  SAVE@. 
We  have  found  the  BAM  and  direc- 
tory sectors  in  every  drive  buffer 
after  different  SAVE@  commands. 
We  have  found  copies  of  the  cur- 
rent directory  sector  in  two  differ- 
ent buffers,  one  an  old  sector  and 
one  properly  updated,  but  the 
wrong  one  had  been  written  to  the 
disk.  Somehow,  the  pointers  to  the 
BAM  and  directory  sectors  are  not 
properly  accounted  for.  Which 
buffer  is  stolen  by  STLBUL  depends 
on  prior  buffer  usage  and  the  values 
stored  in  LRUTBL,Y  ($FA,Y),  the 
least  recently  used  table.  It  appears 
that  STLBUF  updates  all  pointers 
except  LRUTBL,Y.  This  means  that 
multiple  calls  to  STLBUF  may  steal 
the  wrong  buffer — in  this  case  the 
wrong  buffer  to  steal  is  the  BAM! 

The  BAM  is  stored  in  the  drive 
in  one  of  the  buffers.  STLBUF 
should  not  steal  the  drive  0  BAM, 
but  should  instead  take  back  the 
unused  buffer  incorrectly  assigned 
to  drive  1.  It  never  steals  the  drive  1 
BAM,  buffer  3  at  $600,  because 
STLBUF  cannot  take  a  buffer  which 
encountered  a  drive  error.  Remem- 
ber that  an  internal  DRIVE  NOT 
READY  error  did  occur,  because 
there  is  no  drive  1! 

To  test  this,  we  copied  into 
EPROM  an  altered  version  of  DOS 
with  STLBUF  modified  to  allow 
stealing  a  buffer  with  this  error. 
This  allowed  the  phantom  drive  1 
BAM  buffer  to  be  freed,  and  the 
SAVE@  bug  did  not  strike  during 
tests  with  this  modified  DOS. 

If  this  buffer-stealing  occurs, 
why  does  SAVE@  work  most  of  the 
time?  We  must  dig  deeper  into  DOS 
to  answer  this  question.  When  a  file 
is  opened  and  blocks  (or  sectors)  are 
written  to  a  disk,  the  BAM  is  not 
directly  updated  in  the  drive  mem- 
ory. Instead,  a  BAM  image  for  each 
of  two  tracks  is  stored  at  BAM 
($2A1-$2B0).  Each  time  a  new 
block  is  allocated  by  WUSED 
($EF90),  it  is  recorded  in  the  BAM 
image.  When  a  new  track  is  tested 
for  free  sectors,  DOS  checks  if  it  has 
a  BAM  image  for  it.  If  not,  it  calls 
SWAP  ($F05B),  which  first  updates 
the  BAM  with  the  BAM  image  from 
the  next-to-last  track,  copies  the 
new  track's  BAM  map  into  the  BAM 
image,  and  then  zeros  that  track  in 


the  BAM.  This  all  works  perfectly — 
most  of  the  time. 

After  the  last  file  sector  is  writ- 
ten to  the  disk,  the  BAM  still  has 
not  been  written  to  the  disk.  In  fact, 
the  BAM  in  the  drive  is  wrong  be- 
cause it  has  not  yet  been  updated 
from  the  BAM  images.  When  a  file 
is  closed,  the  disk  directory  is 
closed,  CLSDIR  ($DBA5),  by  read- 
ing in  the  file's  directory  sector, 
testing  for  a  replace  file  type,  and 
then  rewriting  it  to  the  disk.  MAP- 
OUT  {$EEF4)  is  called  to  read  the 
BAM  off  the  disk,  if  necessary,  and 
to  then  update  it  from  the  BAM 
images  by  calling  PUTBAM  ($F0A5). 
The  updated  BAM  is  then  written 
back  to  the  disk. 

During  a  SAVE(a)  command, 
DOS  performs  an  additional  step 
after  reading  the  directory  sector. 
The  file  type  is  designated  as  re- 
place, so  DELFIL  ($C87D)  is  called 
to  delete  the  original  version  of  the 
file  from  the  BAM.  It  reads  in  the 
BAM  if  necessary  when  freeing  the 
first  sector,  FRETS  ($EF5F),  and 
then  proceeds  to  trace  through  the 
file  and  delete  sectors  in  the  BAM 
images.  The  BAM  is  then  written  to 
the  disk. 

Bungled  BAM 

Normally  this  procedure  works  cor- 
rectly. But  havoc  results  if  the  BAM 
buffer  is  stolen  while  the  file  is  be- 
ing closed.  This  can  happen  during 
a  SAVE@  command  because  DEL- 
FIL requires  two  additional  buffers. 
The  BAM  can  be  stolen  at  different 
points  during  the  procedure,  de- 
pending on  which  buffers  were  pre- 
viously used — which,  in  turn, 
depends  on  the  number  of  sectors 
in  the  file  and  the  tracks  on  which  it 
is  stored. 

After  the  BAM  is  stolen,  it  is 
read  back  in  when  needed  and  up- 
dated from  the  BAM  images.  Only 
two  tracks  can  be  updated,  howev- 
er, since  there  are  only  two  images. 
If  more  than  two  tracks  have  been 
accessed  by  SAVE@,  the  BAM  may 
not  be  correctly  updated.  A  track 
could  be  updated  correctly,  left  un- 
changed, or  fully  allocated,  de- 
pending on  when  the  BAM  was 
stolen. 

If  extra  sectors  are  allocated, 
the  BAM  is  incorrect,  but  no  perma- 
nent harm  is  done.  A  validate  com- 
mand will  cure  the  problem.  If 
sectors  are  not  allocated,   then  a 


new  file  will  be  saved  on  top  of  the 
old  file's  sectors.  In  the  example 
program  listed  in  Part  1,  a  fourth 
SAVE@  command  would  result  in 
the  file  being  written  on  top  of  the 
old  file's  first  four  sectors,  and  then 
the  whole  new  file  would  be 
scratched — a  tragic  result,  indeed. 

Based  on  these  findings,  we 
recommend  that  you  avoid  the 
SAVE@  command  when  direct  ac- 
cess channels  to  the  drive  are  open 
or  if  you  don't  always  specify  the 
drive  number  in  disk  commands. 
You  should  also  avoid  SAVE(a> 
when  using  programs  or  cartridges 
intended  to  speed  up  access  on  the 
1541  disk  drive.  These  programs 
often  reserve  internal  drive  buffers 
and  may  cause  problems  even  if  the 
drive  number  is  specified.  If  you're 
using  the  DOS  Wedge,  we  recom- 
mend issuing  a  >UI  or  >UJ  com- 
mand before  each  SAVE@ 
command  to  be  sure  all  the  buffer 
pointers  are  reset.  Many  word  pro- 
cessors also  allow  you  to  send  these 
commands  to  the  drive.  Otherwise, 
the  drive  should  be  turned  off  and 
then  on  before  using  SAVE@.  (On 
the  SX-64,  press  the  drive  reset 
button.) 

During  our  studies  we  found 
several  other  minor  bugs  in  DOS 
V2.6,  including  the  subroutine 
which  puts  the  value  2  at  the  drive 
memory  location  $197.  This  bug 
does  no  harm  since  it  affects  a  nor- 
mally unused  section  of  drive  mem- 
ory. However,  we  have  found  it  can 
affect  DOS  routines  downloaded 
into  the  drive.  There  may  be  other 
bugs  or  quirks  which  we  have  not 
found,  so  the  Commodore  DOS 
controversy  may  never  be  fully 
closed. 


In  Part  1  of  this  article,  there  was  a 
minor  error  in  the  example  to  illus- 
trate the  problems  caused  by  not 
specifying  a  drive  number  (using  the 
DOS  Wedge  program).  The  article 
stated  that  giving  the  Wedge  com- 
mand >$TEST  results  in  a  blinking 
disk  error  light  if  the  file  TEST  does 
not  exist  on  the  disk.  .-Actually, 
>$TEST  does  not  cause  the  error 
light  to  blink  unless  it  is  used  twice 
in  succession.  The  first  >$TEST  cor- 
rectly prints  a  blank  directory  of 
drive  0,  but  leaves  the  1541  looking 
for  the  nonexistent  drive  1  so  that 
the  second  >$TEST  results  in  the 
DRIVE  NOT  READY  error  described 
last  month,  «■ 
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Atari  REMover 


This  short  BASIC  utilit\f  automatical- 
ly removes  REM  statements  from  pro- 
grams. It  runs  on  the  Atari  400/800, 
XL,  and  XE  series  computers. 


Many  programmers  use  REMark 
statements  to  document  how  their 
programs  work — a  good  program- 
ming practice.  Once  the  program  is 
finished  and  debugged,  however, 
the  REMs  can  be  deleted  to  save 
memory  and  slightly  increase  exe- 
cution speed  (although  it's  a  good 
idea  to  save  a  version  with  the 
REMs  in  case  you  have  to  make 
modifications  later).  Scanning 
through  a  program  and  deleting 
REM  statements  one  by  one  has 
always  been  a  tedious  job.  But  it's 
easy  with  "Atari  REMover." 

This  short  routine  automatical- 
ly removes  the  REMs  from  BASIC 
programs,  leaving  everything  else 
intact.  Type  in  Atari  REMover  as 
listed  below,  then  save  the  program 
by  LISTing  it  to  disk  or  cassette.  You 
must  store  the  program  with  LIST, 
rather  than  SAVE.  (Example:  LIST 
"C:"  for  cassette  or  LlST"D:/!7e- 
name.ext"  for  disk.)  Since  Atari 
REMover  deletes  itself  from  memory 
after  running,  be  sure  to  save  a  copy 
before  using  it  for  the  first  time. 

REMover  is  easy  to  use.  First 
load  the  program  from  which  you 
want  to  delete  the  REMs.  Then  ap- 
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pend  REMover  to  the  end  of  the 
first  program  by  ENTERing  it  from 
disk  or  cassette.  (Example:  ENTER 
"C:"  for  cassette  or  ENTER"D:/i7e- 
name.ext"  for  disk.)  Type  GOTO 
32000  and  press  RETURN  to  acti- 
vate REMover.  The  routine  looks 
through  your  program  and  deletes 
each  line  that  contains  nothing  but 
a  REM  statement.  If  a  multistate- 
ment  line  ends  with  REM,  the  REM 
portion  is  cut  off  and  the  line  is 
reentered. 

It  may  take  a  while  for  REMover 
to  delete  all  the  REMs  in  a  large 
program,  so  be  patient.  After  the 
job  is  done,  REMover  deletes  itself. 

Note  that  REMover  uses  line 
numbers  above  32000.  If  your  pro- 
gram uses  the  same  line  numbers, 
renumber  it  before  using  this  rou- 
tine. If  your  program  contains  a 
GOTO  or  GOSUB  to  a  REM  line 
(poor  programming  practice  in  any 
case),  change  the  line  reference 
yourself  after  using  REMover. 


Atari  REMover 

For  instructions  on  entering  this  listing,  please 
refer  to  "COUPUTEl's  Guide  to  Typing  In  Pro- 
grams" published  bimonthly  in  computei. 

00  32000  CLR  sGRAPHICS  BsSTM 
TAB  =  PEEK  C 136) +PEEK( 
137) *256:PDKE  82,2: 
POKE  BSjS^iDIM  L* ( 1 
14) 

CL32001  LINE  =  PEEK(STMTAB)+P 
EEK (STMTAB+1 ) 425  6 


(K  32002  IF  LINE  =  32000  THEN 

32015 
F(I32003  PRINT  CHR*  <  1  25  )  !  PDS 

ITION  2,A:LIST  LINE 
HH  32004  LOCATE  3  +  LEN(STR*(L 

INE) ) , 7, A: LOCATE  4+ 

LENiSTRS (LINE) ) , 7,B 

sLOCATE  5+LEN(STR*( 

LINE) ) , 7, C 
CS  32005  IF  A  =  82  AND  B  =  69  AN 

D  C=77  THEN  32009 
DP  32006  L=l;FaR  X  =  7  TO  9:Fa 

R  Y=2  TO  39: LOCATE 

Y,  X,  M: L« (L) =CHR« (M) 

!L=L+1:NEXT  Y:NEXT 

X 
BI  32007  FOR  X  =  l  TO  110:  IF  L 

*  <X,  X+3)  =  '■  :  REM"  THE 

N  32012 
ND  3200S  NEXT  X  !  STMTAB  =  STMTA 

B+PEEK (STMTAB+2) : GO 

TO  32001 
ICH  32009  PRINT  CHRS  (  1  25  )  :  PQS 

ITIGN  2,6;PRINT  LIN 

E 
NC  32010    POSITION    0,0!POKE    8 

42,  13:PDSITI0N    2, 7: 

PRINT     "CDNT" sPOaiTI 

ON     2,4:ST0P 
LH32011     POKE    842,12:BDTa     32 

001 
11(32012    PRINT    CHR»  (125)  :POS 

ITION    2,6!PRINT    L« { 

1  , X-1 )  : PRINT  "CDNT" 
FC32013  POSITION  0,0:POKE  8 

42, 13iPDSITI0N  2,4; 

STOP 
JF  32014  POKE  842,  12i  STMTAB- 

STMTAB+PEEK (STMTAB+ 

2) ! GOTO  32001 
!I  32015  PRINT  CHR*  (  125)  s  PDS 

ITION  2,6:F0R  X=320 
00  TG  32016:PRINT  X 

INEXT  XsPRINT  "PRIN 
T  CHR* ( 125) ! POKE  B4 
2, 12iEND" 
Bl  32016  POKE  842,  13:  POSITID 

N  2,2:STGP  © 
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Plus/Term 


For  Commodore  1660  Modem 


By  adding  a  few  lines  to  COMPUTE! 's 
popular  "Plus/Term"  program,  you 
can  use  it  loith  a  Commodore  64  and 
the  Commodore  1660  direcf-connect 
modem,  dialing  and  hattging  up  un- 
der program  control. 


"Plus/Term,"  published  in  COM- 
PUTE!, February  1985  (and  in  Tele- 
computing on  the  Commodore  64, 
COMPUTE!  Books),  is  an  excellent 
terminal  program,  offering  an  80- 
column  display  mode  (with 
"Screen-80,"coMPUTE!'s  gazette, 
September  1984)  and  many  other 
desirable  features.  However,  since 
my  Commodore  1660  is  a  direct- 
connect  modem  which  doesn't 
allow  manual  dialing,  1  had  no  way 
to  use  Plus/Term.  My  solution  was 
to  add  auto-dialing  and  hang-up 
routines  to  the  program. 

To  include  these  new  features 
in  Plus/Term,  you'll  first  need  to 
type  in  the  original  program.  Then 
type  in  the  additional  lines  listed 
below.  Once  you're  finished,  resave 
the  program  (perhaps  with  a  differ- 
ent name  to  distinguish  it  from  the 
original  Plus/Term). 

Plus/Term  now  offers  two  ad- 
ditional options:  You  can  dial  a 
number  from  within  the  program 
(press  D)  or  hang  up  the  line  when- 
ever you  want  (H).  After  selecting 
Dial,  type  in  the  number  you  want, 
then  choose  between  rotary  and 
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tone  dialing,  depending  on  which 
service  you  have  on  your  phone 
system.  You  may  add  spaces  or 
dashes  between  the  numbers  if  you 
like,  but  they're  not  necessary.  If 
you  press  RETURN  without  enter- 
ing a  number,  or  enter  a  string  that 
contains  no  numbers,  Plus/Term 
simply  returns  you  to  terminal 
mode.  Rotary  dialing  is  simulated 
by  rapidly  disconnecting  and  re- 
connecting the  line  the  correct 
number  of  times  for  each  number. 
Tone  dialing  signals  are  generated 
with  the  64's  SID  chip. 

Plus/Term  Modifications 

For  instructions  on  entering  this  iisting,  please 
refer  to  "COMPUTECs  Guide  to  Typing  In 
Programs"  published  bimonthly  In  COmputei. 

10  DATA152, 85, 74, 60,  117,77,168 
,44,152, 85, 168,44,  161,94,16 
8,44,117,77,85,49   :rem  156 

20  DATA152,85,85,49, 161,94, 85, 
49, 117,77, 150,54, 152, 85, 150 
,54,161,94,150,54   : rem  140 

271  PRINTA5"H.     HANG    UP"; 

: rem  68 

272  PRINTA$"D.  DIAL";  : rem  152 

281  IFM1$="H"THENP0KE56577, (PE 
EK(56577)0R32)       : rem  8 

282  IFMl $="D"THEN2020  : rem  133 
685  DIMDIG(15 ) :FORWXE=0TO9:FOR 

C0L=1T04:READSID(WXE,C0L) i 

NEXT: NEXT  : rem  3  3 

2020  3X5="" :AZ$="" : INPUT" {CLR] 

{6  DOWN) {2  RIGHT) NUMBER  T 

0  DIAL";AZ?:IFLEN{AZ$)=0T 

HEN1760  :rem  120 

2030  FORJ=1TOLEN(AZS) :G5=MID?( 

AZ$, J, 1) :IFG5=>"0"ANDGS<= 

"9"THENZX5=ZX5+G5:rem  190 


2040  NEXT :IFLEN(ZX5)=0THEN1 760 

:rem  62 
2050  PRINT" {down} {2  SPACES) 

{rvs)r{off]otary  ok  (RVS) 
Tf OFF] ONE?"       J  rem  2  32 

2060  GETTY? :IFTY$<>"R"ANDTY$<> 
"T"THEN2060       : rem  208 

2070  FORV*XE  =  lTOLEN(ZX$)  :DIG(WX 
E>=VAL(MID5(ZX$,WXE,1 ) ) :N 
EXT  :rem  154 

2080  POKE56579, (PEEK(56579)OR3 
2) :POKE56577, (PEEK(56577) 
AND223) ;FORJ=1TO600:NEXT 
:rem  127 

2090  PRINT" [3  DOWN) [5  RIGHT )DI 
ALING. . . " :IFTY$="R"THEN2] 
60  :rein  71 

2100  POKE54296, 15:POKE54276, 16 
: POKE 54283, 16 : POKE54277 , 0 
:POKE542a4,0       :rem  46 

2110  POKE54278,240:POKE54285,2 
40:POKES4  295,0:FORWXE=ITO 
LEN(ZX? )  :rem  236 

2120  POKE54272,SID{DIG(WXE) , 1 ) 
: POKE 542 7 3, SID ( DIG (WXE) , 2 
)  :rem  1 3 

2130  POKE54279,SID(DIG(WXE),3) 
: POKE 54280 , SID ( DIG (WXE } , 4 
)  : rem  23 

2140  POKE54276, 17:POKE54283,  17 
:F0RDEL=1T075:NEXT 

:rem  129 

2150  POKE54276,16:POKE54283,16 
:FORDEL=lT075 : NEXT: NEXT : P 
OKE54296, 0:GOTO1760:rem  9 

2160  FORWXE=lTOLEN(ZX$) :VA=DIG 
( WXE ) ! IFVA=0THENVA= 1 0 

: rem  1 9 

2170  FORCL=lTOVA:POKE565  77, (PE 
EK( 565  77 )OR32) :FORDEL=lTO 
26:NEXT  :rem  78 

2180  P0KE56579, (PEEK(56579)OR3 
2):POKE56577, (PEEK (56577) 
AND223) :NEXT      : rem  110 

2190  FORDEL=TTO250:NEXT;NEXT:G 
OTO1760  :rem  99 
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Atari  Animation 
With  P/M  Graphics 

Part  3 


Animation  with  Atari  player/missile 
graphics  involves  a  number  of  pro- 
gramming techniques.  Parts  1  and  2 
in  this  series  showed  how  to  design  a 
player /missile  object,  display  it  on 
the  screen,  control  its  color,  and  ani- 
mate it  horizontally.  This  month's  ar- 
ticle shows  one  method  of  vertical 
animation  without  resorting  to  ma- 
chine  language. 


As  we  saw  in  Part  2,  horizontal 
animation  with  player/missile 
graphics  is  quite  simple:  A  single 
POKE  into  the  horizontal  position 
register  moves  the  P/M  strip  to  any 
place  on  the  screen.  Last  month, 
Program  2  demonstrated  how  easy 
it  is  to  move  a  player  horizontally 
with  a  joystick. 

Vertical  animation,  however,  is 
not  so  simple.  There  is  no  such 
thing  as  a  vertical  position  register 
which  corresponds  to  the  horizon- 
tal position  register.  Since  P/M  ob- 
jects are  strips  of  memory  taller 
than  the  screen,  a  vertical  register 
wouldn't  make  sense — you  couldn't 
see  the  strip  moving,  anyway.  In- 
stead, to  achieve  vertical  animation 
your  program  must  move  the  P/M 
shape  you've  designed  through  the 
strip  of  player  memory. 

Program  1  below  is  a  slightly 
modified  version  of  last  month's 
program  which  defined  player  0  as 
a  happy  face.  It  shows  how  a  shape 
can  be  moved  through  P/M  memo- 
ry with   a   FOR-NEXT  loop   in 
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BASIC.  Plug  a  joystick  into  port  1  to 
control  the  player's  vertical  move- 
ment. As  you'll  see,  vertical  anima- 
tion in  BASIC  is  disappointingly 
slow.  BASIC  just  isn't  fast  enough 
to  move  the  player  shape  through 
memory  without  a  rippling  "inch- 
worm"  effect. 

There  are  two  solutions  to  this 
problem.  One  is  to  write  a  machine 
language  subroutine  for  verhcal 
animation.  Over  the  past  five  years, 
COMPUTE!  has  published  several 
such  routines  which  require  no 
knowledge  of  machine  language — 
you  just  drop  the  routine  into  your 
BASIC  program  and  call  it  with  a 
USR  statement.  The  back  issues  are 
now  out  of  print,  but  these  and 
various  other  routines  for  vertical 
motion  are  discussed  in  several 
books  (COMPiiT£.''s  First  Book  of 
Atari  Graphics;  Mapping  the  Atari; 
COMPUTEI's  First  Book  of  Atari 
Games;  and  COMPUTEI's  Second 
Book  of  Atari  Graphics). 

Another  solution  which  avoids 
machine  language  yet  is  compara- 
ble in  speed  takes  advantage  of 
BASIC'S  fast  string-manipulation 
routines.  We'll  cover  this  method 
here. 


A  Few  Strings  Attached 

The  string-animation  technique  de- 
pends on  making  the  computer 
think  that  a  BASIC  string  is  located 
in  the  P/M  memory  area,  rather 
than  in  the  usual  memory  area 
where  the  computer  stores  strings. 
Therefore,  when  you  redefine  the 
string,  P/M  memory  changes — and 
the  P/M  object  changes  along  with 
it.  You  can  use  this  technique  to 
rapidly  change  the  shape  of  a  play- 
er, move  it  vertically,  or  erase  it  off 
the  screen. 

Program  2  shows  how  to  fool 
the  computer  into  thinking  a  long 
string  is  located  in  the  P/M  memo- 
ry area.  A  full  explanation  is  be- 
yond the  scope  of  this  article; 
however,  even  if  you  don't  under- 
stand this  technique,  you  can  use  it 
in  your  own  programs  by  copying 
lines  10-100.  This  module  adjusts 
itself  for  single-  or  double-line  P/M 
resolution  when  you  change  the 
statement  in  line  20,  Set  MODE  =  1 
for  single-line  resolution,  or 
M0DE  =  2  for  double-line 
resolution. 

When  you  run  this  program, 
several  things  become  apparent. 
First,  it  eliminates  the  usual  delay 


Player/Missile  Addresses  Using  String  Animation 

Double-Line  Resolution      Single-Line  Resolution 


Missiles  0-3 
Player  0 
Player  1 
Player  2 
Player  3 


1-128 
128-256 
256-384 
384-512 
512-640 


1-256 

256-512 

512-768 

768-1024 

1024-1280 
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caused  by  using  a  FOR-NEXT  loop 
to  clear  out  P/M  memory  with  ze- 
ros. Instead,  the  three  statements  in 
line  100  clear  out  P/M  memory 
instantly.  This  trick  works  by  set- 
ting A$  to  zeros  after  lines  10-90 
fool  the  computer  into  thinking  that 
A$  coincides  with  P/M  memory. 

Second,  the  program  does  not 
define  the  player  shape  by  POKE- 
ing  into  P/M  memory,  as  does  Pro- 
gram 1  and  last  month's  programs. 
Instead,  the  bytes  which  form  the 
player  shape  in  line  120  are  read 
into  a  string  (B$)  in  line  110.  This  is 
the  key  to  the  string-animation 
technique.  Since  the  computer 
thinks  that  A$  overlays  P/M  mem- 
ory, the  statement  in  line  130  copies 
the  player  shape  in  B$  into  the  mid- 
dle of  the  player  0  memory  area. 
This  places  the  shape  at  midscreen. 

With  a  statement  like  A$(Y,Y 
+  LEN(B$))  =  B$,  you  can  instantly 
change  the  player's  vertical  posi- 
tion. For  an  example  of  vertical  ani- 
mation, replace  lines  130  and  140  in 
Program  2  with  the  following  lines: 

130  FOR  Y=256  TO  512 

140  fl« (Y, Y+LEN (B«) ) =B» 

150  NEXT  Y 

160  GOTO  130 

It's  a  convincing  demonstra- 
tion that  fast  vertical  motion  can  be 
easily  achieved  in  BASIC  using 
strings. 

Self-Erasing  Players 

If  you  look  closely  at  the  player 
shape  bytes  in  line  120,  you'll  no- 
tice that  a  pair  of  zeros  precedes 
and  follows  the  series  of  numbers. 
Ordinarily,  it  doesn't  make  sense  to 
see  zeros  in  player  shape  data,  be- 
cause zeros  show  up  blank  on  the 
screen.  But  these  zeros  have  a  spe- 
cial purpose.  As  the  player  shape 
moves  through  P/M  memory,  it 
would  leave  a  trail  of  itself  on  the 
screen  unless  you  erased  it  after 
every  movement.  Although  it 
would  be  easy  to  erase  the  player 
shape  by  filling  B$  with  zeros 
(using  a  formula  like  the  one  in  line 
100),  this  extra  step  would  slow 
down  the  animation  by  a  fraction  of 
second.  By  tacking  a  zero  onto  each 
end  of  the  player  data,  the  shape 
erases  itself  as  it  moves. 

In  this  case,  two  zeros  sur- 
round the  player  data.  This  allows 
even  faster  vertical  motion  by  mov- 
ing the  player  shape  two  steps  at  a 


time.  To  see  this  in  action,  add  the 
above  changes  to  Program  2  with 
this  alteration  to  line  130: 


130    FDR    Y^ 

2 


=25i     TG     512     STEP 


Now  change  STEP  2  to  STEP 
15.  As  you  can  see,  you  can  have  as 
many  shapes  displayed  in  the  verti- 
cal band  as  will  fit. 

Another  important  advantage 
of  string-animation  is  that  you  can 
store  several  different  shapes  in  dif- 
ferent strings  (such  as  B$,  C$,  D$, 
and  so  on).  You  can  instantly  flip 
between  the  shapes  simply  by  reas- 
signing A$,  as  in  A$(Y,Y  +  LEN 
(D$))  =  D$. 

What  About  Diagonals? 

Once  you  learn  how  to  move  P/M 
objects  horizontally  and  vertically, 
it's  easy  to  animate  them  diagonal- 
ly as  well.  Just  combine  a  horizontal 
step  with  each  vertical  step,  inter- 
weaving them  to  achieve  a  diagonal 
path. 

For  an  example,  start  with  Pro- 
gram 2  and  add  these  changes: 


PD 


130  FOR  Y-256  TO  511 
140  fl« (Y, Y+LEN<B«> )=B»! 

KE  53248, Y-256 
150  NEXT  Y 
160  SOTO  130 


If  you  experiment  with  these 
programs,  you  should  be  able  to 
take  it  from  here.  All  these  exam- 
ples use  player  0,  but  the  other 
players  and  missiles  can  be  used  in 
a  similar  manner.  Just  calculate  the 
vertical  screen  position  by  figuring 
where  A$  overlaps  the  appropriate 
player/missile  area,  then  position 
the  player  shape  data  at  that  point 
in  A$.  (Refer  to  the  accompanying 
table  for  a  guide.) 

Trying  drawing  a  background 
screen  with  PLOT  and  DRAVVTO, 
then  move  your  players  above  or 
beneath  it.  Also,  although  P/M 
graphics  are  commonly  used  for 
games,  try  using  these  techniques 
to  add  interest  and  variety  to  your 
text  programs  as  well.  You  can  turn 
players  or  missiles  into  thin  vertical 
lines  to  delineate  data  columns,  or 
change  them  into  cursors  that 
change  color  to  signal  for  input. 
This  three-part  series  merely  covers 
the  basics — there's  a  lot  more  to 
Atari  P/M  graphics,  such  as  priori- 
ty registers  and  collision  registers. 
The  possibilities  are  endless. 


For  instructions  on  entering  these  listings, 
please  refer  to  "COMPUTERS  Guide  to  Typing 
In  Programs"  published  bimonthly  in  computei. 

Program  1 :  Vertical  Move- 
ment Witti  FOR-NEXT 


hf  10 

NF  20 

HD  30 

EN  4  0 
HL  5  0 
PK6  0 
DP  7  0 


PA  B0 


MB  90 


LB  95 
ICD  100 

DP  1  10 

AK  120 

CL  130 

LP  140 


CF  1S0 
JK  160 

JO  170 

6D  1B0 


POKE 

POKE 

SRAP 

0,  0 

PMBA 

POKE 

POKE 

POKE 

9Bi  P 

07,  1 

POKE 

249, 

I  POK 

FOR 

MBAS 

XT  X 

VERT 

RES 

3 

REA 

POK 

NEX 

DAT 

1"?, 

,24 

S-S 

IF 

-VE 

IF 

-VE 

GOT 


106, PEEK(106) -a 
54279, PEEK (106! 
HICS  0:SETCGLDR  2, 


SE-PEE 

559,  6 

53277 

704,  6 

OKE  70 

48 

53248 
170s  PO 
E  5325 
X-PMBA 
£+2048 

ICAL-P 
TORE  I 

D  A 

E  VERT 

T  X 

A  0,24 

2S5,21 

,0 

TICK<0 
S»13  T 
RTICAL 
S"14  T 

RTICAL 
O  100 


:K<  106)  «2 
•  2 


156 


',3 

.8:P0KE  705, 
!6,  168: POKE 


,160: POKE  53 
KE  53250,180 
1  ,  190 

SE+1024  TO  P 
■POKE  X,0:NE 

MBASE-Kl  152 
FOR  X-1  TO  1 


rCAL+X, A 

,60, 126, 90, 2 
9, 195, 102,60 


) 

HEN  VERTICAL 
+1:BOTO  100 
HEN  VERTICAL 
liBOTD  100 


Program  2:  Vertical  Move- 
ment Witti  Strings 


GL  10 
DA  20 


FK30 

CE  4  0 

EH  50 

HK  60 
CD  7  0 

FB  8  0 

AK  90 
jg  100 

BB  1  10 
HF  120 

m  130 

ii  140 


DIM 
MODE 
DOUB 
SIN 
PMPA 
Ei  PO 
542 
BRAP 
0,  0: 
POKE 
KE  5 
1601 
VTAB 
K<  13 
256* 
OFFS 
-ATA 
E  FR 
LAYE 
HI-I 
OFFS 
DEi  H 
2S6* 
POKE 
AB  +  3 
sPOK 
A*( 
MOD 
« 

FOR 
B*( 
I 

DAT 
,21 
60, 
A«( 
LEN 
GOT 


A*  (  1 

-ZiR 

LE-R 

GLE 

GE-P 

KE  1 

79, P 

HICS 

PMBA 

559 
3277 
POKE 
"PEE 
S>  I  A 
PEEK 
ET-P 
BiRE 
DM  A 
R  ZE 
NT<0 
ET-2 
L-IN 
HL 

VTA 
,HI 
E  VT 
1)-C 
E>-C 


)  ,B«(1 
EM  MOD 
ES,  MO 
RES 

EEK (  10 
06,PMP 
MPA6E 

0iSET 
SE-256 
, 30+16 
, 3iPOK 

704,  6 
KC134> 
TAB-RE 
(  141  ) 
MBASE+ 
M  FIND 
TAB  ST 
RO  STA 
FFSET/ 
56«HI t 
7iL/2S 

B+2, LO 
POKE  V 
AB+7, H 
;HR*<0) 

:hr«  (0> 


5) 

E-2  FOR 
DE=1  FDR 

6)~4«MDD 
AGE: POKE 

COLOR  2, 

tPMPAGE 

tMDDEi  PO 

E  53248, 

B 

+256»PEE 

EKC140J+ 

384«M0DE 
DISTANC 
ART  TO  P 
RT 

2S6> :La- 
L-640«MO 
6) iLL-L- 

sPDKE  VT 

TAB+6, Lt 

L 

s  A*(640t 

: A* (2) "A 


1=1  TO  15tREAD  A: 
I , I )"CHR»(A) ! NEXT 

A    0,0,24, 60, 126, 90 

9,253,219, 195, 102, 

24,0, 0 

190tMaDE, 190*MODE+ 

{B«) ) -B* 

0    140-  © 
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Amiga's 


Amazing 


Graphics 


Charles  Bronnon,  Program  Editor 


Commodore's  Amiga  presents  pro- 
grammers with  more  graphics  fea- 
tures than  ever  before — both  an 
exciting  prospect  and  a  bewildering 
abundance.  This  overviezv  covers  the 
fundamentals  of  the  Amiga's  graphics 
capabilities  and  shows  how  they  dif- 
fer from  those  on  previous  personal 
computers. 


Graphics  make  the  Amiga  special. 
Although  the  Amiga's  other  fea- 
tures— such  as  its  stereo  sound, 
high-speed  68000  microprocessor, 
built-in  880K  disk  drive,  and  multi- 
tasking operating  system — are  cer- 
tainly noteworthy,  it's  the  graphics 
that  first  catch  your  eye.  The  4,096 
color  variations  allow  nearly  seam- 
less transition  between  colors;  the 
640  X  400  high-resolution  bitmap 
mode  is  close  to  broadcast  TV  quali- 
ty; and  the  custom  chips  permit 
fast,  complex  animation.  The 
Amiga  is  a  machine  for  the  artist  in 
all  of  us. 

Making  the  most  of  these  fea- 
tures requires  programmers  to  mas- 
ter some  new  techniques,  however. 
There  are  some  important  differ- 
ences between  the  way  the  Amiga 
handles  graphics  and  the  methods 
used  on  previous  personal  comput- 
ers. Of  course,  there  are  many  simi- 
larities, too. 

Mixing  A  Rainbow 

Understanding  any  computer's 
graphics  is  easier  if  you  know  some 


background  about  video  displays. 
In  any  monitor  or  TV,  video  images 
are  electronically  painted  by  elec- 
tron guns  on  the  inside  of  the  CRT 
{cathode  ray  tube,  commonly  known 
as  the  picture  tube).  From  our  point 
of  view  when  looking  at  the  screen, 
three  electron  beams  sweep  left  to 
right,  top  to  bottom,  across  the  in- 
side of  the  CRT.  The  CRT  is  coated 
with  special  phosphors  that  glow 
either  red,  green,  or  blue  when  hit 
by  the  stream  of  particles  from  the 
electron  guns.  Each  phosphor  dot 
can  glow  bright,  dim,  dark,  or  any- 
where in  between. 

Once  painted  on  the  screen, 
the  video  image  quickly  fades 
away,  so  the  electron  beams  repeat 
the  cycle  to  draw  a  new  frame  60 
times  per  second.  This  refresh  rate  is 
more  than  fast  enough  to  fool  our 
eyes  into  seeing  motion  when  the 
video  images  are  changing  each 
frame,  as  they  are  with  TV  shows 
and  animated  computer  graphics. 

Unlike  most  computers,  the 
Amiga  does  not  limit  you  to  a  fixed 
set  of  colors.  Instead,  you  mix  three 
primary  colors — red,  green,  and 
blue — to  create  your  own  custom 
colors.  Each  primary  color  has  16 
luminance,  or  brightness,  levels, 
from  0  (no  color)  to  15  (very  bright). 
This  makes  up  to  4,096  combina- 
tions possible  (16  *  16  *  16  =  4,096). 

To  display  all  these  colors,  the 
Amiga  requires  a  special  monitor 
called  analog  RGB  (red-green-blue). 


The  Amiga  also  works  with  another 
type  of  RGB  monitor,  called  digital 
RGB,  but  these  devices  can  display 
only  16  colors.  (Digital  RGB  moni- 
tors are  the  type  used  with  IBM 
computers  and  the  Commodore 
128.)  If  you  plug  the  Amiga  into  a 
regular  TV  via  its  built-in  RF  modu- 
lator, 3,616  colors  can  be  displayed. 
With  a  maximum  of  4,096 
color  combinations  available  using 
analog  RGB,  almost  any  hue  can  be 
closely  approximated.  Most  colors 
can  be  separated  into  red,  green, 
and  blue  components.  Because  vid- 
eo images  appear  as  transmitted, 
not  reflected  light,  the  red-blue- 
yellow  primary  color  mixing  you 
may  have  learned  does  not  always 
apply.  For  example,  red,  blue,  and 
green  combine  to  form  white,  not 
dark  brown.  To  get  brown  you'd 
need  to  combine  red  and  green  to 
get  a  greenish  red  color  which  ap- 
pears to  be  brown.  Turning  up  the 
brightness  of  green  and  red  gives 
yellow.  Combine  dark  red  and  dark 
blue  to  get  violet.  Bright  red  and 
dark  blue  yields  a  pastel  shade  of 
purple. 

Color  Indirection 

In  most  of  the  Amiga's  graphics 
modes,  you  cannot  display  all  4,096 
colors  simultaneously.  Instead, 
you're  limited  to  a  palette  of  16  or 
32  colors,  depending  on  the  mode. 
However,  you  can  choose  which  of 
the  4,096  colors  will  be  available  in 
the  palette. 
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CAD  PA 


®     ® 


litm 


Compiler  and  Software 
Devclopmenl:  System 


J+i 


^    " 
^  - 


Cadsak  Enhanced  Version  .  - 
Graphics  design  and  drawing 
pacl<;age.  Create  detailed  designs 
with  dimensioning,  scaling,  text, 
rotating,  more.  Use  with  or  without 
ligMpen.  Hardcopy.  $39.95 

PowerPlan  -  "one  of  the  best 
programs  ever  written  for  ttie  0-64" 
Commodore  Magazine,  Nov  1985. 
Complete  spreadsheet  with  builtin 
graphics.  Cell  formatting,  protec- 
tton,  windowing,  HELP.         $39.95 


Chartpak  -  Make  professional 
quality  pie,  bar  and  line 
charts/graphs  directly  from  your 
data.  Instantly  draw  or  redraw  charts 
to  your  specifications.  Statistics 
capabilities.  Hardcopy.  $39.95 

Super  C  -  Complete  C  language 
development  system.  Enhanced 
full-screen  editor,  compiler,  linker, 
library  and  extensive  handbook. 
Used  by  thousands  in  schools  and 
ridustry.  $79.95 


Xper  -  First  expert  system  for  C- 
128  and  C-64.  Ordinary  data  bases 
play  back  facts,  but  XPER's 
knowledge  base  help  you  identify, 
diagnosis  and  select  -  in  short 
helps  make  decisions.  $59.95 

Super  Pascal  -  Complete  Pascal 
language  development  system. 
Full-screen  editor,  compiler,  inte- 
grated assembler,  graphics  toolkit, 
fast  DOS  (3X  faster  than  1541)  and 
handbook.  $59.95 


Call  now,  for  the  name  of  your  nearest  dealer.  Or  order  directly  from  ABACUS  with  your  Mastercard,  VISA  or 
AMEX  card.  Add  $4.00  for  postage  and  handling.  Foreign  orders  add  $10.00  per  product.  Other  software  and 
books  are  also  available.  Call  or  write  for  free  catalog.  Dealer  inquiries  welcome  -  over  1 200  dealers  nationwide. 


Abacus 


liufffiiiitil 


[i '    i 


Software 


P.O.  Box  7211    Grand  Rapids,  Ml   49510 
Tel.  616/241-5510    Telex  709-101 


AUTHORATATIVE,   COMPREHENSIVE,    DEFINITIVE 

booksboolcsbooks 


^-128 
INTERNALS 


E=S3 

fPi'ia    VJtxa    i.i.i.Mi.i-i-i-i 

M.|.1,|.|.|.|,|.|.1.|.|.|.U|-    . 
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Atncus  SoftwHie 


^-128 
TRICKS  &  TIPS 


figw-sacl 


FFFra     |^2S      FRTrat^R^ 
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Abacus  Software 


^1571 
INTERNALS 
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Abicus  SofbA^e 


CP/M 
ON  THE   ^  -128 


^^^ 


^ 


H-i-13    rraiei 


'ii^iflililflflilfiiifljli^^' 


r|i:-i-i  I  i-!-i  r  tyr Vrj'if 


m 
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Abacus  Sonwire 


With  ROM  listings        For  the  programmer         With  ROM  listings       Especially  for  the  '128 
Avail.  Nov.  $19.95  Avail.   Nov.  $19.95     Avail.   Dec.  $19.95   Avail.   Dec.  $19.95 

...and  more  books. 


TracKS 
ronnif: 

COflMODOHL 

^H 

IK 

L 

ik 

Jl 

Fm  1*0  yaarc  a  basi        F.vwllt   nmong    pro-       Qulckhltang,   ••i»-lo-    Al   Urn.  I>»l    nWv.       6.«ntl    rwwl  Complaw      Inlio  to  compulafs  and      CAD  ladinlquM  usln)       Liarn  to  liasign    and 
swl«r.  C-E4    In 
w^ROM  listings. 


SBllor.  C^B*    InlomalE        gramman.    75.000+       ua.  .ouUom  to  *vat*    Bavisad  4    aipandad.      maiilenance  anci  rapair      wMid  of  loiance     Ftool      C-t!8«-«<.  Many  pro-       «tlla )otr  own  oomplw. 
.$19.95        loldwmldwMe.    »19.9S       C*«ow«r.         SUJS    (»M  blinfla.        t19.»5      piooadirea.  S1».»5      a«am(*B.  419.95      gram  aiamplH.  SI9.B5       W«.mmp(«.   tl9.»5 


OTHER 
BOOKS 
COMINa 
SOON! 


Mo£i  In d«pthlTBatrn«nl  Intro  to  machin*  Ipn-  TBd\ni{)U9K  nmw  cm-  Al  about  usjrg' pflnlvrs  A  mu&t  for  caftRBilv  Wrlt«  your  own  adv«n-  t>o£«ns  of  lnlarostin>g 
ovtitlnblfl.  Dozvns  of  guagv  gsarvd  to  C-&4.  orad  b«lof*  Inttrrupte,  end  '64.  GrtpMes.  Uxl,  ownvr.  HI  tf>a«d  ca»-  tuie«.  Laarn  &biilagy,  pro-sclA  for  your  "64. 
iKhnquH.  S1B-9G        Asuffbtw  Ihcl.    S14.9S     oontollws.  »k:.  $14.95      htoitKM.  (1B.$6       mm  tyslam,        110.05       molivBfon.  $14.B5      EuytartvJ.        (12.eS 


OPTIONAL    DISKETTES 

are  also  available  for 
each  of  our  book  titles. 
Each  diskette  contains 
the  programs  found  in  the 
book  to  save  you  the  time 
of  typing  them  in  at  the 
keyboard.  Price  of  each 
diskette  is  $14.95, 


SAVE!  Thru  Nov 
30th,  receive  the 
opt  I  o  naJ-cHs  kette 
for  1/2[  price  when 

order^g_^  the 
same  tinro^as  any 
book,   ttniy  $7.50 


Call  now,  for  the  name  of  your  nearest  dealer.  Or  order 
directly  from  ABACUS  with  your  MC,  VISA  or  AMEX  card. 
Add  $4.00  for  postage  and  handling.  Foreign  orders  add 
$6.00  per  bool<.  Other  software  and  books  are  also  avail- 
able. Call  or  write  for  free  catalog.  Dealer  inquiries  welcome 
-  over  1200  dealers  nationwide.  Call    616  /  241-5510 


Abacus  Si  Software 


P.O.  Box  7211  Grand  Rapids,  MI  49510 
Phone  616/241-5510  Telex  709-101 


The  colors  in  the  Amiga  palette 
are  determined  by  32  memory  reg- 
isters. Each  register  is  12  bits  wide 
{V/i  bytes),  the  number  of  bits 
needed  to  hold  a  number  from  0  to 
4,095. 

When  the  Amiga  draws  a  vid- 
eo image,  the  dots  that  make  it  up 
derive  their  colors  from  the  color 
registers.  In  the  320  X  200  or  320 
X  400  modes,  each  dot  on  the 
screen  can  be  colored  from  any  of 
the  32  color  registers.  Therefore,  32 
simultaneous  colors  are  possible  in 
these  modes. 

Some  computers,  such  as  the 
Commodore  64,  store  color  infor- 
mation for  the  screen  in  a  section  of 
memory  known  as  color  memory. 
Color  memory  is  a  grid  of  memory 
cells.  Each  cell  defines  the  color  of 
an  8  X  8  pixel  zone.  The  number  in 
color  memory  is  a  number  repre- 
senting 1  of  16  fixed  colors.  Other 
computers,  such  as  the  Atari  ma- 
chines, store  color  information  by 
another  method  known  as  color  in- 
direction. The  Amiga  uses  the  latter 
technique.  The  number  represent- 
ing the  dot  on  the  screen  does  not 
encode  the  color  directly,  but  in- 
stead selects  a  particular  color  regis- 
ter. The  dot  gets  its  color  indirectly 
through  the  color  register.  If  you 
change  the  color  register,  every- 
thing drawn  with  that  register  in- 
stantly changes. 

Color  indirection  is  extremely 
powerful.  Unique  glowing  effects 
are  possible  by  cycling  between  all 
the  colors  at  high  speed.  You  don't 
have  to  redraw  the  entire  screen, 
which  takes  a  lot  of  time.  You  can 
merely  change  a  color  register  to 
instantly  modify  the  appearance  of 
everything  drawn  in  that  color.  A 
single  memory  change  affects  an 
entire  screen,  which  makes  possible 
some  high-speed  effects  even  in  a 
relatively  slow  language  like 
BASIC. 

For  example,  if  you  draw  a  se- 
ries of  concentric  circles,  each  circle 
deriving  its  color  from  a  different 
color  register,  you  could  create  a  3-D 
tunnel  illusion  by  changing  the 
color  registers  in  sequence.  You 
could  fill  all  color  registers  with  the 
same  color,  then  change  one  color 
register  at  a  time  to  create  the  illu- 
sion of  growing  circles.  Objects  can 
be  made  invisible  by  changing  their 
color  to  the  same  color  as  the  screen 


background,  then  made  to  appear 
instantly  by  giving  them  a  contrast- 
ing color. 

A  Nybble  Of  Color 

Color  information  is  stored  in  the 
color  registers  by  flipping  certain 
bits  on  and  off.  Each  12-bit  register 
assigns  4  bits  for  each  primary 
color.  (A  group  of  4  bits  is  called  a 
nybble — half  of  a  byte.)  In  the  320 
X  200  and  320  X  400  modes,  here 
is  the  format  of  the  color  registers: 


11  10  9  8|7  6  5  4 
blue     I  green 


3  2  10   bit  number 
red      primary  color 


A  handy  formula  for  setting  a 
color  register  in  this  mode  is: 
BLUE*256  +  GREEN'16  +  RED 

where  the  luminance  values  of 
BLUE,  GREEN,  and  RED  range 
from  0-15. 

The  color  registers  for  the  hi- 
res 640  X  400  mode  with  an  analog 
RGB  monitor  are  a  little  trickier: 


11  10  9 
blue 


8  7  6     5  4 
green  I  rm  rl 


2  10  bit  number 
b  g  r  color 


As  you  can  see,  the  color  bits 
have  been  scattered  all  over  the  12- 
bit  range.  Bits  9-11  define  3  bits  of 
data  for  blue  (range  of  0-7);  bits  6-8 
define  3  bits  of  data  for  green  (range 
0-7).  Bits  4  and  5  are  the  low  and 
medium  bits  of  data  defining  red, 
and  bit  3  is  the  high  bit  of  red  data. 
(You  would  think  the  red  bits 
would  be  arranged  high-medium- 
low  instead  of  high-low-medium, 
but  the  Amiga  engineers  must  have 
had  some  reason  for  this  strange 
order,)  Bits  0-2  are  the  enable  bits 
for  the  red,  green,  and  blue  electron 
guns. 

The  formula  for  setting  a  color 
register  in  this  mode  is  also  more 
complicated: 

BLUE*512  -i-  GREEN*64  +  INT(RED/2)* 
16  + (RED  AND  4)*2-l-BEN*4-l-GEN 
•2  + REN 

This  formula  assumes  RED, 
GREEN,  and  BLUE  range  from  0-7; 
REN,  GEN,  and  BEN  (the  RGB  en- 
able bits)  are  either  0  or  1;  that  INT 
takes  the  integer  result  of  its  argu- 
ment (as  in  BASIC);  and  that  AND 
performs  a  bitwise  AND. 

A  Binary  Tower 

Each  screen  dot,  or  pixel,  derives  its 
color  from  one  of  these  color  regis- 
ters. How  are  these  dots  laid  out  in 
memory?  For  a  32-color  mode,  each 
pixel  is  represented  by  a  five-bit 


binary  quantity  (2^  =  32),  However, 
a  five-bit  quantity  does  not  pack 
into  a  byte  very  well.  Therefore,  the 
Amiga  maps  its  screen  memory  in  a 
different  way  from  most  computers. 

Traditionally,  computers  have 
laid  out  their  screen  memory  serial- 
ly, left  to  right,  top  to  bottom.  For 
instance,  the  Commodore  64's  multi- 
color graphics  mode  fits  four  pixels 
into  a  byte,  with  each  bit  pair  repre- 
senting one  pixel  (00  =  color  0, 
01  =  color  1,  10  =  color  2,  10  =  color 
3).  That's  why  the  Commodore  64's 
160  X  200  multicolor  mode  re- 
quires 8K  of  screen  memory.  With 
this  memory  scheme,  to  get  more 
colors  you  would  have  to  group 
more  pixels  together.  But  with  five 
bits  needed  to  store  a  single  pixel  on 
the  Amiga,  three  bits  would  be 
wasted  in  every  byte.  If  the  Amiga 
used  a  serial  scheme  to  store  its 
display,  it  would  take  64K  to  hold  a 
320  X  200  screen  with  32  colors. 

This  problem  was  solved  by 
grouping  the  bits  a  different  way. 
Instead  of  using  horizontally  adja- 
cent bits  within  the  same  byte  to 
select  a  color  register,  the  Amiga 
overlays  bytes  and  reads  the  bits 
vertically.  For  example,  all  bits  in 
bit  position  7  from  each  of  five 
overlaid  bytes  form  a  five-bit  quan- 
tity. It's  as  if  each  pixel  were  a  five- 
bit  tower  rising  above  the  screen 
map.  If  you  cross-section  the  verti- 
cal bytes  making  up  the  screen,  you 
get  five  layers  of  bits  called  bit 
planes. 

Each  bit  plane  permits  one  bit 
of  color  definition.  The  simplest 
screen  has  only  one  bit  plane,  with 
one  bit  per  pixel.  This  arrangement 
permits  only  on/off  possibilities  for 
each  pixel.  To  get  a  broader  range, 
you  need  to  add  another  bit  plane. 
That  way,  the  bit  on  the  primary  bit 
plane  and  the  bit  in  the  correspond- 
ing position  in  the  second  bit  plane 
permit  two  bits,  or  four  possibilities 
of  color  definition.  The  accompany- 
ing figure  shows  how  the  Amiga 
uses  bit  planes  for  color  selection, 
and  the  table  gives  a  summary  of 
the  Amiga's  screen  modes. 

Incidentally,  the  Amiga  has  no 
true  text  modes  like  those  found  on 
earlier  computers.  Text  is  drawn  as 
graphics  objects,  usually  in  640  X 
200  graphics,  the  default  mode 
used  by  the  Amiga's  operating  sys- 
tem, Intuition. 


122    COMPUTEI     November  1985 


0000  0001  0010  oon 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

ooc 

0000 

0000 

0000 

0000 

0000 

0011 

0011 

0010 

0000 

ooc 

0000 

0000 

0000 

0000 

oon 

oon 

0011 

0010 

0000 

000 

0000 

0000 

0000 

0011 

oon 

0000 

oon 

0010 

0000 

OOf 

coco 

0000 

oon 

oon 

0000 

0000 

oon 

0010 

0000 

00 

0000 

oon 

oon 

0001 

0001 

0001 

oon 

0010 

0000 

0^ 

oon 

oon 

0000 

0000 

0000 

0000 

001  1 

0010 

0000 

f 

0011 

0000 

0000 

0000 

0000 

0000 

0011 

0010 

0000 

.'\/^(^r\ 

--^rtr\^ 

(-lA|'l(^ 

A  A  An 

OOnn 

OAAA 

noon 

OOOn 

nA-"  ■ 

This  shows  how  screen  memory  is  mapped  serially.  Evety  pixel  is  represented  by  a 
four-bit  binary  number.  We  can  pack  turn  pixels  per  eight-bit  byte.  This  scheme  is 
not  efficient  for  packing  pixel  sizes  of  three,  five,  or  seven  bits. 

<o)<Sx'o> 


Below,  the  pixels  are  represented 
as  "binary  towers."  The  planes  on 
the  right  show  the  three-dimensional 
figure  separated  into  two-dimensional 
bit-planes. 


A  more  flexible  and  efficient  way  of  representing  multiple-bit  objects  (pixels)  is  to 
layer  the  bits  "vertically."  Each  bit-plane  is  equivalent  to  one  high-resolution 
screen.  A  pixel  is  represented  by  a  single  bit  position,  hence  eight  pixels  per  byte. 
To  permit  a  pixel  to  represent  more  than  just  on  or  off,  additional  bit  fields  are 
layered.  All  bits  in  a  corresponding  bit  position  together  define  a  four-bit  value. 


Amiga  Screen  Modes 
Mode 


Pixels  Bit  Planes      Memory     Onscreen  Colors 


Normal  res,  noninterlaced       320  X  200 


Normal  res,  interlaced 
Hi  res,  noninterlaced 
Hi  res,  interlaced 
Hold  and  modify 
Hold  and  modify 


320  X  400 
640  X  200 
640  X  400 
320  X  200 
320  X  400 


1  to  5 
1  to  S 
1  lo  4 
1  to  4 
5  or  6 
5  or  6 


8K-40K 
16K-80K 
16K-64K 
32K-128K 

48K 

96K 


2  to  32 
2  to  32 
2  to  16 
2  to  16 
256  to  4,096 
2S6  to  4,096 


Bit  Planes  Save  Memory 

Although  the  bit  planes  are  stacked 
together,  don't  think  of  them  as 
multiple,  transparent  screens.  The 
pile  of  bit  planes  creates  only  one 
screen.  Bit  planes  are  merely  a  way 
to  make  more  efficient  use  of  mem- 
ory. If  you  don't  need  32  colors,  use 
fewer  bit  planes.  Since  each  bit 
plane  uses  8K  in  320  X  200  resolu- 
tion, memory  usage  can  range  from 
8K  (one  bit  plane,  2  colors)  to  40K 
(five  bit  planes,  32  colors).  Memory 
usage  for  the  320  X  400  mode  can 
be  up  to  80K;  for  640  X  200,  64K; 
and  640  X  400  uses  as  much  as 
128K.  Again,  these  are  only  if  all 
allowed  bit  planes  are  used.  The 
mininum  memory  requirement  for 
640  X  200  is  16K,  for  a  two-color 
mode. 

The  Amiga  permits  up  to  six  bit 
planes,  though  only  five  are  used  at 
a  time  in  320  X  200  or  320  X  400 
resolution.  The  hi-res  640  X  200 
and  640  X  400  modes  use  only  four 
bit  planes,  for  a  total  of  16  colors. 
Although  six  bit  planes  are  avail- 
able, the  video  circuitry  can't  fetch 
more  than  five  bits  per  pixel  in  320 
X  200  mode,  or  it  would  lag  behind 
the  speeding  video  beam.  The  vid- 
eo beam  that  refreshes  the  picture 
can't  wait,  so  the  video  circuitry 
must  keep  up  with  the  beam. 

That's  why  640  X  200  and  640 
X  400  modes  are  limited  to  four  bit 
planes,  or  16  onscreen  colors.  The 
video  circuitry  just  can't  fetch  mem- 
ory fast  enough  to  change  twice  as 
many  pixels  per  line.  In  fact,  adja- 
cent pixels  cannot  always  have  dif- 
ferent colors  in  the  640  modes.  The 
adjacent  values  may  point  to  differ- 
ent color  registers,  but  it's  not  possi- 
ble to  fully  change  the  hardware 
color  output  between  even  and  odd 
pixels  in  the  640  mode.  A  dark 
green  pixel  to  the  right  of  a  bright 
white  one  may  appear  gray  ("dark 
white").  Only  the  luminance  infor- 
mation can  be  effectively  changed 
before  the  beam  has  left  that  pixel 
position. 

Interlaced  Modes 

Most  personal  computers  up  to 
now  have  been  limited  to  a  vertical 
resolution  of  200  scan  lines  (a  scan 
line  is  the  thin  horizontal  line  paint- 
ed on  the  CRT  by  the  electron  guns 
as  they  scan  from  left  to  right). 
However,  the  Amiga  can  make  use 
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of  interlacing  to  double  the  number 
of  scan  lines,  A  TV  or  monitor  dis- 
plays more  than  400  visible  scan 
lines,  but  normally  uses  only  every 
other  scan  line  of  a  screen,  filling  in 
the  odd  lines  with  data  from  the 
even  lines.  In  interlace  mode,  alter- 
nate screen  refreshes  are  shifted  up 
or  down  by  one  scan  line,  permit- 
ting full  vertical  resolution. 

Interlacing  on  the  Amiga 
works  like  this:  In  1/60  second,  the 
first  320  X  200  or  640  X  200  screen 
is  scanned.  Before  the  phosphors 
fade,  a  second  320  X  200  or  640  X 
200  screen  is  scanned,  shifted  down 
one  line  to  interweave  it  with  the 
previous  screen.  The  first  screen 
displays  even  lines,  and  the  second 
displays  the  odd  lines.  The  result  is 
doubled  resolution — 400  scan  lines 
instead  of  200. 

Because  the  total  picture  takes 
twice  as  long  to  display,  the  phos- 
phors in  the  even  lines  begin  to 
fade  as  the  odd  lines  are  drawn. 
Therefore,  some  flickering  and  jit- 
tering in  the  640  X  400  mode  is 
visible.  The  only  way  to  avoid  this 
would  be  to  redesign  the  monitor  to 
refresh  its  screen  at  a  faster  rate 
than  1/60  second  (a  technique  used 
by  the  Macintosh  and  Atari  ST 
monochrome  monitors). 

The  Amiga's  video  chip  is 
smart  enough  to  handle  interlacing 
with  ease.  The  bit  planes  are  laid 
out  in  memory  as  if  there  were  just 
one  continuous  320  X  400  or  640 
X  400  screen.  You  tell  the  video 
chip  how  far  to  skip  ahead  in  mem- 
ory to  display  the  next  line.  By 
choosing  an  offset  twice  the  normal 
line  width,  you  can  make  the  chip 
skip  the  odd  lines  of  data  for  the 
first  scan,  then  display  the  next 
screen  from  the  odd  lines,  skipping 
the  even  lines.  This  greatly  simpli- 
fies screen  layout.  The  operating 
system  actually  takes  care  of  these 
details,  so  vou  needn't  even  know 
how  320  X  400  or  640  X  400  are 
supported. 

Dual  Playfield  Mode 

In  the  normal-res  modes,  you  can 
set  up  and  overlay  two  indepen- 
dent graphics  screens.  A  portion  of 
one  screen  can  be  transparent  to 
show  the  underlying  screen.  You 
can  specify  which  screen  has  priori- 
ty over  the  other.  Each  screen  can 
be  manipulated  independently, 
even  resized  and  moved  over  or 


under  the  other. 

The  overlay  screens  can  use  up 
to  three  bit  planes  each,  since  there 
are  six  available.  However,  you  can 
use  fewer  bit  planes  if  you  want  to 
save  memory  at  the  expense  of 
color  selection.  Three  bit  planes 
permit  only  eight  colors  per  screen, 
but  each  screen  has  its  own  color 
palette.  And  the  palettes  can  con- 
tain any  of  the  4,096  hues,  of 
course. 

Dual  playfields  raise  some  ex- 
citing possibilities.  In  a  game,  one 
screen  could  show  your  cockpit 
window  or  starship  control  panel, 
with  the  windshield  or  viewport 
simply  a  transparent  hole.  The  sec- 
ondary screen  could  show  your 
view  of  the  sky  or  of  the  depths  of 
space,  visible  through  the  transpar- 
ent part  of  the  primary  screen. 

Intuition  uses  this  feature  to  let 
you  slide  down  the  top  screen  to  see 
another  behind  it.  For  business  ap- 
plications, you  could  have  two 
spreadsheets  or  documents  running 
on  the  two  screens  simultaneously. 
Each  screen  can  have  its  own  win- 
dows, too. 

Fine  Scrolling 

Scrolling  is  a  technique  that  lets  an 
actual  screen  pan  across  a  much 
larger  virtual  screen.  The  actual 
screen  is  what  you  see  on  the  moni- 
tor; the  virtual  screen  includes  the 
portions  which  won't  fit  on  the 
monitor  but  can  be  scrolled  into 
view.  Scrolling  lets  you  work  with  a 
very  large  document,  spreadsheet, 
or  page  of  graphics,  and  also  makes 
for  exciting  computer  games  (such 
as  Defender  or  Eastern  Front). 

Some  computers  are  limited  to 
coarse  scrolling — the  actual  screen 
can  be  scrolled  over  the  virtual 
screen  only  in  character-sized  in- 
crements. Fine  scrolling  is  a  more 
difficult  technique  that  scrolls  the 
actual  screen  pixel  by  pixel. 

Fine  scrolling  is  easy  on  the 
Amiga.  The  start  of  the  screen  map 
is  found  in  two  memory  registers 
which  are  bit  plane  pointers.  To 
scroll  the  screen  up,  just  change  the 
registers  to  point  one  line  higher  in 
memory.  To  scroll  down,  you  sub- 
tract the  line  width  from  the  bit 
plane  pointers,  displaying  from  the 
previously  off-screen  line  of  data. 

For  horizontal  scrolling,  a  sin- 
gle register  lets  you  shift  the  screen 
by  up  to  16  positions.  You  must 


fetch  an  extra  data  word  per  line  to 
provide  the  pixels  that  should  ap- 
pear as  the  screen  is  scrolled.  After 
you've  scrolled  16  times,  the  pro- 
gram must  perform  a  coarse  scroll 
by  repointing  the  bit  plane  pointer 
to  the  next  word  of  memory.  The 
whole  display  appears  to  move,  but 
you're  really  just  displaying  a  dif- 
ferent section  of  memory. 

4,096  Colors  At  Once 

A  special  video  mode  lets  you  dis- 
play more  than  just  32  colors  at  a 
time.  Hold  and  modify  mode  can 
display  4,096  colors  simultaneously 
in  the  normal-res  modes. 

It's  a  difficult  mode  to  use, 
though.  Each  pixel  is  defined  as  a 
modification  of  the  color  of  the  pre- 
vious pixel.  You  can  hold  this  val- 
ue, and  modify  a  portion  of  it 
(hence  hold  and  modify).  Instead  of 
bit  plane  data  defining  a  color  regis- 
ter, the  bits  from  bit  planes  5  and  6 
determine  which  portion  of  the  pre- 
vious color  output  should  be  modi- 
fied, and  the  bits  from  bit  planes 
0-4  are  substituted  in  the  selected 
portion  of  the  color  output. 

You  can  define  an  entire  screen 
of  color,  even  the  background  color, 
just  by  modifying  a  single  color  reg- 
ister in  this  mode.  You  could  start 
with  bright  white,  then  set  the  blue 
bits  to  zero  to  select  yellow.  From 
yellow  you  can  decrease  the  red 
level  to  get  green.  You  could  then 
turn  off  the  green  bits  to  get  black, 
which  can  in  turn  be  modified  to 
get  bright  blue.  You  can  modify 
only  the  R,  G,  or  B  portion,  or  start 
over  with  data  from  a  new  color 
register. 

Since  color  in  the  hold  and 
modify  mode  is  dependent  on  pre- 
vious values,  changing  one  pixel 
could  change  the  colors  of  all  fol- 
lowing ones.  It's  a  difficult  mode  to 
use  for  dynamic  displays,  so  it  is 
best  suited  for  static  pictures  that 
need  4,096  colors. 

There's  much  more  to  the  Ami- 
ga's graphics  than  we  can  cover  in 
this  article.  We  haven't  even  begun 
to  discuss  blitter  animation,  sprites, 
the  copper  (video  coprocessor),  and 
options  like  external  video  mixing, 
video  digitizing,  and  frame- 
grabbing.  It  will  probably  be  a 
while  before  programmers  learn  to 
take  advantage  of  all  these  features. 
In  the  meantime,  we'll  have  a  lot  to 
look  forward  to.  ® 
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A  Better  Way  To  POKE 
On  The  Commodore  64 


This  "program-writing  program"  for 
the  Commodore  64  can  speed  up  any 
BASIC  routine  that  uses  POKE  to  fill 
large  areas  of  memory.  Using  clever 
programming  techniques,  it  writes  a 
new  routine  that  employs  fast  PRINT 
statements  in  place  of  POKEs. 


BASIC  programs  often  require  that 
you  fill  a  certain  memory  area  with 
data.  The  data  may  be  a  machine 
language  routine,  sprite  shape  defi- 
nitions, a  high-resolution  graphics 
screen,  or  whatever.  In  most  cases, 
the  job  is  done  with  POKE  state- 
ments: The  program  READs  values 
from  DATA  statements  and  POKEs 
each  value  into  the  computer's 
memory.  Unfortunately,  POKE  is 
one  of  BASIC'S  slower  statements. 
In  fact,  it's  so  slow  that  some  pro- 
grams display  countdown  timers 
during  memory-filling  operations 
to  tell  you  how  much  longer  you'll 
have  to  wait. 

PRINT,  on  the  other  hand,  is 
very  fast.  Though  it's  intended  for  a 
different  purpose  than  POKE, 
PRINT  also  puts  new  values  into 
certain  memory  locations.  After  all, 
the  screen  is  just  another  memory 
area  in  the  computer:  It  consists  of 
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1000  locations  numbered  from 
1024  to  2023,  with  1024  at  the 
upper-left  corner.  When  you 
PRINT  the  letter  A  in  the  upper-left 
corner  of  the  screen,  you're  storing 
a  new  value  in  memory  location 
1024.  Because  of  this  similarity,  it's 
possible  to  store  values  in  memory 
with  PRINT  instead  of  POKE. 

However,  PRINT'S  memory- 
changing  ability  has  certain  limita- 
tions. Usually,  you  can  print  only  in 
the  1000-character  screen  memory 
area.  And  after  you've  changed 
character  999,  the  screen  begins  to 
scroll.  The  top  line  of  the  screen 
disappears,  and  everything  below 
that  line  moves  up.  Finally,  POKE 
and  PRINT  use  different  codes  to 
represent  characters,  requiring  con- 
version from  Commodore  ASCII 
(for  PRINT)  to  screen  code  values 
(for  POKE). 

POKEing  With  PRINT 

"Print  Poker"  solves  ail  those  prob- 
lems. If  you  already  have  a  routine 
that  uses  POKEs  to  fii!  memory. 
Print  Poker  can  write  a  new,  faster 
routine  that  does  the  same  job  with 
PRINTS.  You  don't  have  to  under- 
stand how  the  special  PRINT  tech- 
nique works  to  use  Print  Poker;  it 
automatically  creates  new  BASIC 
program    lines    containing    every- 


thing you  need.  Type^  in  the  pro- 
gram listed  below,  and  then  save  it. 
Because  this  program  does  some 
unusual  things,  be  sure  to  read  the 
following  instructions  before  you 
try  to  run  it. 

As  an  example,  say  you've 
written  a  routine  that  puts  eight  sets 
of  sprite  shape  data  in  memory  lo- 
cations 12288-12798.  Your  routine 
works  fine,  but  POKEing  the  data 
into  those  511  locations  causes  a 
noticeable  delay.  The  Print  Poker 
program  can  write  a  new  BASIC 
routine  that  uses  PRINT  to  do  the 
same  job  more  quickly.  Before  you 
run  it,  however,  you  must  run  your 
ozon  routine  to  put  the  sprite  data  in 
memory.  (Print  Poker  works  only 
when  the  needed  data  is  already  in 
the  proper  memory  area.) 

Once  that's  done,  enter  NEW. 
Now  you  can  load  and  run  Print 
Poker.  The  program  first  asks  you 
for  beginning  and  ending  address- 
es, in  this  case,  you  want  the  special 
PRINT  statements  to  fill  locations 
12288-12798,  so  you  enter  12288 
for  the  beginning  address  and 
12798  for  the  ending.  This  tells  the 
program  which  memory  area  to 
look  at  when  creating  the  special 
PRINT  statements. 

Next,  you're  asked  to  enter  a 
starting  line  number.  This  is  the 


November  1985     COMPUTE!      125 


first  line  number  of  the  routine 
Print  Poker  is  about  to  write  for 
you.  Use  whatever  line  number  is 
appropriate  for  your  routine.  Since 
Print  Poker  itself  uses  line  numbers 
from  60000  to  60380,  use  numbers 
considerably  below  60000  to  pre- 
vent a  conflict.  The  program  also 
asks  you  for  a  line  increment.  Since 
you  won't  have  any  reason  to  edit 
the  new  routine  after  it's  made,  line 
increments  of  two  or  five  are  fine. 
Finally,  you're  asked  whether 
Print  Poker  should  delete  itself 
when  it's  finished.  If  you're  creat- 
ing only  one  new  routine,  press  Y  to 
answer  yes.  Press  N  for  no  if  you're 
creating  two  or  more  sets  of  special 
PRINT  statements  in  a  single  ses- 
sion. (Use  RUN  60000  to  run  Print 
Poker  a  second  time.  You  should 
always  delete  Print  Poker  the  last 
time  it's  used.) 

One  Program  Writes 
Another 

After  you  answer  all  the  prompts. 
Print  Poker  goes  to  work,  using  the 
dynamic  keyboard  technique  to  write 
each  line  of  your  new  routine.  The 
program  itself  is  writing  another 
program.  First,  it  puts  a  line  number 
and  the  needed  characters  on  the 
screen.  Then  it  stores  the  line  in 
BASIC  memory  just  as  if  you'd 
moved  the  cursor  to  that  line  and 
pressed  RETURN.  When  large 
memory  areas  are  involved,  this 
may  take  a  couple  of  minutes.  After 
the  program  stops  and  the  blinking 
cursor  reappears,  your  new  routine 
is  complete,  ready  to  be  saved  and 
incorporated  into  a  program. 

The  special  PRINT  statements 
look  quite  strange,  of  course.  Be- 
cause POKE  can  take  any  value 
from  0  to  255,  the  equivalent 
PRINT  statement  is  usually  a  col- 
lection of  graphics  characters,  in- 
cluding some  nonprinting  character 
values  like  CHR$(2).  Such  lines  are 
difficult  if  not  impossible  to  edit. 
Thus,  it's  best  to  use  Print  Poker 
only  when  your  data  is  in  final  form 
(after  you've  finished  making 
changes  in  the  sprite  shapes  and  so 
on).  If  you  must  make  a  change, 
you'll  find  it  much  easier  to  change 
and  rerun  the  POKE  version  of  your 
routine,  and  then  run  Print  Poker 
again. 

It  took  some  creative  program- 
ming to  overcome  PRINT'S  limita- 


tions. The  value  stored  in  location 

648  tells  the  64  where  in  memory 
PRINT  should  put  its  data.  By  care- 
fully manipulating  the  value  in  648, 
you  can  divert  PRINT'S  output  to 
any  memory  location  in  the  com- 
puter and  defeat  screen  scrolling  as 
well.  When  Print  Poker  has  fin- 
ished its  work,  it  sets  everything 
back  to  normal  with  POKE  648,  4, 
Note  that  this  technique  does  not 
work  correctly  in  the  highest  256 
bytes  of  memory  used  by  BASIC 
(locations  40740-40959).  Use  the 
conventional  POKE  method  to  put 
data  in  those  locations.  In  addition, 
if  you  intend  to  put  data  at  the  top 
of  BASIC  user  space,  with  Print 
Poker  or  without  it,  remember  to 
move  down  the  top-of-BASIC  and 
top-of-string  storage  pointers  to 
protect  your  data. 


Print  Poker 

For  instructions  on  entering  this  listfng,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  publislied  bimonttily  In  coiwputE!. 

6000S  P0KE53281, 14: PRINT" iCLR) 
{DOWNIIbLK} (9  SPACESiP  R 

I  N  T{3  SPACES 3 P  0  K  E 
{space] R"  :rem  6 

60010  INPUT" [5  DOWN) STARTING  A 
DDRESS";S         srem  32 

60020  INPUT" (2  down) ENDING  ADD 
RESS";E  trem  41 

60030  INPUT" (2  DOWNJSTARTING  L 
INE  NUMBER" jL    :rem  211 

60040  INPUT"  (2  DOWIS)LINE  INCRE 
HENT";I  irein  65 

60050  INPUT" (2  DOWN) SELF-  DEST 
RUCT  (Y/N)";D?   :rem  128 

60060  Vl=INT(S/256) :V2=S-256*V 
1 : IFLEFT $ ( D$  ,  1 )  =  " Y " THEND 
=1  :rem  209 

60070  PRINT" (CLR)"L" 

[11  SPACES )P1=PE( 648 ) :PO 
648,  "V1":A$=CH(34)-HCH(34 
)+CH(20)"         :rem  31 

60080  L=L+I: PRINT tPRINTL" 

{11  SPACES )?"CHR$( 34)" 
{HOMEj"CHR?(34)";"; : IFV2 
=0THEN60100      :rem  11 

60090  PRINT" : FORX=lTO" V2 " : ? " CH 
R? ( 34 ) " {RIGHT } "CHR? ( 34 ) " 
; : NE ": PRINT :RL=601 10: GOT 
O60370  :rem  133 

60100  PRINT: PRINT :RL=601 10: GOT 
060370  :rem  203 

60110  PRINT" (CLR) "L"PRINT"CHR? 
(34) ; :PS=1024+POS(X) :FOR 
X=1T012:PRINT"{6  SPACES) 
"; :NEXT         srem  192 

60120  PRINT: PRINT :FORX=0TO3:A$ 
(X)=MID$(CHR5(34)+"{A]?" 
+CHR$(34),X+1,1):NEXT 

:rem  196 

60130  S1=PEEK(S) :IFS=ETHEN6024 
0  :rem  77 

60140  S1=PEEK(S) :IFS1AND128AND 
R=0THENPOKEPS , 146 : PS=PS+ 
1:R=1:GOTO60160   :rem  29 


60150  IF(S1AND127)=S1ANDR=1THE 
NPOKEPS, 210 : PS=PS+l : R=0 
:rein  243 

60160  IFSl=340RSl=162THENPORX= 
0TO3:POKEPS+X,ASC(A$(X)) 
: NEXT : PS=PS+3 : GOTO601 80 
: r  em  87 

60170  POKEPS, (S1AND127) :rem  62 

60180  IFCS+l}/256=INT((S+l)/25 
6)THENS2  =  INTCS/2S6)-l-l:GO 
TO60220  :rem  180 

60190  IFPS>1090THEN60210 

:irem  98 

60200  PS=PS+l!S=S+l:GOTQ60130 

:rem  189 

60210    POKEPS+1,  34:POKEPS+2,59: 

RL=60110!S=S-t-l:GOTO60  3  70 

:rem   182 

60220  POKEPS+1, 34:POKEPS+2, 59: 
L=L+I : PRINT : PRINT: PRINTL 
"P0648, "S2":7:?:?"; 

:rem  130 

60230  PRINTCHR5(34)"{H0ME) "CHR 
5(34)",-  ":RL=60110:  PRINT: 
S=S+1:GOTO  60370:rem  144 

60240  POKEPS+1, 34 :P0KEPS+2,  59: 
PRINTL+I"{11  SPACES)"; 

:rera  198 

60250  PRINT"P0648,P1:?"CHR5(34 
) " [HOHEp'CHR? ( 34 ) : RL=-1 : 
IFDTHENRL=60280    : rem  8 

60260  GOTO60370         jrem  55 

60270  HL=60300: PRINT" ICLR36000 
0" :PRINT"60010" : PRINT"60 
020":PRINT"60030" 

:rem  112 

60280  PRINT"60040"!PRINr"60050 
" :PRINT"60060" :PRINT"600 
70 { DOWN} " : GOTO60380 

:rem  101 

60290  RL=60320:PRINT"{CLR)6008 
0": PRINT "60090" : PRINT" 60 
100":PRINT"60110" 

:rem  130 

60300  PRINT"60I20":PRINT"60130 
" : PRINT " 60140 " : PRINT " 601 
60 {DOWN) "iGOTO60380 

:rem  91 

60310  RL=60340:PRINT"{CLR}6017 
0" ;PRINT"60180" :PRINT"60 
135":PRINT"60200" 

:rem  133 

60320  PRINT"60210":PRINr"60220 
" : PRINT"60230" :PRINT"602 
40 { down) " : GOTO60380 

:rem  92 

60330  RL=60360: PRINT" {CLR) 6025 
0" :PRINT"60260" :PRINT"60 
270":PRINT"60280" 

irem  143 

60340  PRINT"60290"tPRINT"60300 
" : PRINT"60310" : PRINT"603 
20{DOWNJ":GOTO60380 

:rem  99 

60350  RL=-1: PRINT" [CLR} 60330": 
PRINT"60340" :PRINT"60350 
":PRINT"60360"   : rem  236 

60360  PRINT"60370":PRINT"60380 
" :PRINT"60390" :PRINT"601 
05 {down}"         srem  1 

60370  PRINT"S="S"{LEFT) :E="E" 
[left) iL="L+I"{LEFT3 :I=" 
I"{LEFT):D="D"{LEFT) :R=" 
R;  :ren)  251 

60330  PRINT" {left} : GOTO" RL" 

{D0WN}":P0KE631, 19:F0RX= 
6  3  2TO640:POKEX, 13:NEXT:P 
OKE198,10         :rem  94 
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Adding  TIME$  To  Atari 


Here's  a  useful  routine  that  adds  a 
missing  feature  to  Atari  BASIC: 
TIMES.  Noiv  your  programs  can  have 
realtime  clocks  and  timed  loops  with- 
out PEEKs  or  POKEs.  Requires  only 
8K  RAM  for  cassette  or  IBK  RAM  for 
disk  (with  DOS  2.0,  2.5,  and  3.0). 


Atari  BASIC  is  a  very  versatile  and 
useful  language.  However,  like  all 
computer  languages,  it  is  not  per- 
fect. One  useful  feature  that  Atari 
BASIC  lacks  is  the  TIMES  function. 
For  beginners,  TIMES  provides  a 
method  to  accurately  time  loops; 
for  advanced  programmers,  TIMES 
is  a  useful  tool  for  avoiding  the 
system  timers,  saving  a  lot  of  extra- 
neous coding. 

Timing  from  BASIC  usually 
comes  in  two  forms:  TIMES  and  fl 
(or  some  other  appropriate  numeric 
variable).  Both  supply  the  same 
information,  but  TIMES  represents 
the  time  as  "HH:MM:SS"  (or 
"HHMMSS")  and  TI  represents  the 
time  in  jiffies  (1/60  second).  In  gen- 
eral, TIMES  is  more  useful  because 
it  is  already  formatted  and  ready  for 
printing.  Program  1  adds  the 
TIMES  function  to  Atari  BASIC, 
giving  you  easy  access  to  the  time 
without  ever  touching  the  system 
timers. 

A  Few  Rules 

Since  we're  patching  this  function 
into  Atari  BASIC,  there  are  a  few 
rules  to  follow  for  it  to  work  proper- 
ly. First,  TIMES  must  be  DIMen- 
sioned  like  any  other  string 
variable,  and  it  must  be  the  first 
variable  of  any  kind  to  appear  in 
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your  program.  To  DIMension  it,  al- 
ways use  DIM  TIME$(8).  To  acti- 
vate the  routine,  use  A  =  USR(1536) 
after  it  has  been  loaded  into  memo- 
ry. (The  routine  automatically 
changes  the  dimension  to  eight  and 
the  length  to  eight  no  matter  what 
you  specify  in  the  DIM  statement, 
but  it  is  best  to  use  the  correct  value 
to  avoid  slight  inaccuracies  rippling 
throughout  BASIC  as  a  result.) 

Second,  TIMES  must  always 
be  the  first  variable  BASIC  sees 
when  you  LOAD  or  ENTER  a  pro- 
gram. If  a  new  program  is  typed  in 
with  TIMES  as  the  first  variable,  no 
problems  will  result.  However, 
adding  TIMES  to  a  program  already 
on  tape  or  disk  is  a  little  tricky,  but 
not  very  difficult.  First,  load  your 
program  into  the  computer  (using 
LOAD  or  ENTER).  When  the 
READY  prompt  appears,  add  DIM 
TIMES  (8):  A  =  USR(1536)  as  the 
very  first  executable  (non-REM  or 
DATA)  line  in  your  program.  Then 
add  any  features  using  TIMES  to 
your  program.  (This  step  can  be 
done  at  any  time  as  long  as  the  first 
line  is  already  in  the  program.) 
Then  store  the  program  on  tape  or 
disk  with  the  LIST  command. 

Using  SAVE  instead  of  LIST 
disables  TIMES  when  the  program 
is  loaded,  because  TIMES  will  not 
be  the  first  variable  in  BASIC'S  vari- 
able name  table  (which  holds  the 
name  of  every  variable  in  your  pro- 
gram). If  you  want  to  store  the  pro- 
gram with  SAVE  rather  than  LIST, 
just  type  NEW  (to  clear  the  variable 
name  table)  and  reENTER  the  pro- 
gram after  you  have  LISTed  it  to 
tape  or  disk.  This  rewrites  the  vari- 
able name  table  in  the  order  that 


the  variables  appear  in  the  pro- 
gram: TIMES  should  be  first. 

Once  TIMES  is  first  in  the  vari- 
able name  table,  subsequent  SAVEs 
will  not  change  its  position,  and 
everything  will  work  smoothly. 

The  last  rule,  and  probably  the 
most  important,  is  to  avoid  the  CLR 
command.  When  CLR  is  executed 
while  TIMES  is  activated,  the  time 
will  be  lost  and  TIMES  will  show 
"junk."  Then  you'll  have  to  either 
type  NEW  and  repeat  the  steps 
above  or  simply  rerun  the  program 
(since  RUN  clears  all  variables  and 
cleans  things  up). 

An  Autoboot  Routine 

The  A  =  USR(1536)  statement  after 
the  DIM  statement  actually  sets 
TIMES  to  "00:00:00"  and  activates 
the  routine.  The  time  will  be  ex- 
pressed in  military  format,  from 
00:00:00  to  23:59:59,  Then  it  re- 
turns to  00:00:00  and  begins  to 
count  upward  again. 

The  TIMES  program  was  writ- 
ten to  be  used  as  an  autoboot  file — 
AUTORUN.SYS  with  disk  and  a 
boot  tape  with  cassette.  For  a  disk- 
based  system,  run  Program  1  and 
specify  disk  at  the  prompt.  Remem- 
ber, however,  that  this  will  erase  an 
existing  AUTORUN.SYS  file  on  the 
disk,  unless  the  AUTORUN.SYS 
file  is  locked,  in  which  case  the 
SAVE  will  fail. 

For  cassette-based  systems,  run 
Program  1  and  specify  cassette.  The 
loader  program  will  modify  the 
TIMES  routine  to  make  a  boot  tape. 

In  either  case,  loading  the  pro- 
gram on  power  up  is  simple.  For 
disk,  just  boot  up  with  the  disk 
containing  the  AUTORUN.SYS  file. 
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The  routine  loads  into  memory  and 
can  be  acti%'ated  with  the  DIM 
TIMES  (8):A=USR(1536)  sequence. 
For  cassette,  boot  the  program  by 
holding  down  the  START  button 
while  turning  on  the  computer. 
Press  RETURN  when  the  buzzer 
sounds,  and  the  program  automati- 
cally loads  into  memory.  Again, 
activate  the  routine  with  the  DIM 
TIME$(8):  A=USR(1536)  sequence. 

You  can  set  the  time  by  using 
normal  string  manipulations.  For 
example,  to  set  TIMES  to  11  a.m., 
just  type  TIMES  =  "11:00:00".  If 
you  press  SYSTEM  RESET,  the 
time  will  not  be  stopped.  Once 
started,  the  only  way  to  stop  the 
time  is  to  use  NEW.  As  long  as 
TIMES  remains  first  in  the  variable 
name  table,  the  counter  will  contin- 
ue to  update  the  time.  No  other 
special  commands  or  techniques 
are  required. 

To  see  TIMES  at  work,  try  run- 
ning Program  2  after  TIMES  is  acti- 
vated. The  program  asks  for  the 
current  time  and  the  time  to  sound 
an  alarm  (both  in  HH:MM:S5  for- 
mat). The  computer  displays  the 
time  until  the  alarm  time  arrives 
and  then  sounds  five  bell  charac- 
ters. Program  2  shows  how  TIMES 
can  be  used  like  any  other  string 
variable. 

How  TIME$  Ticks 

The  TIMES  routine  takes  advantage 
of  the  Atari's  timers.  Atari  comput- 
ers contain  many  timers,  but  the 
ones  most  often  used  are  the  five 
two-byte  timers  at  memory  ad- 
dresses 536-545  ($218  to  $221 
hex).  Each  timer  is  set  up  in  the 
usual  6502  least  significant  byte 
(LSB),  most  significant  byte  (MSB) 
order. 

Unlike  most  of  the  other  sys- 
tem timers,  however,  these  timers 
count  down  to  zero  instead  of 
coundng  up  from  zero.  During  each 
vertical  blank  period,  each  timer  is 
decremented.  Since  a  vertical  blank 
occurs  every  1/60  second  and  the 
highest  timer  value  possible  is 
65535,  the  timers  can  time  a  maxi- 
mum of  18  minutes,  12V4  seconds 
each.  When  a  timer  counts  down  to 
zero,  one  of  two  things  happens: 
Either  a  flag  is  set  or  a  JSR  (machine 
language  Jump  to  SubRoutine)  is 
executed.  For  timers  3,  4,  and  5,  a 
flag  is  set:  CDTMF3  (address  554, 


$22A  hex)  for  timer  3,  CDTMF4 
(556,  $22C  hex)  for  timer  4,  and 
CDTMF5  (558,  $22E  hex)  for  timer 
5.  When  timer  1  or  2  counts  down 
to  0,  a  JSR  is  executed  through 
CDTMAl  (550  and  551,  $226  and 
$227  hex)  for  timer  1,  and 
CDTMA2  (552  and  553,  $228  and 
$229  hex)  for  dmer  2. 

TIME$  uses  timer  2.  Timer  3, 4, 
or  5  would  require  another  routine 
to  monitor  the  appropriate  flag. 
Timers  2  through  5  are  stopped 
during  critical  vertical  blanks, 
which  occur  during  input/output 
with  peripherals.  Timer  1  seems 
ideal,  since  it's  the  only  timer  that 
isn't  affected  by  the  critical  vertical 
blanks.  However,  the  serial  input/ 
output  handler  (SIO)  uses  it  as  a 
device  timeout  timer  (to  provide  us 
with  the  ever-famous  ERROR-138). 
So  the  TIMES  routine  is  forced  to 
use  timer  2. 

Furthermore,  to  create  an  in- 
terrupt every  second,  the  routine 
stores  a  value  of  60  into  the  timer 
(remember,  the  timer  is  decrement- 
ed every  1/60  second),  and  the  in- 
terrupt service  routine  resets  the 
timer  to  60  at  each  interrupt.  The 
only  drawback  is  that  input/output 
with  peripherals  temporarily  stops 
the  timer,  and  TIMES  will  be  slight- 
ly behind  the  true  time  (but  can  be 
easily  changed  as  shown  above). 

Startup  Routines 

The  initial  call  to  the  startup  routine 
checks  to  see  if  TIMES  is  the  first 
variable  and,  if  so,  sets  up  the  vec- 
tor for  the  interrupt  update  routine, 
intercepts  the  SYSTEM  RESET  ini- 
tialization vector  (to  keep  the  inter- 
rupt routine  going  after  a  SYSTEM 
RESET),  determines  the  address  of 
TIMES,  sets  its  length  and  dimen- 
sion to  eight,  initializes  TIMES  to 
00:00:00,  and  returns  to  BASIC. 
The  interrupt  service  routine  again 
checks  to  make  sure  TIMES  is  the 
first  variable  (just  in  case  a  NEW 
was  executed),  determines  the  ad- 
dress of  TIMES  again  (since  its  ad- 
dress may  change  as  a  result  of 
additions  and  corrections  to  the 
program  in  memory),  sets  the 
length  and  dimension  to  eight  (just 
in  case),  and  resets  the  timer  value 
to  60  to  cause  another  interrupt  one 
second  later. 

Of  course,  during  this  entire 
process,  TIMES  is  updated  to  reflect 


the  change  in  dme.  If  a  NEW  has 
been  executed  since  the  last  inter- 
rupt, the  value  of  TIMES  is  not  up- 
dated and  the  timer  is  not  reset  to 
60,  In  other  words,  if  a  NEW  occurs, 
the  routine  effectively  dismantles 
itself.  The  routine  must  be  restarted 
with  another  DIM  TIMES(8):A  = 
USR  (1536)  sequence. 

The  program  traps  NEW  but 
not  CLR  because  it  is  difficult  to  tell 
when  a  CLR  has  been  executed — 
CLR  does  not  cause  any  actions 
within  BASIC'S  tables  that  could 
not  be  caused  by  some  other  com- 
mand or  routine.  Since  NEW  effec- 
dvely  blocks  the  variable  name 
table,  it  is  relatively  simple  to  check 
for. 


Please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  before  entering  tfiese  listings. 


Program  1: 
Loader 


TIME$  BASIC 


m 10    DIM     TIME* (BJ 

IL  20     GRAPHICS    0!POKE    752,1: 

?     "PROCESSING. . . " 
!B  30     CHECKSUM  =  0:  RESTORE 
£640     FOR     X  =  153A     TD     1758:REA 
D    A«CHECKSUM=CHECKSUH+ 
A:POKE     X.AsNEXT     X 
BL  50     IF     CHECKSUMO2506B     THE 
N    ?     :?     '■<2    BELL>t«*ERR 
OR     IN     DATA     STATEflENTSt 
«t " : END 
JI  60    OPEN    #2,  4,0,  "K"  :  ?     :?     " 
Eassette    or     Eisk     ?";:G 
ET    #2, A 
ON  70     IF     A067     AND     AOiSB     THE 

N    CLOSE    tt2:6DTa     60 
Kl  B0     IF     A-67     THEN     160 
LL  90     ?     1?     "Type    Y     to    create 
AUTQRUN.SYS"!?     "mrnwt 
EKistlng     AUTDRUN.SYS 
Mill     be    deleted" 
CD  100     GET    #2,  As  IF     AOB9    THE 

N    END 
BN110     TRAP     120JXID     33,*l,0, 

0, "Di AUTQRUN. SYS" 

BB120    TRAP    65535!  OPEN    #1,B, 

0,  "Di AUTQRUN. SYS" : PUT 

#1,255:PUT     #1,255!PU 

T    #1,0 

HF  130     PUT     *1,6!PUT     #l,222tP 

UT     #1,6 
KO140    FDR     X-=1536    TO     175B:PU 
T    #1 , PEEK (X) ! NEXT     XsC 
LOSE     #1 
Cn  1S0     ?     !?     "AUTORUN.SYS    is 
now    on    disk"sPaKE    752 
, 0:NEW 
Eltlta    ?     :?     "Position     tape, 

press    l:]5re    and    LiSllj"  :  ? 

"and    press    OaEnil-  • - 

" ; : GET    #2, A 

ttl  170  POKE  152B,0:PDKE  1529 

,2;PQKE  1530, 24B:POKE 

1531,S!P0KE  1532,255 

:POKE  1533,5 

PJ  180  POKE  1534,24:P0KE  153 

5,  96 
HH  190  POKE  1601,2!POKE  1605 
,3:PQKE  1741 , 234: POKE 
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1742,234:POKE  1743,2 

6B  360 

DATA 

4, 177, 130,217, 21 

111540  DATA  134,160,2,177,13 

34 

8,6 

4,24 

St  200 

POKE  764,0!OPEN  #1,8, 

RH  3  70 

DATA 

208,66, 136, 16, 24 

Blt550  DATA  101,140,133,176, 

128, "C: ":PDKE  7t4,255 

6,216 

200, 177 

e«2i0 

POKE  850,11:PDKE  852, 

6B380 

DATA 

32, 156, 6, 169, 58, 

PS  560  DATA.  134,101,141,133, 

24B:PaKE  B53,5:P0KE  8 

160 

177,96 

S6,231:PDKE  857,0 

6C390 

DATA 

2, 145, 176, 160,5, 

KS70    DATA  169,255,133,178, 

ffi220 

A-USR<ADR(  "hhhBJ_VEr")  , 

145 

32,  17 

16) 

}]  ASI0 

DATA 

176, 160,7, 177, 17 

IMaB0  DATA  6,32,64,21,24,96 

AN  230 

CLOSE  #1:?  !?  "Boot  f 

6,24 

HP590  DATA  51,52,48,54,58,4 

lie  is  now  on  tape"sP 

LH  4  10 

DATA 

105, 1 , 145, 176,21 

8 

QKE  752,a:NEW 

7,210 

6^600  DATA  54,58,84,73,77,6 

LP  240 

DATA  104,  16"?,  0,  133,  17 

6!  420 

DATA 

6, 144, 25, 169,48, 

9 

a,  160 

145 

EH610  DATA  164 

FP2S0 

DATA  4, 177, 130,217,21 

PO  430 

DATA 

176, 136, 177, 176, 

a, 6 

24, 105 

JF260 

DATA  208,56,136,16,24 
6,  32 

FK  440 

DATA 
0,6 

1, 14S, 176,217,21 

Program  2:  Sample  TIME$ 

Hfl270 

DATA  156,6,165,178,20 

a, 9 

tt  450 

DATA 
,  176 

144, B, 169, 4B, 145 

Program 

a  2B0 

DATA  160,8,169,48,145 

JJ  460 

DATA 

136, 136, 16,219, 1 

M 10  Din  TIME«(8) , A*(8> 1 A-U 

,  176 

69.2 

BR<1S36} 

m  290 

DATA  136,16,251,169,5 

CH  470 

DATA 

162,0, 160,60,32, 

SB  20  GRAPHICS  0 

e,  160 

92 

DO  30  ?  "Enter  current  tine 

FJ  300 

DATA  2,145,176,160,5, 

11  4B0 

DATA 

228,96, 169,2, 162 

"1 > INPUT  TIME* 

145 

.0 

JI140  ?  1?  "Enter  time  to  ma 

FN  310 

DATA  176,169,71,141,4 

6F490 

DATA 

160,0,32,92,228, 

und  elarin  "|i  INPUT  A* 

0,2 

96 

tmse    GRAPHICS  1 

CC3  20 

DATA  169,6, 141,41,2,1 

M  500 

DATA 

160,0, 169, 129, 14 

EL  60  POSITION  S,9i7  »6;TII1E 

69 

5,134 

*iPOKE  708, INT (PEEK (53 

OJ  330 

DATA  2,162,0,160,60,3 

8B  510 

DATA 

160,4, 169,8, 145, 

770)/16) »16+B 

2 

134 

OK  70  IF  TIME«-A«  THEN  POSIT 

HA  340 

DATA  92, 228, 169, 198, 1 

I*  520 

DATA 

200,200, 145, 134, 

ION  5,9:?  «6|TI«E«i?  " 

33,  12 

136, 169 

{5  SELLXCLEARHt'm  tl 

6F350 

DATA  169,6, 133, 13,96, 

KO530 

DATA 

0, 145, 134,200, 20 

me. . . "iPOKE  708,40! END 

160 

0,  14S 

AH  80  GOTO  60                Q 

Apple  Program  Protector 


Do  you  have  an  Applesoft  BASIC  pro- 
gram you  want  to  protect  from  prying 
eyes?  With  this  technique,  you  can 
keep  other  people  from  listing  your 
programs— while  still  givitjg  them 
the  freedom  to  make  copies.  For  all 
Apple  Il-series  computers  ivith  DOS 
3.3. 


"Apple  Program  Protector"  is  an 
easy  to  use  utility  that  keeps  other 
people  from  listing  your  BASIC  and 
machine  language  programs.  It 
works  by  moving  the  disk  catalog 
on  the  protected  disk  to  another 
track,  and  by  preventing  users  from 
breaking  out  of  the  program  by 
pressing  CTRL-C  or  RESET.  The 
only  requirement  is  that  your  pro- 
gram must  run  itself  when  the  user 
boots  the  disk. 

It's  easy  enough  to  ensure  that 


Boris  Troyanovsky 

the  program  runs  automatically 
when  the  disk  is  booted.  DOS  3.3 
always  loads  and  runs  a  BASIC  pro- 
gram whenever  a  disk  is  booted  if 
the  program  is  named  HELLO. 
Only  a  single  BASIC  program  can 
be  started  in  this  way.  If  you  wish  to 
have  more  than  one  BASIC  pro- 
gram on  the  protected  disk,  you 
must  make  HELLO  a  menu  pro- 
gram that  allows  you  to  select  the 
desired  program  from  the  disk.  If 
the  program  you  wish  to  protect  is 
written  in  machine  language,  you 
can  use  HELLO  to  start  it.  For  ex- 
ample, if  you  want  to  protect  a  pro- 
gram named  MLGAME,  your 
HELLO  program  might  be  simply: 

10  PRINT  CHRS(4);"BRUN  MLGAME" 

The  next  step  is  defend  against 
CTRL-RESET  and  CTRL-C,  In  each 
BASIC  program  on  the  disk  you 


wish  to  protect,  add  these  two  lines: 

0  POKE  1011,0:ONERR  GOTO  63999 
63999  RESUME 

The  POKE  in  line  0  defends 
against  the  CTRL-RESET  key  (or 
just  RESET  on  some  Apples).  If  the 
CTRL-RESET  key  is  pressed,  any 
Applesoft  BASIC  program  in  mem- 
ory is  erased  and  the  computer 
reboots. 

Since  the  CTRL-C  interrupt 
code  (which  is  used  to  stop  program 
execution)  is  considered  an  error  by 
Applesoft  BASIC,  the  ONERR 
GOTO  statement  in  line  0  transfers 
program  control  to  line  63999  when 
CTRL-C  is  encountered.  If  your 
program  uses  ONERR  to  test  for 
other  conditions,  include  the  state- 
ment IF  PEEK(222)  =  255  THEN 
63999  in  your  error  testing.  This 
ensures  that  CTRL-C  is  still 
trapped. 
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Machine    language    programs 
can  be  protected  in  this  way,  too. 
Just  add  these  lines  to  your  source 
code: 
LDA  #$00 
STA  $03F3 

Like  the  BASIC  lines  above, 
these  instructions  erase  the  pro- 
gram from  memory  and  reboot  the 
computer  if  CTRL-RESET  is 
pressed. 

Preparing  A  Protected 
Disk 

Begin  by  preparing  a  disk  contain- 
ing the  program  or  programs  you 
wish  to  protect.  If  the  disk  is  to 
contain  only  one  program,  load  it 
into  memory,  insert  a  new  disk, 
type  INIT  HELLO,  and  hit  RE- 
TURN. If  you  wish  to  have  several 
programs  on  the  disk,  the  HELLO 
program  must  be  a  menu  program 
and  the  others  can  simply  be  saved 
on  disk  in  the  usual  manner.  Re- 
member to  add  to  each  program  the 
lines  mentioned  above  to  protect 
against  CTRL-RESET  and  CTRL-C. 
Make  sure  ail  programs  are  fully  test- 
ed ajid  debugged  before  you  rtat  Pro- 
gram Protector.  To  be  safe,  you 
should  always  keep  backup  copies 
of  the  programs  on  an  unprotected 
disk. 

Next,  type  in  Program  1  below 
and  save  a  copy  on  a  separate  disk. 
Use  the  filename  PROTECTOR. 
With  the  built-in  machine  language 
monitor,  enter  the  data  from  Pro- 
gram 2.  (If  you  are  unsure  about 
using  the  monitor,  consult  your 
user's  manual.)  Save  the  machine 
language  onto  the  same  disk  with 
Program  1  using  the  command 
BSAVE  JOB,  A$0300,  L$40. 

The  Program  Protector  disk  is 
now  ready  to  use.  To  protect  one  of 
your  disks  against  intrusion  by  out- 
siders, follow  these  steps; 

1 .  Insert  the  Program  Protector 
disk  into  the  drive  (the  drive  should 
be  addressed  as  slot  6,  drive  1). 

2.  Type  BLOAD  lOB, 

3.  Type  RUN  PROTECTOR. 

4.  Program  Protector  is  now 
loaded  into  memory.  You  should 
see  the  prompt  DESTINATION 
TRACK;  on  the  screen.  Remove  the 
disk  with  Program  Protector  and 
insert  the  disk  that  you'd  like  to 
protect  into  drive  L  Type  the  num- 
ber of  the  track  to  which  you  want 
to  move  the  catalog  and  press  RE- 
TURN.   The    number   must   be 


greater  than  or  equal  to  3  (DOS 
occupies  tracks  0-2),  and  less  than 
or  equal  to  34,  since  there  are  only 
35  tracks  (numbered  0-34)  on  the 
disk.  Also,  the  number  can't  be  17, 
because  that's  where  the  catalog  is 
already. 

5.  The  disk  drive  whirs  a  bit, 
then  the  Applesoft  ]  prompt  reap- 
pears. The  disk  is  now  protected.  If 
you  type  CATALOG,  you'll  be 
shown  an  empty  directory.  If  you 
try  to  load  a  program  from  the  pro- 
tected disk  or  save  an  additional 
program  to  it,  you'll  get  nothing  but 
a  DISK  FULL  error  message.  How- 
ever, if  you  now  boot  the  protected 
disk,  the  HELLO  program  loads 
and  runs  normally,  except  that 
CTRL-C  no  longer  stops  the  pro- 
gram and  CTRL-RESET  only  re- 
boots the  system. 

There  is  a  way  to  regain  access 
to  the  programs  on  the  protected 
disk.  Boot  a  normal  disk,  then  enter 
POKE  44033,?!  (substitute  for  n  the 
number  of  the  track  to  which  the 
catalog  was  moved).  You  can  now 
display  the  catalog  and  load  and 
save  programs.  You  can  also  use 
this  technique  if  the  program  you're 
protecting  needs  to  access  another 
program  on  a  different  disk.  To  let 
the  program  know  where  the  cata- 
log of  the  new  disk  is,  POKE  44033 
with  the  catalog  track  of  the  disk 
you'd  like  to  access. 

Don't  try  to  relocate  the  catalog 
on  a  disk  more  than  once.  The  re- 
sults are  unpredictable. 

Program  1 :  Apple  Program 
Protector 

For  instTudions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  published  bimonthly  in  COMPUTE!. 

7B    10   HIMEM:     Bl*?! 

£6  20  HOME  :  HTAB  11:  INVERSE  : 
PRINT  "PROGRAM  PROTECTOR": 
NORMAL  :  VTAB  10:  INPUT  " 
DESTINATION  TRACK:  ";DT 

ED  30  IF  DT  <  3  DR  DT  >  34  OR  DT 
=?  17  THEN  PRINT  "ILLEGAL 
TRACK  NUMBER":  FDR  A  =  0  T 
0  600!  NEXT  A:  RUN 

9E  40  REM  «*MDVE  TRACKS** 

31  50  SS  =  0:SE  =  15:TR  =  17:BU 
=  B192:0P  =  1:  BOSUB  3B0: 
REM  READ  CATALOG  TRACK 

51  60  QOSUB  180 

DA  70  Dl  =  PEEK  (DT  «  4  +  56  +  B 
192): 02  =  PEEK  (DT  »  4  +  5 
7  +  B1'?2):D1  =  PEEK  (17  * 
4  +  56  +  81921:02  =  PEEK  ( 
17  *  4  +  57  +  8192) 

Dl  80  POKE  17  t  4  +  56  +  B19Z,D1 
!  POKE  17  «  4  +  57  +  8192, 
D2:  POKE  DT  «  4  +  56  +  819 
Z,Q1:  POKE  DT  »  4  +  57  +  a 
192,02 


ES  90  SS  =  0:SE  =  15:  TR  =  DT:BU 
=  16384: OP  =  1:  GOSUB  380: 
REM  READ  NEW  TRACK 
H    100  REM  *«ALTPOINT  ROUTINE** 
C?  110  TV  =  B192 

56  120  FDR  TX  =  0  TO  15:  POKE  TV 
+  1,DT:TV  =  TV  +  256:  NE 
XT  TX 
CD  130  S5  =■  0:SE  =  15:  TR  =  DT:BU 
=  S192:QP  =  2:  GOSUB  380 
:  REM  WRITE  CATALOG  TRACK 
5D  140  SS  =  0;SE  =  15:TR  =  17:HU 
=  1 6384: OP  =  2:  GOSUB  38 
0:  REM  WRITE  NEW  TRACK 
FB  150  5S  =  lliSE  =  11;TR  »  1 :  BU 
=  8192: OP  =  l!  GOSUB  380 
;  POKE  8193,DT:SS  =  11:SE 
=  11:TR  =  1:BU  =  B192:0P 
=  Z!  BOSUB  380:  REM  CHAN 
BE  DOS 
4B  160  GOSUB  230 
97  170  END 
H  180  REM  »»ALTER  CATALOG'S  T/S 

POINTERS* « 
BE  190  BF  =  8192  +  256 
DD  200  FOR  PR  =  11  TO  221  STEP  3 
5:  IF  PEEK  (BF  +  PR)  =  DT 
THEN  POKE  BF  +  PR,  17 
3a  210  NEXT  PR:BF  =  BF  +  256:  IF 
BF  <  >  12288  THEN  GOTO  2 
00 
14  220  RETURN 

ft   230  REM  *»CHANBE  T/S  LISTS** 
B5  240  BF  =  B192  +  256 
CC  250  FOR  PR  =  11  TD  221  STEP  3 
5:  IF  PEEK  (BF  +  PR)  <  > 
0  THEN  GOSUB  290 
41  260  NEXT  PR 
U   270  BF  =  BF  +  256:  IF  BF  <  > 

12288  THEN  GOTO  250 
22  280  RETURN 
ftl  290  REM  **DIRTY  WORK** 
ED  300  LT  =  PEEK  (BF  +  PR):LS  = 

PEEK  (BF  +  PR  +  1) 
fl8  310  SS  =  LS:SE  =  LS:TR  =  LT:B 
U  =  16384: OP  =  I:  BDSUB  3 
B0:BU  =  BU  -  256 
?C  320  FOR  CT  =  12  TD  254  STEP  2 
!  IF  PEEK  (BU  +  CT)  =  DT 
THEN  POKE  BU  +  CT, 17 
87  330  NEXT  CT 
B9  340  IF  PEEK  (BU  +  1)  =  DT  THE 

N  POKE  BF  +  1,17 
3«  350  OP  =  2:SS  -  LS:SE  =  LS:TR 
=  LT:BU  =  16384:  GOSUB  3 
S0:BU  =  BU  -  256 
53  360  IF  PEEK  (BU  +  1)  <  >  0  TH 
EN  LT  =  PEEK  (BU  +  1 ) : LS 
=  PEEK  (BU  +  2)!  GOTO  310 
II  370  RETURN 

7E  380  REM  **DISK  ACCESS** 
n   390  FOR  SA  =  SS  TD  SE 
F(  400  POKE  7B8,TR:  POKE  789,  SA: 

POKE  796, OP 
C8  410  HB  =  INT  (BU  /  256):  LB  = 

BU  -  (HB  *  256) 
67  420  POKE  792,  LB:  POKE  793,  HB 
28  430  CALL  768:  BU  =  BU  +  256:  N 

EXT  SA 
IC  440  RETURN 

Program  2:  lOB  Routine 

Enter  this  listing  with  the  machine  language 
monitor. 

0300-  A9  03  A0  10  20  D9  03  60 

0308-  00  00  00  00  00  00  00  00 

0310-  01  60  01  00  11  0F  30  03 

0318-  00  20  00  00  01  00  FE  60 

0320-  01  00  00  00  00  00  00  00 

0328-  00  00  00  00  00  00  00  00 

0330-  00  01  EF  DO  00  00  00  00 

0338-  00  00  00  00  00  00  00  00 
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Variable  Accuracy 


There  are  a  few  more  points  about 

integer  variables  that  we  didn't  cov- 
er last  month — including  some  im- 
portant exceptions  to  general  rules. 

Note  that  in  some  versions  of 
BASIC,  such  as  Commodore  BASIC, 
you  aren't  allowed  to  use  integer 
variables  as  counters  in  FOR-NEXT 
loops.  In  other  words,  a  statement 
such  as  FOR  X%=1  to  lOiNEXT 
X%  would  cause  an  error.  However, 
integer  variables  can  be  used  as 
counters  in  IBM  BASIC.  Just  re- 
member that  because  integer  vari- 
ables are  restricted  to  a  minimum 
value  of  —32,768  and  a  maximum 
of  32,767,  you'll  have  to  make  sure 
your  loops  don't  exceed  those  limits. 

In  some  BASICs,  there's  also 
one  exception  to  the  rule  about  de- 
noting all  integer  variables  with  the 
%  symbol.  In  IBM  BASIC,  for  in- 
stance, you  can  insert  a  DEFINT 
(define  integer)  statement  near  the 
beginning  of  the  program  to  define 
a  whole  group  of  variable  names  as 
integer  variables  by  default.  The 
statement  DEFINT  A-M  declares 
that  all  variable  names  beginning 
with  the  letters  A  through  M  are 
automatically  integer  variables. 
Since  integer  variables  execute  fast- 
er and  consume  less  memory  on  the 
IBM  than  regular  variables,  a 
DEFINT  statement  can  improve  a 
program's  performance.  (Remem- 
ber from  last  month  that  integer 
variables  don't  save  memory  and 
actually  run  slower  on  Commodore 
and  Apple  computers.) 

Incidentally,  another  way  to 
speed  up  your  programs  is  to  re- 
place frequently  used  constants 
with  variables.  In  most  Microsoft 
BASICS,  variables  execute  faster 
than  constants  (the  reverse  is  true 
of  Atari  BASIC).  By  predefining  the 
most  commonly  used  numbers 
(usually  0-10)  as  variables,  state- 
ments such  as  Y  =  Y  +  1  can  be 
changed  to  r=Y-l-Cl.  And  if 
you're  programming  on  an  IBM, 
you  can  define  them  as  integer  vari- 


ables and  pick  up  even  more  speed. 
Try  this  technique  in  your  next  pro- 
gram and  see  if  it  adds  a  little  zip. 

Improving  Precision 

Another  type  of  variable  is  provid- 
ed in  some  BASlCs  to  improve 
mathematical  accuracy.  Called 
double-precision  variables,  they  can 
help  avoid  the  small  rounding  er- 
rors that  sometimes  accumulate 
and  cause  strange  results.  (Round- 
ing errors  are  slight  discrepancies 
that  can  crop  up  when  the  com- 
puter converts  our  everyday  deci- 
mal numbers  to  its  internal  system 
of  binary  numbers,  performs  some 
arithmetic,  and  then  converts  the 
answer  back  into  decimal  again.) 

Double-precision  variables  are 
available  in  IBM  BASIC  and  some 
versions  of  TRS-80  BASIC,  but  not 
in  Commodore  BASIC,  Applesoft, 
Atari  BASIC,  or  TI  BASIC.  Even  if 
your  BASIC  doesn't  have  double- 
precision  variables,  however, 
they're  worth  learning  about.  As 
personal  computers  grow  more 
powerful,  you're  sure  to  encounter 
such  features  sooner  or  later. 

Here's  an  example  which  dem- 
onstrates a  common  type  of  round- 
ing error — in  this  case,  on  the  IBM 
PC/PCjr.  This  program  initializes 
the  variable  Y  to  100,  then  subtracts 
the  value  .05  ten  times  using  a 
FOR-NEXT  loop.  The  final  value  of 
Y  is  printed  after  the  loop  is 
finished. 

10  Y  =  100 

20  FOR  X  =  l  TO  10 

30  Y  =  Y-.05 

40  NEXT  X 

50  PRINT  Y 

The  answer,  of  course,  should 
be  99.5.   Instead,  here's  the  pro- 
gram's answer: 
99.49997 

If  you  swap  the  statements  in 
lines  40  and  50  so  the  program 
prints  the  current  value  of  Y  after 
each  pass  through  the  loop,  you'll 
see  that  the  rounding  error  starts 


with  the  second  calculation  and 
keeps  increasing  until  the  final  re- 
sult is  off  by  .00003.  That's  not  a 
huge  discrepancy — but  still,  if  this 
were  some  kind  of  banking  pro- 
gram that  was  subtracting  a  nickel- 
a-day  service  charge  from  customer 
accounts  over  a  period  of  time, 
someone  might  be  cheated  out  of  a 
penny  now  and  then.  (It's  hap- 
pened to  me,  by  the  way.) 

Fortunately,  you  can  program 
the  computer  to  deliver  a  better  an- 
swer. To  convert  Y  from  a  regular 
(single-precision)  variable  into  a 
cJouble-precision  variable,  add  the 
#  symbol  to  every  occurrence  of  Y 
in  lines  10,  30,  and  50.  The  modi- 
fied program  yields  this  result: 

99.49999999254942 

Well,  even  computers  aren't 
perfect.  This  time  the  rounding 
error  starts  with  the  first  calcula- 
tion, although  the  errors  are  smaller 
and  the  final  answer  is  off  by  only 
.0000001192093.  For  even  greater 
accuracy,  we  can  define  the  value  of 
.05  as  a  double-precision  constant  by 
adding  the  #  symbol  to  .05  in  line 
30.  Here's  the  result: 

99.49999999999999 

This  is  even  more  accurate; 
now  the  computer  is  off  by  only 
,00000000000001.  Furthermore,  by 
switching  lines  40  and  50  to  see  the 
results  of  each  calculation  through 
the  loop,  you'll  nodce  that  all  the 
intermediate  answers  are  exactly 
correct.  That  still  leaves  us  with  an 
infinitesimal  error  in  the  final  an- 
swer, however.  If  you're  a  stickler 
for  absolute  accuracy,  there  are 
ways  to  get  around  these  runaway 
fractions — but  that's  a  topic  for  a 
future  column,  © 
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Personal  Computers  And  Personal  Freedom 


Last  July  I  spent  a  day  in  Colonial 
Williamsburg,  Virginia,  catching  a 
glimpse  of  life  as  it  was  in  the  mid- 
1700s,  The  publishing  exhibit  par- 
ticularly caught  my  attention.  One 
could  see  paper  being  made  by 
hand — a  process  that  required  skill 
and  strength  on  the  part  of  the 
craftsman,  and  which  took  a  long 
time.  In  the  print  shop  one  could 
see  the  pages  of  a  book  being  printed 
from  hand-set  type — another  expen- 
sive and  time-consuming  process. 
The  bindery  exhibit  showed  how 
the  printed  pages  were  folded  into 
signatures  and  stitched  together  by 
hand  before  being  bound  in  leather. 

It  was  clear  from  this  exhibit 
that  access  to  books  was  limited  to 
the  wealthy.  The  cost  of  spreading 
the  printed  word  was  quite  high, 
and  yet  this  period  gave  us  a  rich 
collection  of  people  who  had  much 
of  importance  to  say — Patrick  Henry 
and  Thomas  Paine,  to  name  just  two. 

As  I  thought  about  our  ad- 
vances in  communication  technol- 
ogy since  that  period — typewriters, 
copiers,  computers,  and  so  on — it 
became  clear  that  the  reduced  cost 
of  communication  was  one  of  the 
main  reasons  that  literacy  could 
spread  to  the  public  at  large.  The 
printed  word  has  spread  like  wild- 
fire, carrying  messages  into  homes 
that  would  have  been  bookless  in 
the  1700s. 

The  freedom  to  communicate 
is  one  of  our  most  treasured  free- 
doms. There  are  nations  on  this 
planet  where  individual  ownership 
of  copiers  and  computers  is  forbid- 
den. It  is  easy  to  see  why — it's  im- 
portant for  a  totalitarian  government 
to  control  the  flow  and  distribution 
of  information.  Otherwise,  individ- 
uals could  create,  publish,  and  dis- 
tribute their  own  ideas  without  the 
censorship  of  the  state. 

Computer  Publishing 

Prior  to  the  widespread  sale  of  per- 
sonal computers,  we  had  restric- 


tions of  our  own  that  limited  the 

widespread  dissemination  of  ideas. 

Before  an  opinion  can  be  ex- 
pressed in  printed  form,  the  author 
must  either  convince  a  publisher 
that  it  is  worth  expressing,  or  must 
elect  to  publish  it  alone.  Even  if  a 
publisher  accepts  a  work,  it  will 
reach  an  audience  only  if  stores  de- 
cide to  stock  it. 

Suppose  you've  written  some- 
thing you  think  others  might  like  to 
read — a  collection  of  poetry,  for  ex- 
ample, or  a  political  treatise.  You 
may  find  that  traditional  publishers 
are  not  interested  in  your  material 
because  your  market  is  too  special- 
ized. Or,  you  may  find  that  they  are 
interested,  but  that  if  you  wait  the 
four  to  six  months  {or  longer)  that  it 
takes  for  your  words  to  be  printed, 
your  material  will  have  lost  its  cur- 
rency and  impact. 

In  this  case,  you  may  elect  to 
publish  the  material  yourself. 

Prior  to  the  personal  computer, 
you  might  be  restricted  to  running 
copies  of  your  material  at  the  local 
print  shop.  Depending  on  the  size 
of  your  document,  you  may  find 
that  it  costs  several  dollars  per  copy 
to  have  it  printed. 

But,  in  an  era  where  personal 
computers  are  increasingly  com- 
monplace, there's  another  way  of 
publishing  your  ideas — especially 
if  what  you  have  to  say  is  of  partic- 
ular value  to  others  who  own  com- 
puters. You  can  publish  your  ideas 
on  a  disk!  Disks  are  inexpensive, 
reusable,  and  can  be  duplicated  as 
needed.  Publishing  your  material 
on  disk  lets  you  fix  mistakes  quickly 
without  having  to  wait  for  a  new 
printing.  Your  material  might  con- 
sist of  text  files  that  can  be  read 
with  a  word  processor,  or  you  can 
write  your  own  program  that  lets 
people  read  or  print  your  files  as 
they  choose. 

However,  along  with  the  free- 
dom to  publish  your  own  materials 
in  the  privacy  of  your  home  using 


nothing  more  than  your  personal 
computer  there  comes  a  responsi- 
bility. It  is  correctly  said  that  the 
pen  is  mightier  than  the  sword.  As 
your  own  publisher,  you  can  say 
anything  you  wish,  but  you  must 
always  keep  in  mind  that  the  print- 
ed (or  displayed)  word  is  very  pow- 
erful. Think  your  ideas  through 
carefully  before  publishing  them. 

Talking  Booi<s 

I  recently  used  this  publication 
technique  for  my  book  In  Search  of 
the  One-Mhmte  Megatrends — Surviv- 
ing the  Bad  Times  in  Silicon  Valley 
(Innovision  Press,  $12.95),  While 
the  information  in  this  book  is  of 
potential  interest  to  a  broader  audi- 
ence, 1  initially  made  it  available  on 
a  Macintosh  disk,  since  that's  the 
computer  with  which  I  do  most  of 
my  writing.  As  I  was  creating  the 
book,  it  occurred  to  me  that  this 
method  of  publishing  had  much 
greater  flexibility  than  the  printed 
page.  For  example,  readers  could 
change  the  typeface  and  size  if  they 
desired. 

I  also  included  a  set  of  files  on 
the  disk  that  lets  the  book  read  itself 
aloud  to  the  user  with  the  Smooth- 
Talker  speech  synthesizer  from 
First  Byte.  This  not  only  provides 
another  alternative  for  reading  the 
book,  but  also  makes  the  material 
available  to  those  with  impaired 
vision. 

While  this  book  is  not  available 
in  stores,  I  have  been  able  to  sell  it 
quite  well  through  direct  mail  by 
placing  inexpensive  advertisements 
in  regional  computer-interest  news- 
papers. The  success  of  this  venture 
convinces  me  that  anyone  with  a 
message  of  interest  to  computer 
owners  can  be  an  author  and  a  pub- 
lisher as  well. 

If  only  the  founding  fathers 
could  see  us  now!  © 
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Telecomputing  Today 


Arlan  R.  Levitan 


Faster  Than  A  Speeding  Byte 


Last  month  I  mentioned  Fastlink,  a 
new  10,000  bits  per  second  modem 
from  Digital  Comimunications  As- 
sociates. Not  only  is  it  five  times 
faster  than  the  latest  "high-speed" 
2400  bps  modems,  it  even  works 
over  regular  telephone  iines.  Until 
now,  anything  close  to  10,000  bps 
required  you  to  lease  special  data- 
grade  lines  from  the  phone  compa- 
ny. But  not  the  DCA  Fastlink, 
Although  the  Fastlink's  $2,000 
price  tag  is  a  little  rich  for  most 
casual  users'  blood,  there  has  been 
a  fair  amount  of  incredulous  reac- 
tion like  "how  the  heck  can  they  do 
10,000  bits  per  second?"  from  read- 
ers of  this  column  (and  even  from 
my  editor). 

While  the  subject  is  a  bit  tech- 
nical, I've  distilled  an  explanation 
that  will  either  satisfy  your  curios- 
ity or  teach  you  never  to  ask  me 
about  this  sort  of  thing  again.  To  get 
started,  let's  review  our  old  friend, 
the  ordinary  300  bps  modem. 

Modems  exchange  information 
over  phone  lines  by  transmitting 
and  receiving  audio  tones.  A  300 
bps  modem  transmits  over  two 
channels,  one  for  each  direction. 
Each  second  of  time  is  divided  into 
300  slices,  and  each  slice  is  called  a 
baud.  A  300  bps  modem  packs  one 
bit  into  each  baud  (1200  and  2400 
bps  modems  both  operate  at  600 
baud  and  pack  2  and  4  bits  into 
each  baud,  respectively).  One  chan- 
nel transmits  signals  in  the  audio 
range  of  1070-1270  hertz,  and  the 
other  at  2025-2225  hertz.  That 
means  each  channel  has  a  fairly 
wide  bandvrtdth  (200  hertz),  and 
they're  separated  by  a  guard  band 
of  no  signal  (755  hertz  wide)  that 
makes  it  easy  for  the  modem  cir- 
cuitry to  differentiate  between  the 
two  channels. 

DCA's  Fastlink  uses  a  very  low 
7.3  baud  rate,  so  it  can  drastically 
narrow  the  channel  bandwiths  and 
guard  bands.  The  Fastlink  also  uses 
the  entire  0-4000  hertz  audio  spec- 


trum of  normal  phone  lines.  When 
two  Fastlink  modems  link  up,  they 
attempt  to  establish  a  maximum  of 
512  separate  channels,  each  7.8 
hertz  apart.  They  analyze  each 
channel  to  determine  which  ones 
are  noise-free  enough  to  handle 
transmission  techniques  that  pack  4 
or  6  bits  into  each  time  slice,  or 
baud. 

Then  the  Fastlink  transmits 
data  by  using  a  hybrid  parallel/- 
serial  system  (300  bps  modems 
send  data  in  a  serial  stream  of 
bits — one  bit  after  another  with  one 
bit  per  baud).  The  bits  carried  by  all 
channels  in  use  during  one  baud 
are  considered  a  single  packet  of 
information.  Outgoing  data  bits  are 
assigned  to  channels  as  they're  pre- 
pared for  sending  (with  either  4  or  6 
bits  per  channel),  beginning  with 
the  channels  at  the  lowest  frequen- 
cies. Once  the  packet  is  assembled, 
it's  sent  across  the  active  channels. 
So  the  data  is  sent  in  parallel  within 
the  packets,  and  the  packets  them- 
selves are  sent  serially. 

Blistering  Speed 

Using  the  Fastlink  method,  the 
maximum  theoretical  throughput  is 
512  channels  X  6  bits  per  baud  X 
7.3  baud  per  second,  or  more  than 
20,000  bps.  Given  the  quality  of 
most  voice-grade  lines,  that  limit  is 
very  theoretical.  Most  channels  op- 
erate at  only  4  bits  per  baud,  and 
throughput  is  further  limited  by  the 
overhead  of  error  detection  and 
correction,  which  is  automatically 
handled  by  Fastlink.  All  these  fac- 
tors reduce  the  Fastlink's  actual 
throughput  to  a  blistering  10,000 
bps  on  local  phone  lines.  A  Fastlink 
modem  operating  on  lines  provided 
by  the  most  popular  long-distance 
carrier  should  work  at  about  8,000 
bps.  On  the  lines  provided  by  other 
common  carriers,  the  Fastlink  aver- 
ages about  7,000  bps. 

The  Fastlink  monitors  the 
quality  of  the  phone  line  during  the 


linkup,  shutting  down  channels 
that  become  marginally  acceptable 
or  opening  up  channels  if  quality 
improves.  DCA  refers  to  the  pro- 
cess as  DAMQAM,  or  Dynatnically 
Adaptive  Mtilticarrier  Quadrature 
Amplitude  Modulation  (say  it  five 
times  fast).  To  handle  all  this  data 
manipulation  and  tine  monitoring, 
the  Fastlink  is  actually  a  full- 
fledged,  highly  specialized  com- 
puter with  a  megabit  of  memory 
and  two  central  processing  units — a 
Motorola  68008  working  in  tandem 
with  a  Texas  Instruments  320. 

There  are  some  fine  points  to 
keep  in  mind  while  daydreaming 
about  cruising  along  at  10,000  bps. 
The  Fastlink  dynamically  assigns 
channels  to  incoming  or  outgoing 
data  based  on  the  volume  going 
back  and  forth.  If  there  is  an  equal 
amount  of  data  moving  in  both  di- 
rections, the  Fastlink  channels 
would  be  equally  divided  between 
incoming  and  outgoing  data,  result- 
ing in  an  effective  maximum  speed 
of  only  5,000  bps  for  each  data 
stream. 

In  practice,  the  data  flow  is 
usually  quite  lopsided,  with  ratios 
of  99  to  1  more  common  than 
50:50.  So  the  bulk  of  data  flow  on  a 
Fastlink  is  assigned  the  lion's  share 
of  channels,  resulting  in  through- 
put that  is  very  close  to  the  10,000 
bps  ideal. 

Fastlink  modems  currently 
come  in  two  flavors.  An  internal 
version  for  the  IBM  PC  and  compa- 
tibles goes  for  $1,995  and  includes 
a  special  version  of  Microstuf's 
Crosstalk  program  adapted  for  the 
Fastlink.  An  outboard  RS-232  Fast- 
link  is  priced  at  $2,395.  Both  mo- 
dems are  also  capable  of  commu- 
nicating at  plain  old  300  or  1200 
bps  with  non-Fastlink  modems.  If 
you're  still  curious,  you  can  get 
even  more  information  by  contact- 
ing DCA  at  1000  Alderman  Drive, 
Alpharetta,  GA  30201.  © 
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The  World  Inside  the  Computer 


Fred  D'Ignazio,  Associate  Editor 


The  Case  Of  The  Phantom  Programmers 


Earlier  this  year  I  wrote  about  one 
of  my  high  school  assistants — 
Howard  Boggess,  my  "Computer 
Handyman,"  This  time  I'd  like  to 
introduce  you  to  another  one  of  my 
assistants — Hunter  Baker,  my 
"Phantom  Programmer." 

Like  Howard,  Hunter  came  to 
me  from  David  James's  computer 
science  class  at  Patrick  Henry  High 
School,  here  in  Roanoke,  Virginia. 
When  Hunter  arrived  at  my  house 
on  the  first  day,  I  took  him  and  his 
mother  to  the  dark,  hot  attic  where 
Howard  had  rescued  several  broken- 
down  computers  (see  "The  World 
Inside  The  Computer,"  COMPUTE!, 
January  1985).  "This  is  your  first 
task,"  I  said,  with  a  sweep  of  my 
arm.  "If  you  can  clean  this  attic, 
then  I  know  you  can  do  anything." 

Hunter  is  a  quiet,  mild- 
mannered  person.  He  simply  nod- 
ded when  1  told  him  to  clean  the 
attic.  But  this  was  no  ordinary  attic. 
And  I  worried  about  him  every  day 
when  he  trudged  up  the  attic  stairs. 

I  shouldn't  have  worried. 
Sending  Hunter  into  the  attic  was 
like  sending  Cinderella  into  her 
stepmother's  kitchen,  or  Hercules 
into  the  Augean  stables.  In  a 
month.  Hunter  had  the  attic  better 
organized  than  the  rest  of  the 
house.  He  had  everything  filed 
away  in  labeled  filing  cabinets  and 
had  built  a  computer  database  so 
we  could  instantly  know  where  to 
look  for  our  long  underwear,  com- 
puter manuals,  extension  cords,  ex- 
tra paper,  Christmas  tree  lights, 
winter  gloves  and  mittens,  and  RS- 
232  cables. 

Then  Hunter  moved  down- 
stairs. When  he  first  confronted  the 
downstairs  office,  computer  soft- 
ware was  piled  to  the  ceiling  and 
computer  cables  and  circuit  cards 
spilled  out  the  door  into  the  middle 
of  the  living  room.  But,  for  Hunter, 
after  facing  the  horrors  of  the  attic, 
this  awful  mess  was  no  more  than  a 
tasty  dessert.  In  only  a  couple  of 


weeks  everything  was  cataloged, 
labeled,  and  filed.  The  mess  had 
vanished,  and  Hunter  was  hard  at 
work  at  one  of  the  computers. 

Computer  Trivia 

One  day  I  walked  into  the  room, 
looked  over  Hunter's  shoulder  at  a 
BASIC  program  on  the  display 
screen,  and  asked  him  what  he  was 
doing.  He  explained  that  he  and  his 
friend  Amy  Powell  were  doing  a 
computer  project  for  National  His- 
tory Day.  They  planned  to  create  a 
history  trivia  game  on  the  IBM 
computer,  and  Hunter  asked  if  he 
and  Amy  could  start  coming  over  to 
our  house  after  hours  to  work  on 
the  program,  "Of  course,"  I  said, 
since  I  was  sure  he  was  only  talking 
about  a  couple  of  evenings  and 
maybe  a  weekend  or  two. 

Ha!  After  watching  Hunter 
clean  the  attic  and  the  office,  I 
should  have  been  wiser.  Hunter 
doesn't  do  anything  halfway,  and 
this  project  was  no  exception.  For 
the  next  month,  he  and  Amy  came 
over  almost  every  night  after  din- 
ner, and  most  Saturdays  and  Sun- 
days. They  rarely  left  until  the  wee 
hours  of  the  morning. 

One  night  1  was  awakened 
around  2  a.m.  by  strange  clicking 
noises.  Alarmed,  I  tiptoed  to  the 
bedroom  closet  and  grabbed  the 
machete  n\y  parents  had  bought  me 
in  the  Dominican  Republic.  (The 
machete  was  duller  than  a  letter 
opener,  and  it  had  a  parrot  in- 
scribed on  its  side,  but  it  looks 
deadly,  especially  when  1  wave  it 
threateningly  above  my  head.) 

I  made  my  way  cautiously 
down  the  stairs,  1  noticed  a  light 
was  switched  on  in  the  downstairs 
office.  I  guessed  that  a  thief  must  be 
inside  stealing  one  of  my  beloved 
computers! 

Leaping  down  the  remaining 
stairs,  I  burst  into  the  office,  scream- 
ing and  waving  the  machete. 

It  took  a  moment  for  my  eyes 


to  adjust  to  the  bright  lights  in  the 
room.  When  they  did,  1  noticed 
Hunter  and  Amy  seated  at  two  IBM 
computers,  working  on  their  Histo- 
ry Day  program.  "We're  sorry  we're 
here  so  late,"  said  Hunter  politely. 
"Tomorrow's  the  competi- 
tion," explained  Amy.  © 
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INSIGHT:  Atari 


Bill  Wilkinson 


Deactivating  BASIC 


My  coworkers  and  I  have  received 
many  requests  from  owners  of  the 
Atari  600XL,  800XL,  and  130XE  for 
a  simple  way  to  turn  off  the  BASIC 
built  into  those  computers.  Of 
course,  the  method  recommended 
by  Atari  is  to  hold  down  the  OP- 
TION button  when  you  boot  the 
system.  If  you  forget  to  do  this 
when  booting  a  program  that 
doesn't  require  BASIC,  the  ROM- 
based  BASIC  occupies  address 
space  that  costs  you  more  than 
8,000  bytes  of  RAM.  There  are  oth- 
er reasons  for  turning  off  BASIC  as 
well.  For  instance,  you  might  like  to 
turn  it  off  temporarily  to  gain  extra 
memory  while  duplicating  a  few 
files  or  disks.  These  jobs  take  less 
time  and  fewer  disk  swaps  if  the 
computer  can  use  the  8K  of  memo- 
ry vacated  by  disabling  BASIC.  And 
avoiding  a  reboot  or  two  can  save 
time,  too. 

Our  solution  is  a  pair  of  short 
machine  language  programs  that 
let  you  turn  BASIC  on  and  off  from 
DOS.  (Note  that  they  can't  turn  off 
a  BASIC  cartridge — or  any  other 
cartridge,  for  that  matter — so  they 
serve  no  purpose  on  the  Atari  400, 
800,  and  1200XL  computers.)  Atari 
manuals  suggest  that  turning  off 
the  built-in  BASIC  is  as  simple  as 
changing  one  bit  in  the  XL/XE 
memory  control  location  (which 
used  to  control  joystick  ports  3  and 
4  in  the  400  and  800).  That  may  be 
true  if  you're  writing  a  machine 
language  program  that  takes  over 
complete  control  of  the  computer, 
but  in  many  cases  it  doesn't  work. 

First,  whenever  you  press  the 
RESET  button,  the  operating  sys- 
tem restores  the  built-in  BASIC  to 
the  state  in  which  you  booted  it. 
Second,  if  you're  using  ordinary 
graphics  mode  screens  (without  a 
custom  display  list,  etc.),  the  screen 
handler  doesn't  use  the  memory 
freed  by  removing  BASIC.  It  thinks 
you're  still  using  a  40K  machine. 


Going  the  other  way — turning  on 
BASIC  after  booting  without  it — 
can  be  even  messier.  If  you  sudden- 
ly enable  BASIC  without  doing 
something  about  the  screen,  you'll 
find  yourself  staring  at  garbage  as 
BASIC  blithely  wipes  out  the  dis- 
play list,  screen  memory,  and  per- 
haps more.  Fortunately,  all  of  these 
problems  can  be  solved  by  follow- 
ing these  few  steps: 

1 .  Turn  the  built-in  BASIC  off  or  on. 

2.  Tell  the  operating  system  you  did 
so. 

3.  Change  the  master  top-of-RAM 
pointer. 

4.  Close  channel  0,  the  screen 
editor. 

5.  Reopen  channel  0. 

We  can  tell  the  operating  sys- 
tem we  changed  the  state  of  BASIC 
via  the  flag  in  memory  location 
1016  ($3F8).  The  master  top-of- 
RAM  pointer  is  RAMTOP  at  loca- 
tion 106  ($6A).  Channel  0  is  closed 
and  reopened  to  force  the  screen 
driver  to  use  the  highest  available 
memory.  Don't  worry  if  that 
sounds  a  bit  arcane.  The  program 
listed  here  automatically  creates 
two  machine  language  programs 
that  do  all  the  work  for  you.  Be  sure 
to  save  a  copy  before  you  run  it, 


so  100 

m  110 

HO  120 

6L  130 

OE  210 

6H  220 

EL  230 

EI  240 

DJ  250 

QE  260 
SH  270 

tt  280 

6f  290 
KD  300 
IN  810 


DIM  NAME* 

LINE-8001 

LINE-9001 

END 

CHECK-0:R 

FOR  CNT-1 

BYTE 

CHECK=CHE 

CNT 
READ  TEST 
EST  THEN 
READ  NAME 
0, NAME* 
RESTORE  L 
FOR  CNT"1 
BYTE 

PUT  »1,BY 
CLOSE  #1 
RETURN 
DATA  253, 
, 173, 1,21 


(20) 

eOSUB  210 
80SUB  210 

ESTQRE  LINE 
TD  57:READ 

CK+BYTEiNEXT 

I  IF  CHECK<  >T 
STOP 

♦lOPEN  ^i.e, 

INE 
TO  57:READ 

TEiNEXT  CNT 


255, 0, 4, 44, 4 

1, ■7,2,  141,1 


The  program  writes  two  binary 
files  to  disk  on  drive  1,  naming 
them  BASICON.COM  and  BASIC 
OFF.COM.  The  first  turns  BASIC 
on  and  the  second  turns  it  off.  To 
use  either  of  them  from  DOS,  sim- 
ply choose  the  L  (load  binary  file) 
option  and  enter  the  filename  when 
prompted.  (OS/A-h  and  DOS  XL 
users  need  only  type  BASICON  or 
BASICOFF  in  response  to  the  Dl: 
prompt.) 

The  next  time  you  need  to  du- 
plicate a  disk  or  large  file,  load 
BASIC0FF.COM  first,  copy  the 
disk  or  file,  then  load  BASICON- 
.COM  to  reactivate  BASIC,  You'll 
save  time,  especially  on  a  single- 
drive  system.  If  you're  writing  ma- 
chine language  programs,  call 
BASICOFF  as  a  subroutine  when 
you  start  your  program.  @ 
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IBM  Personal  Computing 


Donalo  B.  inveTie 


A  Promise  Of  Things  To  Come 


When  I  saw  the  advertisement  for 
the  Key  Tronic  KB  5152V,  I  knew  it 
was  a  product  designed  with  me  in 
mind.  Who  hasn't  dreamed  of  using 
a  typewriter  that  will  type  every 
word  you  speak — or  better  yet,  a 
computer  that  can  understand  spo- 
ken commands?  The  KB  5152V 
speech-recognition  keyboard  for 
the  IBM  PC,  manufactured  by  Key 
Tronic  of  Spokane,  Washington, 
seemed  to  hold  just  that  promise. 
While  waiting  for  a  demonstration 
unit  to  arrive,  I  had  visions  of  a 
new,  laid-back  life.  Since  my  hands 
would  no  longer  be  needed  for  typ- 
ing, I  could  dictate  prose  while 
holding  a  beverage  and  munching 
pretzels.  Nor  would  I  be  restricted 
to  a  sitting  position.  This  very  col- 
umn— in  the  interest  of  evaluating 
the  product,  of  course — would  be 
written  from  my  bed. 

The  new  keyboard  arrived  and 
plugged  right  into  the  socket  vacat- 
ed by  the  original  IBM  keyboard. 
It's  an  enhanced  keyboard  with 
separate  numeric  keypad  and  LED 
indicator  lights  on  the  Caps  Lock 
and  Num  Lock  keys.  And,  of 
course,  there's  one  other  enhance- 
ment: A  telephone  operator's  head- 
set that  plugs  into  the  back  of  the 
keyboard.  Without  bothering  to 
read  the  manual,  I  spoke:  "Now 
type  this."  Nothing  happened,  nor 
had  I  really  thought  it  would. 

The  first  step  to  using  the  key- 
board is  to  teach  it  a  vocabulary. 
Key  Tronic  supplies  a  menu-driven 
BASIC  program  that  creates  a  stan- 
dard ASCII  text  file — the  vocabu- 
lary. For  example,  the  vocabulary 
entry  for  the  color  BLUE  might  ap- 
pear as  BLUE;BLUE.  The  word  to 
the  left  of  the  semicolon  is  the 
prompt — the  word  you  speak;  the 
word  to  the  right  of  the  semicolon  is 
what  is  sent  to  the  PC,  just  as 
though  it  had  been  typed  on  the 
keyboard.  It's  called  the  response. 
Thus,  saying  "blue"  types  BLUE. 
But  that  doesn't  ha\'e  to  be  true. 


You  can  teach  the  keyboard  that 
blue  is  red  and  red  is  white,  and  it 
won't  be  the  wiser. 

The  response  characters  can  be 
more  than  one  word  and  may  con- 
tain characters  in  braces  to  repre- 
sent keys,  such  as  Enter,  Backspace, 
and  the  special  function  keys.  You 
can  also  define  responses  by  key- 
board scan  codes  or  ASCII  codes,  so 
every  key  and  key  combination  is 
accessible. 

Once  the  written  vocabulary  is 
defined,  the  keyboard  must  be 
taught  to  recognize  each  word — or, 
more  accurately,  how  the  user  pro- 
nounces each  word.  This  is  accom- 
plished with  a  training  session 
using  the  same  BASIC  program.  As 
the  computer  displays  each  word 
from  the  vocabulary,  you  pro- 
nounce it  at  least  three  times.  Of 
course,  the  keyboard  doesn't  know 
whether  the  pronunciation  is  cor- 
rect— it  can't  even  distinguish  Eng- 
lish from  Greek  or  Chinese.  It 
merely  associates  your  pronuncia- 
tion with  the  vocabulary  word. 

Voiceprinting 

How  does  this  work?  The  keyboard 

converts  the  sound  into  a  pattern  of 
zeros  and  ones  called  a  voiceprmt. 
As  you  speak,  the  keyboard  tries  to 
match  what  it  hears  with  a  previ- 
ously recorded  voiceprint  stored  in 
its  memory.  If  it  finds  a  match,  the 
keyboard  sends  the  appropriate 
word  to  the  PC,  just  as  though  the 
word  had  been  typed. 

Voiceprints  are  stored  on  disk 
so  you  won't  have  to  retrain  the 
keyboard  each  morning,  and  the 
keyboard  lets  you  mix  spoken  and 
typed  input. 

Following  this  procedure,  I 
trained  my  keyboard  for  six  words 
and  said,  "Now  type  this."  The 
screen  remained  blank. 

The  manual  advises,  "Your 
voiceprints  in  the  morning  are 
slightly  different  from  your  voice- 
prints  in  the  afternoon.  Therefore 


you  can  train  a  vocabulary  in  the 
morning,  then  in  the  afternoon  up- 
date it  a  few  passes  to  build  some 
variation  into  the  voiceprints." 
With  that  in  mind,  1  built  variation 
into  my  vocabulary,  and  tried 
again:  "Now  type  this."  The  key- 
board responded  by  typing  this  on 
the  computer  screen. 

On  the  subject  of  recognition, 
the  manual  continues,  "First-time 
users  of  speech  recognition  prod- 
ucts usually  have  poor  recognition 
for  the  first  few  days.  After  working 
with  the  equipment,  the  ability  to 
achieve  good  recognition  improves 
dramatically.  The  reason  for  this 
improvement  is  learning  to  relax." 
When  I  relaxed  and  spoke  more 
slowly  (and  stopped  eating  pretzels 
and  drinking  beer),  the  keyboard 
performed  beautifully:  type  this  now 
type  blue  now  type  this  blue.  But 
there's  only  so  much  that  can  be 
written  with  six  or  even  160  words. 
And  160  words  is  the  vocabulary 
limit. 

Of  course,  the  keyboard  has 
more  serious  uses  than  accommodat- 
ing a  lazy  writer.  As  a  relatively  inex- 
pensive ($995)  speech-recognition 
product  for  the  IBM  PC,  it  has  both 
industrial  and  personal  applica- 
tions. Voice  recognition  can  be  a  big 
help  to  the  physically  handicapped. 
One  of  Boeing  Computer  Systems' 
sharpest  programmers  is  a  quadra- 
plegic  who  uses  a  workstation  built 
around  an  IBM  PC-XT  and  a  Key 
Tronic  speech-recognition  key- 
board. He  writes  programs  in 
BASIC  and  Pascal  and  develops 
spreadsheets  using  Lotus  1-2-3. 

Voice  recognition  for  the  IBM 
PC  is  not  advanced  enough  that  I 
could  comfortably  write  this  col- 
umn from  a  horizontal  position — 
but  surely  the  Key  Tronic  keyboard 
is  a  promise  of  things  to  come. 
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Programming  the  Tl 


C.  Regena 


The  States  Of  The  Union 


I  have  previously  written  programs 
to  identify  the  states  and  their  capi- 
tals in  certain  regions  ("Southern 
States,"  COMPUTE!,  August  1984; 
"Western  States"  and  "New  Eng- 
land States,"  Programmer's  Refer- 
ence Guide  to  Ihe  TI-99/4A, 
COMPUTE!  Books).  Now,  after  nu- 
merous requests,  I'll  demonstrate  a 
program  for  the  middle  Atlantic 
states. 

The  central  portion  of  the  Unit- 
ed States  can  be  outlined  on  a  map 
as  1  did  with  the  Southern  States 
and  Western  States  programs.  How- 
ever, some  of  the  middle  Atlantic 
states  such  as  Delaware,  Maryland, 
and  New  Jersey  are  too  small  to 
outline  adequately  on  the  TI- 
99/4A.  The  color-blinking  method 
used  in  the  New  England  States 
program  won't  work,  either,  be- 
cause more  color  sets  are  needed 
than  are  available.  Therefore,  I've 
used  a  slightly  different  method  for 
the  region  which  includes  Delaware, 
Maryland,  New  Jersey,  New  York, 
Pennsylvania,  Virginia,  and  West 
Virginia.  The  states  are  drawn  in 
high-resolution  graphics  with  some 
color  sets  used  for  more  than  one 
state. 

When  a  question  mark  appears 
on  a  state,  the  student  types  in  the 
state's  name.  If  the  response  is  cor- 
rect, the  program  asks  for  the  state 
capital. 

Be  careful  typing  the  DATA 
statements — make  sure  the  commas 
are  placed  correctly.  Lines  290-380 
contain  definitions  for  graphics 
characters.  Lines  820-840  contain 
sets  of  row,  column,  and  character 
numbers  for  drawing  the  graphics. 

If  you  wish  to  save  typing 
effort,  you  can  obtain  a  copy  of  this 
program  by  sending  a  blank  cas- 
sette or  disk,  a  stamped,  self- 
addressed  mailer,  and  $3  to: 

C.  Rcgena 
P.O.  Box  1502 
Cedar  City,  UT  84720 


Please  be  sure  to  specify  the 
title  ("Middle  Atlantic  States") 
and  that  you  need  the  TI  version. 


Middle  Atlantic  States 


100 

110 
120 

130 

140 
1S0 
160 

170 

180 

1?0 

200 

210 

220 

230 

240 

250 
26e 
270 
2B0 
290 

300 

310 


REM   NORTH 
CALL  CLEAR 
PRINT  "   *» 
«(<«««*«*** 

B (25)  I  "«" 
PRINT  "    » 
HE  STATES  « 
B«25)  ;  "»" 
PRINT  "   «« 
t«tt«*«»««« 
PRINT  ; I "{3 
RTH  ATLANTI 
PRINT  I  1  I "T 
ME  OF  THE  S 

PRESS  <ENT 
PRINT  1  "IF 
IS  CORRECT, 
f4  BPftCESJT 
PITAL  CITY. 
PRINT  I "NAM 

SPELLED{7 
RECTLY  TO  B 


ATLANTIC 


" n "    »"| TA 

IDENTIFY  T 
"I"   *"(TA 

«*«««t«tt* 

■I 

SPACES>NO 
C  STATES" 
YPE  THE  NA 
TATE   THEN 
ER>.  " 
THE  STATE 

YPE  THE  CA 

*l 

ES  MUST  BE 
SPACES>COR 
E  ACCEPTED 


PRINT  1 "PRESS  FCTN  8 
REDO  TO  ERASE. " 
CALL  CHAR<33, "3F3F3F3 
F3F3F3F3F") 
CALL  CHAR(35, "FFFFFFF 
FFFFFFFFF") 
CALL  CHAR(43, "FBFBFBF 
aF0F0F0F") 

CALL  CHAR(45, "F0F0F0F 
SFBFCFCFE") 
CALL  CHAR(47, "FFFFFFF 
FFFFFFFFF" ) 
FOR  C*96  TO  139 
READ  C« 

CALL  CHAR(C,C«) 
NEXT  C 

DATA  FFFFFEFEFCFCFCFB 
, F0F0F0F0F0F8FEFF, FFF 
FFEFCFCFCFBFS, 3F3F3F3 
F3F3F3F3F,0 
DATA  0, , , 00000103073F 
FFFF, 03030707676FFFFF 
DATA  0000010103030F0F 
,0F0F0F0F0F0F0703,C0C 
080e0B080E0E0,F8F8F8F 
0F0E0C0B, FFFFFFFEFCFC 
FBF 
320  DATA  F0E0&02, B0FBFEFF 
FFFFFFFF, F7E0C0C0B0B, 
F0E0C0B, FFFFFFFFFFF2F 
0C 

330  DATA  FFFFFFFFFCFCFSF8 


340 


350 


360 


370 


380 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 


S00 


510 


520 
S30 

540 

550 

560 
570 
580 
590 
600 
610 

620 

630 


,F0F0F0F0C, FFFFFFFFFF 

Fa, FF3F3F3F3F3F1F, 030 

3030303030303 

DATA  FFFFFFFCFBF0C,FF 

FF, , , , , , FFFFFFFFFF3F1 

F1F,0F0 70301 ,FF7FFFFF 

FF3F1F0F,FFFEFE, , , , , F 

FFFFFFFFFFFFFFF 

DATA  DFDF9F9F9F9F9F9F 

,9F9F9F9F9FaFCFC7,  ,  ,  , 

, , FFFFFFFFFFFFFFFF,  00 

00000000030F3F, 000000 

01071FFFFF 

DATA  00000098FCFFFFFF 

, F8FCFEFFFFFFFFFF, FFF 

FFFFFFEFEC7E, C0E0E0F0 

C000e0C, 000000e0C0E0F 

0F 

DATA  FFFFFE7E1E0E,FCF 

CFCFCFCFCFCFC, 0103070 

F1F3F7FFF,0103071F3FF 

FFFFF, 000000000000FFF 

F 

DATA  00000000003F3F1F 

, 1F0F0F0F0F1F3FFF, 010 

303070F0F0F0F 

CALL  COLORd,  7,  1) 

CALL  COLDRC?,  7,  12) 

CALL  COLORC 10,12,1) 

CALL  COLOR (1 1 , 12,3) 

CALL  C0LaR(12, 14,12) 

CALL  CDLORtlS, 14, 3) 

CALL  CaLaR(14, 14,1) 

CALL  COLORCIS, 3, 1 ) 

CALL  COLORdt,  3,  1  ) 

RESTORE  490 

DATA  NEU  YORK, ALBANY, 

7, 25, PENNSYLVANIA, MAR 

RISBURG, 10, 21 ,NEU  JER 

BEY, TRENTON, 11,26 

DATA  WEST  VIRGINIA, CH 
ARLESTON, 15, 17,MARYLA 
ND, ANNAPOLIS, 13,23 
DATA  DELAWARE, DOVER, 1 
4, 25, VIRGINIA, RICHMON 
D, 17,21 
FOR  L-1  TO  7 
READ  S* (L) ,CAP« (L) , X < 
L) , Y(L) 
NEXT  L 

PRINT  I  "PRESS  <ENTER> 
TO  START."! 

CALL  KEV(0,K,S) 

IF  K<>13  THEN  560 

CALL  CLEAR 

CALL  SCREEN(8) 

CALL  C0L0R(2,  16,  1) 

PRINT  TAB ( 16) J  "  !##### 

«#" 

PRINT  TAB< 16)  ;"  !«#«## 

«'p" 

PRINT  TAB<16) J " !#**** 
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640 

PRINT  TAB(16) 1 "c####» 

1050 

FOR  L=l  TO  15 

1610 

CALL  HCHAR (24, 20+L, A 

tbdm" 

1060 

CALL  KEY(0,K,S) 

SC (SEB»("PRESS  ENTER 

6S0 

PRINT  TAB( 15) ; "hdxyz 

1070 

IF  S<1  THEN  1060 

"  ,  L ,  1  )  )  ) 

€3  SPACES>+n" 

1080 

IF  K-13  THEN  1130 

1620 

NEXT  L 

660 

PRINT  TAB( 14) ; "iddddq 

1090 

IF  K-6  THEN  1020 

1630 

CALL  KEY(0,K,S) 

t3  SPACES>-a" 

1100 

CALL  HCHAR(21 , 10+L,K 

1640 

IF  K013  THEN  1630 

670 

PRINT  TAB(13) ; " jdddsr 

) 

1650 

CALL  HCHAR (24,21, 100 

{4  SPACES>/" 

1110 

Sl«-Sl«ScCHR«(K) 

,  11  ) 

6B0 

PRINT  TAB(13)  j  "kddf ' 

1120 

NEXT  L 

1660 

RETURN 

690 

PRINT  TAB ( 14)  (  "wvu"  !  : 



CALL  VCHAR(3, 27, 153,3 

) 

1130 

CALL  SOUND(100, 880,2 

) 

IF  S»(R)-81»  THEN  12 

60 

1670 

CALL  SOUND(i00,262,2 

700 

1140 

1680 

) 

CALL  SOUND( 100,330,2 

) 

CALL  SOUND(100,392,2 

710 

CALL  VCHAR(6, 27, 144,4 
) 

1150 

CALL  8DUND(100,330,2 
) 

1690 

720 

CALL  VCHAR(3, 26, 144,7 

1160 

CALL  SQUND<100,262,2 

1700 

) 

CALL  SOUND(200,523,2 

730 

CALL  VCHAR<4, 25, 144,5 

1170 

T-T  +  1 

1710 

) 
RETURN 

> 

1180 

IF  T<2  THEN  1020 

1720 

CALL  CLEAR 

740 

CALL  VCHAR(5, 24, 144,4 

1190 

CALL  HCHAR(21, 11, 100 

1730 

PRINT  "TRY  ABAIN?   Y 

) 

,  15) 

OR  N" 

7S0 

CALL  HCHAR(7,21, 144,3 

1200 

FOR  L-1  TO  LEN(St(R) 

1740 

CALL  KEY(0,K,S) 

) 

> 

1750 

IF  K-B9  THEN  4B0 

760 

CALL  HCHAR(8, 20, 144,4 

1210 

CALL  HCHAR t21, 10+L, A 

1760 

IF  K078  THEN  1740 

) 

SCCSEBKS*  (R)  ,L,  1)  )  ) 

1770 

CALL  CLEAR 

770 

RESTORE  820 

1220 

NEXT  L 

1780 

END                    @ 

780 

FOR  I-l  TO  28 

1230 

aOSUB  1600 

790 

READ  R,C,Q 

1240 

C-C-1 

800 

CALL  HCHAR<R,C,G) 

1250 

eOTO  1570 

810 

NEXT  I 

1260 

OQSUB  1670 

820 

DATA  3,25,154,4,24,15 

1270 

FOR  L-1  TO  <> 

4,6,23, 155,6,22, 156,6 

1280 

CALL  HCHAR (23, 2+L, AS 

,21, 156,6,20, 157,7,20 

C(SE8» ("CAPITAL  ?",L 

,  158,8,  19, 159,  10,27,  1 

,  1  )  )  ) 

52, 10,28, 146 

1290 

NEXT  L 

830 

DATA  10,29, 147, 13,22, 

1300 

T-0 

128, 13,23, 136, 13,24, 1 

1310 

CALL  HCH AR  <  23 , 1 3 ,  1 00 

36, 14,22, 129, 14,23, 13 

15) 

6,  14,24, 137,  15,23, 130 

1320 

,  1  ^  J 
Sl»-"" 

,  15,24,  138 

1330 

CALL  SOUND(150, 1397, 

S40 

DATA  16,25,131,16,24, 

2) 

151, 16,23, 144, 17,24, 1 

1340 

FOR  L-1  TO  15 

50, 17,23, 149, 18,23, 14 

1350 

CALL  KEY<0,K,S) 

8,  18,24, 147, 18,  14,  146 

1360 

IF  8<1  THEN  1350 

,  17,  15,  145 

1370 

IF  K-13  THEN  1430 

850 

CALL  VCHAR(15,22, 144, 

1380 

IF  K-6  THEN  1310 

4) 

1390 

CALL  HCHAR<23, 1Z+L,K 

860 

CALL  VCHAR(15,2l, 144, 

) 

4) 

1400 

S1S-S1«&CHR* (K) 

870 

CALL  VCHAR(16,20, 144, 

1410 

NEXT  L 

3) 

1420 

CALL  SOUND( 100,880,2 

880 

CALL  VCHARC16, 19, 144, 

) 

3) 

1430 

IF  CAP«<R)-S1*  THEN 

890 

CALL  HCHARdB,  15,  144, 

1550 

4) 

1440 

CALL  SOUND( 100, 330,2 

900 

FDR  C-1  TO  7 

) 

910 

T-0 

1450 

CALL  SGUND<100,262,2 

920 

RANDOMIZE 

) 

930 

R»INT<7«RND)+1 

1460 

T-T+1 

940 

IF  S»(R)-""  THEN  930 

1470 

IF  T<2  THEN  1310 

9S0 

CALL  BCHAR CX tR) , Y (R) , 
6) 

1480 

CALL  HCHAR<Z3, 12, 100 
,15> 

960 

CALL  HCHAR(20, 1, 100, 1 
60} 

1490 

FOR  L-1  TO  LEN(CAP*( 
R>  ) 

970 

FOR  L-1  TO  7 

1500 

CALL  HCHAR(23, 12+L,A 

980 

CALL  HCHAR(21,2+L, ASC 
<SES«{"STATE  ?",L, 1) ) 
) 

1510 

SC (SEB« (CAP* (R)  ,L,  1  } 
)  ) 
NEXT  L 

990 

CALL  HCHARCX  CR) , YCR)  , 

1520 

BOSUB  1600 

32) 

1530 

C-C-1 

, 

1000  CALL  HCHAR(X<R) . Y<R) 

1540 

GOTO  1570 

.63) 

1550 

GOSUB  1670 

1010  KEXT  L 

1S60 

S*(R)=" " 

1020  CALL  HCHAR(21,  11,  100 

1570 

CALL  HCHAR(X (R) , Y(R> 

,15) 

,B> 

1030  SI*-"" 

1580 

NEXT  C 

1040  CALL  SOUND(150, 1397, 

1590 

BDTO  1720 

2) 

1600 

FOR  L-1  TO  11 
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COMPUTEI's  Guide 
To  Typing  in  Programs 


Before  typing  in  any  program,  you 
should  familiarize  yourself  with  your 
computer.  Learn  how  to  use  the  key- 
board to  type  in  and  correct  BASIC 
programs.  Read  your  manuals  to  un- 
derstand how  to  save  and  load  BASIC 
programs  to  and  from  your  disk  drive  or 
cassette  unit.  Computers  are  precise — 
take  special  care  to  type  the  program 
exactly  as  listed,  including  any  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  as  noted  below. 
To  help  you  with  this  task,  we  have 
implemented  a  special  listing  conven- 
tion as  well  as  a  program  to  help  check 
your  typing — the  "Automatic  Proof- 
reader." Please  read  the  following 
notes  before  typing  in  any  programs 
from  COMPUTE!.  They  can  save  you  a  lot 
of  time  and  trouble. 

Commodore,  Apple,  and  Atari 
programs  can  contain  some  hard-to- 
read  (and  hard-to-type)  special  charac- 
ters, so  we  have  developed  a  listing 
system  that  indicates  the  function  of 
these  control  characters.  (There  are  no 
special  control  characters  in  our  IBM  or 
TI-99/4A  hstings.)  You  will  find  Com- 
modore and  Atari  special  characters 
within  curly  braces;  do  not  type  the  brac- 
es. For  example,  {CLEAR}  or  {CLR} 
instructs  you  to  insert  the  symbol 
which  clears  the  screen  on  the  Atari  or 
Commodore  machines.  For  Commo- 
dore, Apple,  and  Atari,  a  symbol  by 
itself  within  curly  braces  is  usually  a 
control  key  or  graphics  key.  If  you  see 
{A},  hold  down  the  CTRL  key  and 
press  A.  This  will  produce  a  reverse 
video  character  on  the  Commodore  (in 
quote  mode),  a  graphics  character  on 
the  Atari,  and  an  invisible  control  char- 
acter on  the  Apple.  Commodore  com- 
puters also  have  a  special  control  key 
labeled  with  the  Commodore  logo. 
Graphics  characters  entered  with  the 
Commodore  logo  key  are  enclosed  in  a 
special  bracket  that  looks  like  this: 
f<A>^.  In  this  case,  you  would  hold 
down  the  Commodore  logo  key  as  you 
type  A.  Our  Commodore  listings  are  in 
uppercase,  so  shifted  symbols  are  un- 
derlined. A  graphics  heart  symbol 
(SHIFT-S)  would  be  listed  as  S.  One 
exception  is  {SHIFT-SPACE}.  When 
you  see  this,  hold  down  SHIFT  and 
press  the  space  bar.  If  a  number  pre- 
cedes a  symbol,  such  as  {5  RIGHT},  {6 


S},  or  [<8  Q>],  you  would  enter  five 
cursor  rights,  six  shifted  S's,  or  eight 
Commodore-Q's.  On  the  Atari,  inverse 
characters  (printed  in  white  on  black) 
should  be  entered  after  pressing  the 
inverse  video  key. 

Since  spacing  is  sometimes  impor- 
tant, any  more  than  two  spaces  will  be 


listed.  For  example,  (6  SPACES}  means 
to  press  the  space  bar  six  times.  Our 
listings  never  leave  a  space  at  the  end  of 
a  line,  instead  moving  it  to  the  next 
printed  line  as  {SPACE}.  For  your 
convenience,  we  have  prepared  this 
quick-reference  chart  for  the  Commo- 
dore and  Atari  special  characters: 


Atari  400/800/XL/XE 


When  you 

t CLEAR} 

fUPJ 

{OaWN> 

{LEFT> 

{RIBHT> 

{BACK  SJ 

< DELETE} 

{INSERT} 

{DEL  LINE} 

{INS  LINE} 

{TAB} 

<CLR  TAB} 

{SET  TAB} 

{BELL} 

{ESC} 


Type 

ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  « 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


See 


■r 
4. 
«• 
■* 

u 
u 
a 
a 

a 
a 

Q 


Clear  Screen 
Cursor  Up 
Cursor  Down 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
Escape  key 


Commodore  PET/CBM/VIC/64/1 28/1 6/+4 


When  You 
Read: 

{CLR} 

{HOME) 

(UP[ 

{DOWN) 

{LEFT) 

{RIGHT) 

(RVS) 

{OFF[ 

{BLK} 

{WHT} 

{RED} 

{CYN) 

{PUR} 

{GRN} 

(BLU) 

{YEL} 


Press: 

iSHiFTj  I  CLIL'HOME 


:  CIRIHOME 


J 


SHrFT  '  ;   t    CRSR  I 
I  I   CRSR  [ 


See: 

□ 

m 


CIRl 

5 

CTRL 

' 

CTRL 

7 

CTRL 


C3 

m 


When  You 
Read: 

§5i 

Mi 

(  Fl  } 
!  F2  ) 
J  F3  ) 
{  F4  } 
f  F5  ( 
(  F6  } 
{  F7  } 
{  F8  ) 
4 


Press: 


See: 
□ 


COMMODORE 

^  IS 
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The  Automatic  Proofreader 

We  have  developed  a  series  of  simple, 
yet  effective  programs  that  can  help 
check  your  typing.  Type  in  the  appro- 
priate Proofreader  program  listed  be- 
low, then  save  it  for  future  use.  On  the 
VIC,  64,  or  Atari,  run  the  Proofreader  to 
activate  it,  then  enter  NEW  to  erase  the 
BASIC  loader  (the  Proofreader  remains 
active,  hidden  in  memory,  as  a  machine 
language  program).  Pressing  RUN/ 
STOP-RESTORE  or  SYSTEM  RESET 
deactivates  the  Proofreader.  You  can 
use  SYS  886  to  reactivate  the  VIC/64 
Proofreader,  or  PRINT  USR(1536)  to 
reenable  the  Atari  Proofreader.  On  the 
Apple,  the  Proofreader  automatically 
erases  the  BASIC  portion  of  itself  after 
you  activate  it  by  typing  RUN,  leaving 
only  the  machine  language  portion  in 
memory.  It  works  with  either  DOS  3.3 
or  ProDOS.  Disable  the  Apple  Proof- 
reader by  pressing  CTRL-RESET  before 
running  another  BASIC  program.  The 
IBM  Proofreader  is  a  BASIC  program 
that  simulates  the  IBM  BASIC  line  edi- 
tor, letting  you  enter,  edit,  list,  save,  and 
load  programs  that  you  type.  Type 
RUN  to  activate. 

Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  decimal  number  (on 
the  Commodore),  a  hexadecimal  num- 
ber (on  the  Apple),  or  a  pair  of  letters 
(on  the  Atari  or  IBM)  appears.  The 
number  or  pair  of  letters  is  called  a 
checksum.  Try  making  a  change  in  the 
line,  and  notice  how  the  checksum 
changes. 

All  )'ou  need  to  do  is  compare  the 
value  provided  by  the  Proofreader  with 
the  checksum  printed  in  the  program 
listing  in  the  magazine.  Fn  Commodore 
listings,  the  checksum  is  a  number  from 
0  to  255.  It  is  set  off  from  the  rest  of  the 
line  with  rem.  This  prevents  a  syntax 
error  if  the  checksum  is  typed  in,  but 
the  REM  statements  and  checksums 
need  not  be  typed  in.  It  is  just  there  for 
your  information. 

In  Atari,  Apple,  and  IBM  listings, 
the  checksum  is  given  to  the  left  of  each 
line  number.  ]ust  type  in  the  program 
one  line  at  a  time  (without  the  printed 
checksum)  and  compare  the  checksum 
generated  by  the  Proofreader  to  the 
checksum  in  the  listing.  If  they  match, 
go  on  to  the  next  line.  If  not,  check  your 
typing:  You've  made  a  mistake.  On  the 
Commodore,  Atari,  and  Apple  Proof- 
readers, spaces  are  not  counted  as  part 
of  the  checksum,  so  be  sure  you  type 
the  right  number  of  spaces  between 
quote  marks.  The  Commodore  and 
Atari  Proofreaders  do  not  check  to  see 
that  you've  typed  the  characters  in  the 
right  order,  so  if  characters  are  trans- 
posed, the  checksum  still  matches  the 
listing.  Because  of  the  checksum  meth- 


od used,  do  not  type  abbreviations, 
such  as  ?  for  PRINT.  The  IBM  Proof- 
reader is  the  pickiest  of  ail;  it  will  detect 
errors  in  spacing  and  transposition.  Be 
sure  to  leave  Caps  Lock  on,  except 
when  typing  lowercase  characters, 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  (except 
Ctrl-Break)  to  stop  the  listing.  If  you 
type  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  sure  you  mean  yes. 
Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
'Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram in  BASIC  as  usual  (this  replaces 
the  Proofreader  in  memory).  You  can 
now  run  the  program,  but  you  may 
want  to  resave  it  to  disk.  The  version  of 
your  program  that  you  resave  from 
BASIC  will  take  up  less  space  on  disk 
and  will  load  faster,  but  it  can  no  longer 
be  edited  with  the  Proofreader.  If  you 
want  to  convert  a  program  to  Proof- 
reader format,  save  it  to  disk  with  SAVE 
"filename",  A. 

Special  Proofreader  Notes 
For  Commodore  Cassette 
Users 

The  Proofreader  resides  in  a  section  of 
memory  called  the  cassette  buffer, 
which  is  used  during  tape  LOADs  and 
SAVEs.  Therefore,  be  sure  to  press 
RUN/STOP-RESTORE  to  get  the  Proof- 
reader out  of  the  way  before  saving  or 
loading  a  program.  If  you  want  to  use 
the  Proofreader  with  tape,  run  the 
Proofreader,  then  enter  these  two  lines 
exactly  as  shown,  pressing  RETURN 
after  each  one: 

AS  =  'TROOFREADER,T":B$  =  "{10 
SPACES}":FOR  X  =  l  TO  4;A$=A$ 
-)-B$:NEXT 

FOR  X  =  886  TO  1018:A$  =  A$H-CHR$ 
(PEEK(X)):NEXT;OPEN  1,1,1,AS: 
CLOSEl 

Then  insert  a  blank  tape  and  press  RE- 
CORD and  PLAY  to  save  a  special  ver- 
sion of  the  Proofreader.  Anytime  you 
need  to  reload  the  Proofreader  after  it 
has  been  erased — for  example,  after 
you  reload  a  paritally  completed  pro- 
gram— just  rewind  the  tape,  type 
OPENliCLOSEl,    then   press   PLAY. 


You'll  see  the  message  FOUND 
PROOFREADER.T,  but  not  the  familiar 
LOADING  message.  Don't  worry;  the 
Proofreader  is  in  memory.  When 
READY  comes  back,  enter  SYS  886. 


Program  1 :  ViC/64 
Proofreader 

By  Charles  Brannon,  Program  Editor 

10  PRINT" fCLRlPLEASE  WAIT..."; 

FORI=8e6TO1018:READArCK=CK+ 

ArPOKEI.AsNEXT 
20  IF  CKO 17539  THEN  PRINT" 

{DOWN) YOU  MADE  AN  ERROR": PR 

INT " IN  DATA  STATEMENTS . " : EN 

D 
30  SYS886:PRINT"{CLR){2  DOWN}P 

ROOFREADER  ACTIVATED ." :NEW 
40  DATA  173,036,003,201,150,20 

8,001,096,141,151,003,173 
50  DATA  037,003,141,152,003,16 

9,150,141,036,003, 169,003 
60  DATA  141,037,003,169,000,13 

3,254,096,032,087,241,133 
70  DATA  251,134,252,132,253,00 

8,201,013,240,017,201,032 
80  DATA  240,005,024,101,254,13 

3,254,165,251,166,2  52,164 
90  DATA  253,040,096,169,013,03 

2,210,255,165,214,141,251 
100  DATA  003,206,251,003,169,0 
00,133,216,169,019,032,210 
110  DATA  255,169,018,032,210,2 

55,169,58,032,210,255,166 

120  DATA  254,169,000,133,254,1 

72 , 1 51 , 003 , 192 , 087 , 208 , 006 

130  DATA  032,205,139,076,235,0 

03,032,205,221,169,032,032 

140  DATA  210,255,032,210,255,1 

73,251,003,133,214,076,173 

150  DATA  003 


Program  2:  Atari 
Proofreader 

By  Charles  Brannon,  Program  Editor 


100 
ii0 


120 


130 
140 


1S0 

160 

170 
1Q0 
190 
200 

210 


GRAPHICS  0 

FOR  r-1536  TO  1700IRE 

AD  AlPOKE  l,AiCK-CK+A 

■NEXT  I 

IF  CKO19072  THEN  7  " 

Error  in  DATA  Statame 

nt«.   ChBck  Typing."! 

END 

A-USR(153i) 

?    17     "ALitomatlc    Proof 

raadar  Nom  Activatad. 


END 

DATA  104, 
,3, 201, i9 
DATA  200, 
0B,243,96 
DATA  133, 
, 6, 153, 2& 
DATA  0,16 
74,6,232, 
DATA  206, 
41,78,6, 1 
DATA  79,6 
6,  105,  1,  1 


160, 0, 1Q5, 26 
',240,7 

200, 192,34,2 
1,200,  169,74 

26,3,200, 169 
1,3,  162 
J9, 0,226, 157, 
,224,16 
, 245, 169,93, 1 
169,6, 141 
6,24,  173,4,22 
141,95 
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10S, 

,247 

24  1, 

8 

,62, 

01  ,3 


104, 

2B0 

36 

,128 

2f0 

0 

203, 

300 

S 

s,as 

310 

143, 

104 

104, 

320 

220  DATA  &,173,S,22B, 

0,  141  ,96,6,  169 
230  DATA  0,133,203,96 

,238, 123,241,93,6 
240  DATA  244,241,115, 

124,241 ,76, 205, 23 
2S0  DATA  0,0,0,0,0,32 

246,8,201 
260  DATA  159,240,13,2 

2,240,7,72,24, 101 
270  DATA  203,133,203, 

40,96,72, 152,72, 1 
2B0  DATA  72,160,0,169 

, 145,68,200, 192,4 
290  DATA  208,249,165, 

74,74,74,74,24, 10 
300  DATA  161,160,3,14 

, 165,203,41,  15,24 
310  DATA  105,161,200, 

8B, 169,0, 133,203, 
320  DATA  170,104,168, 

40,96 


Program  3:  IBM  Proofreader 

By  Charles  Brannoii,  Program  Editor 

10  '  Autofnatic:  Pronf reader  Ver 

siun  2.00  tLines  270,510,5 

15,517,620,630  changed  fro 

m  VI. 0) 

100  DIM  LS(500)  ,1.NUM<500):COL 

OR  0,7,  7:  KEY  aFF:CLS!MA)(  = 

0!LNUI1(0)  =65536! 
110  ON  ERROR  GOTO  120: KEY  15, 

CHR»(4)+CHR*(70) SON  KEY < 1 

5)  GOSUB  640: KEY  (15)  ON: 

GOTO  130 
120  RESUME  130 

130  DEF  SEB=S<H40:W=PEEK(8<H4A) 
140  ON  ERROR  GOTO  650;PRINT:P 

RINT"ProD-f  reader  Ready.  " 
150  LINE  INPUT  L*:Y=CSRLIN-IN 

T(LENCL*)/W)-1:LDCATE  Y,l 
160  DEF  SEG=0:PDKE  1050, 30: PO 

KE  1052,34: POKE  1054, 0:Pa 

KE  1055,79:PDKE  10S6,13:P 

DKE  1057,2a:LINE  INPUT  L* 

sDEF  SEG: IF  L*=""  THEN  15 

0 
170  IF  LEFTtCLS, 1)="  "  THEN  L 

*=MID«<L*,2) sBDTO  170 
180  IF  VAL(LEFT*(Lt,2> )=0  AND 
H1D«(L«,3,  U="  ■'  THEN  L% 

'=MID*<L«,4) 
190  LNUM=VAL(L«) :TEXTS=MID«(L 

$ , LEN (STR* <LNUri)  )  +1 ) 
200  IF  ASC(L*)>57  THEN  260  'n 

o  line  number,  there-fore 

command 
210  IF  TEXT«=""  THEN  GOSUB  54 

0:IF  LNUM=LNUM<P)  THEN  GO 

SUB  560: GOTO  150  ELSE  150 
220  CKSUM=0:FDR  1=1  TO  LEN<L* 

) : CKSUM= ( CKSUM+ASC ( M 1 D* ( L 

*,I))»I)  AND  255: NEXT: LOG 

ATE  Y,l: PRINT  CHR* (65+CKS 

UM/16)+CHR*(65+(CKSUH  AND 
15))+"  "+LS 
230  GOSUB  540: IF  LNUM (P) =LNUM 
THEN  L*(P)=TEXT*!GOTO  15 

0  'replace  line 
240  GOSUB  580: GOTO  150  'inser 

t  the  line 
260  TEXT»="":FaR  1=1  TO  LENtL 

« ) : A=ASC (MID* (L*, I ) ) : TEXT 

*=TEXT«+CHR*(A+32*(A>96  A 

ND  A<123)) :NEXT 


270  DELIMITER=INSTR(TEXT«, "  " 
) :COMMAND«=TEXT«:ARS«=""i 
IF  DELIMITER  THEN  COMMAND 
«=LEFT*(TEXT*,DELIMITER-1 
) !ARB»=MID* {TEXT*, DELIMIT 
ER+1)  ELSE  DELIMITER=INST 
R(TeXT»,CHR«(34))sIF  DELI 
MITER  THEN  COMMAN0S=LEFTS 
(TEXT«,DELIMITER-1) : ARG»= 
MIDS( TEXTS, DELIMITER) 
IF  CDMMftND*<>"LIST"  THEN 
410 

OPEN  "scrn:"  FDR  OUTPUT  A 
5  #1 

IF  ARG*=""  THEN  FIRST=0!P 
=MAX-1:G0T0  340 
DELIMITER=INSTR(ARGt, "-") 
ilF  DELIMITER=0  THEN  LNUM 
=VAL(ARG»): GOSUB  540: FIRS 
T=P:GDTD  340 

F I RST=VAL ( LEFT* ( ARG* , DEL  I 
M 1 TER ) > : LAST=VAL  C  M I D« ( ARG 
«,DELIMITER+1) ) 

330  LNUM=FIRST:GOSUB  540: FIRS 
T=P  :  LNUM=L AST  s  GOSUB  540  S  I 
F  P=0  THEN  P=MAX-1 

340  FOR  X=F1RST  TO  P:N«=MID«( 
STR«(LNUM(X) ) ,2)+"  " 

350  IF  CKFLflG=0  THEN  A*=""!SO 
TO  370 

360  CKSUM=0!A*=N*+Lt(X):FOR  I 
=1  TO  LEN(A«) :CKSUM=(CKSU 
M+ASC(MID4(A«,I))*I)  AND 
255: NEXT: A*=CHR$ (65+CKSUM 
/16)+CHR*(65+(CKSUM  AND  1 
S))+"  '■ 

370  PRINT  #1,A*+N«+L«(X) 

380  IF  INKEYSO""  THEN  X=P 

390  NEXT  : CLOSE  «1:CKFLAG=0 

400  GOTO  130 

410  IF  CDMMAND«="LLIST"  THEN 
OPEN  "Iptl:"  FOR  OUTPUT  A 
S  tlsSOTO  300 

420  IF  COMMANDS= "CHECK"  THEN 
CKFLAG=1;60TQ  290 

430  IF  COMMAND*<>"SflVE"  THEN 
450 

440  GOSUB  600; OPEN  AR6«  FOR  0 

UTPUT  AS  »liARG*= GOTO 

300 

450    IF    COMMAND*<>"LOAD"    THEN 
490 

460  BOSUB  600: OPEN  ARG*  FOR  I 
NPUT  AS  #l:t1AX=0:P=0 

470  WHILE  NOT  EOF<l):LINE  INP 
UT  #1,L*:LNUM(P)=VAL(L«> : 
L« (P) =MID»  tL» , LEN (STRt  < VA 
L  <L* ) ) ) +1 ) : P=P+ 1 : WEND 

480  HAX=P! CLOSE  «1:60T0  130 

490  IF  COMMAND«="NEU"  THEN  IN 

PUT  "Erase  program  -  Are 

you  sure" 5 L*! IF  LEFT«(L*, 

l)="y"  DR  LEFT«(L», l)="Y" 

THEN  MAX=0!GOTO  130: ELBE 

130 

500  IF  COMMAND»="BASIC"  THEN 
COLOR  7, 0,0: ON  ERROR  GOTO 
0iCL5:END 

510    IF   COMMAND*<> "FILES"    THEN 
520 

515  IF  ARGS=""  THEN  AR6*="A: " 
ELSE  SEL==1:  GOSUB  600 

517  FILES  ARG«:GOTO  130 

520  PRINT "Syntan  error"! GOTO 
130 


540  P=0: WHILE  LNUM>LNUM(P)  AN 

D  P<MAX :P=P+1: WEND ! RETURN 
560  MAX=MAX-i:FDR  X=P  TO  MAXs 

LNUM(X)=LNUM(X+1) :L«(X)=L 

« ( X+1 ) ! NEXT: RETURN 
5B0    MAX=MAX+JsFDR    X=>MAX    TO   P+ 

1  STEP  -1 : LNUM (X) -LNUM (X- 

1 ) I L» ( X  >  =L*  <  X-1 ) t  NEXT : L» ( 

P) -TEXT*! LNUM (P) -LNUM: RET 

URN 
600  IF  LEFT* ( ARG* ,1)<>CHR*<34 

)  THEN  S20  ELSE  ARS«-MID« 

(ARG*, 2) 
610  IF  RIGHT* (ARG«,1)=CHR» (34 

)  THEN  ARG«-LEFT«<ARB«,LE 

N<AR6«)-1) 
620  IF  SEL=0  AND  INSTR(ARB*," 

.">-0  THEN  ARS»»ARQ»+".BA 

S" 
630  SEL=0: RETURN 
640  CLOSE  #l:CKFLAB=0s PRINT "S 

topped. "I  RETURN  150 
650  PRINT  "Error  «";ERRiRESUM 

E  150 


Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial 
Programmer 


768  TO  768  + 
C  +  A:  POKE  I 


10  C  =  0:  FOR  I 

68:  READ  A:C 

,A:  NEXT 
20  IF  C  <  >  725S  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS"!  END 
30  IF  PEEK  (190  »  256)  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3:  CA 

LL  1002:  GOTO  50 
40  PRINT  CHRS  (4) ; "IN#A*300" 
50  POKE  34,0;  HOME  :  POKE  34,1: 
VTAB  2:  PRINT  "PRDDFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
180  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169, 141,96 
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|kJ||  ^#^  Machine  Language  Entry  Program 
lwlL.^%  For  Commodore  64 


Charles  Brannon.  Program  Editor 


MLX  is  a  labor-saving  utiliti/  that  al- 
lows almost  fail-safe  entry  of  machine 
language  programs  published  in  COM- 
PUTE!. You  need  to  know  nothing  about 
machine  language  to  use  MLX — it  was 
designed  for  everyone.  At  least  8K  ex- 
pansion memory  is  required. 

MLX  is  a  new  way  to  enter  long  machine 

language  (ML)  programs  with  a  mini- 
mum of  fuss.  MLX  lets  you  enter  the 
numbers  from  a  special  list  that  looks 
similar  to  BASIC  DATA  statements.  It 
checks  your  typing  on  a  line-by-line 
basis.  It  won't  let  you  enter  illegal  char- 
acters when  you  should  be  typing  num- 
bers. It  won't  let  you  enter  numbers 
greater  than  255  (forbidden  in  ML).  It 
won't  let  you  enter  the  wrong  numbers 
on  the  wrong  line.  In  addition,  MLX 
creates  a  ready-to-use  tape  or  disk  file. 

UsEng  MLX 

Type  in  and  save  the  appropriate  ver- 
sion of  MLX  (you'll  want  to  use  it  in  the 
future).  When  you're  ready  to  type  in  an 
ML  program,  run  MLX.  MLX  for  the  64 
asks  you  for  two  numbers;  the  starting 
address  and  the  ending  address.  These 
numbers  are  given  in  the  article  accom- 
panying the  ML  program. 

When  you  run  MLX,  you'll  see  a 
prompt  corresponding  to  the  starting 
address.  The  prompt  is  the  current  line 
you  are  entering  from  the  listing.  It  in- 
creases by  six  each  time  you  enter  a  line. 
That's  because  each  line  has  seven  num- 
bers— six  actual  data  numbers  plus  a 
checksum  number.  The  checksum  verifies 
that  you  typed  the  previous  six  numbers 
correctly.  If  you  enter  any  of  the  six 
numbers  wrong,  or  enter  the  checksum 
wrong,  the  computer  rings  a  buzzer  and 
prompts  you  to  reenter  the  line.  If  you 
enter  it  correctly,  a  bell  tone  sounds  and 
you  continue  to  the  next  line. 

MLX  accepts  only  numbers  as  in- 
put. If  you  make  a  typing  error,  press  the 
INST/DEL  key;  the  entire  number  is 
deleted.  You  can  press  it  as  many  times 
as  necessary  back  to  the  start  of  the  line. 
If  you  enter  three-digit  numbers  as  list- 
ed, the  computer  automatically  prints 
the  comma  and  goes  on  to  accept  the 
next  number.  If  you  enter  less  than  three 
digits,  you  can  press  either  the  space  bar 
or  RETURN  key  to  advance  to  the  next 
number.  The  checksum  automatically 
appears  in  inverse  video  for  emphasis. 

To  simplify  your  typing,  MLX  rede- 
fines part  of  the  keyboard  as  a  numeric 
keypad  (lines  581-584): 


U     I     O  7     8      9 

H     J     K     L    become    0     4     5      6 

M     ,      .  12      3 

64  MLX  Commands 

When  you  finish  typing  an  ML  listing 
(assuming  you  type  it  all  in  one  session), 
you  can  then  save  the  completed  pro- 
gram on  tape  or  disk.  Follow  the  screen 
instructions.  If  you  get  any  errors  while 
saving,  you  probably  have  a  bad  disk,  or 
the  disk  is  full,  or  you've  made  a  typo 
when  entering  the  MLX  program  itself. 
You  don't  have  to  enter  the  whole 
ML  program  in  one  sitting.  MLX  lets  you 
enter  as  much  as  you  want,  save  it,  and 
then  reload  the  file  from  tape  or  disk 
later.  MLX  recognizes  these  commands: 

SHIFT-S:  Save 
SHIFT-L:  Load 
SHIFT-N:  New  Address 
SHIFT-D;  Display 

When  you  enter  a  command,  MLX 
jumps  out  of  the  line  you've  been  typ- 
ing, so  we  recommend  you  do  it  at  a  new 
prompt.  Use  the  Save  command  to  save 
what  you've  been  working  on.  It  will 
save  on  tape  or  disk,  as  if  you've  fin- 
ished, but  the  tape  or  disk  won't  work, 
of  course,  until  you  finish  the  typing. 
Remember  what  address  you  stop  at. 
The  next  time  you  run  MLX,  answer  all 
the  prompts  as  you  did  before,  then 
insert  the  disk  or  tape.  When  you  get  to 
the  entry  prompt,  press  SHIFT-L  to  re- 
load the  partly  completed  file  into  mem- 
ory. Then  use  the  New  Address 
command  to  resume  typing. 

To  use  the  New  Address  command, 
press  SHIFT-N  and  enter  the  address 
where  you  previously  stopped.  The 
prompt  will  change,  and  you  can  then 
continue  typing.  Always  enter  a  New 
Address  that  matches  up  with  one  of  the 
line  numbers  in  the  special  listing,  or 
else  the  checksum  won't  work.  The  Dis- 
play command  lets  you  display  a  section 
of  your  typing.  After  you  press  SHIFT- 
D,  enter  two  addresses  within  the  line 
number  range  of  the  listing.  You  can 
abort  the  listing  by  pressing  any  key. 

64  MLX:  Machine  Language 
Entry 

10  REM  LINES  CHANGED  FROM  MLX 

(SPACE) VERSION  2.00  ARE  750 

; 765, 770  AND  860     irem  50 

20  REM  LINE  CHANGED  FROM  MLX  V 

ERSION  2.01  IS  300  :rem  147 

100  PRlNT"(CLR)E6r'rCHR$(142); 

CHR5(8); :POKE53281,l!POKE5 

3230,1  irew  67 


101  POKE  788, 52: REM  DISABLE  RU 
N/STOP  rreni  119 

110  PRINT" (RVSl (39  SPACES)"; 

:rera  176 

120  PRINT" (RVS) (14  SPACES] 
IRIGHT) {OFFlg*j£fRVS) 
(RIGHT)  [RIGHT)T2  SPACES) 
1*1 (OFF ) g*l£ t  RVS }£ ( RVS ! 
(14  SPACES}"?      :rem  250 

130  PRINT" (RVS) (14  SPACES) 
(RIGHT)  gG3{ RIGHT) 
(2  RIGHT)  (OFFJ£{RVS)£ 
i*|(OPF)i*HRVST 
(14  SPACES)";       Jrem  35 

140  PRINT" (RVS) (41  SPACES)" 

:rem  120 

200  PRINT"(2  DOWN) (PUR) (BLK)  M 
ACHINE  LANGUAGE  EDITOR  VER 
SION  2.02(5  EX)WN)"!rem  238 

210  PRIC?T"B53(2  UP) STARTING  AD 

DRESS? (e  SPACES) (9  LEFT}"; 

: rem  143 

.215  INPUTS :F=1-F:C$=CHR$( 31+11 
9*F)  :rem  166 

220  IFS<256OR(S>40960ANDS<4915 
2 ) ORS>  53247THENGOSU  B3000  jG 
OTO210  trem  235 

225  PRINT:PRINT:PRINT  :reni  180 

230  PRINT"g53{2  UP}ENDING  ADDR 
ESS?  (8  SP.^CES)(9  LEFT)";:! 
KPUTE  J  F=l-F ! C5=CHR$ (31  +  119 
*F)  :rem  20 

240  IFE<256OR(E>40960ANDE<4915 
2 ) ORE>  53247THEKGOSUB3000 :G 
OTO230  :rem  183 

250  IFE<STHENPRINTC?;"(RVS)END 
ING  <  START (2  SPACES}" :GOS 
UB1000:GOTO  230    : rem  176 

260  PRINT: PRINT: PRINT  : rem  179 

300  PR1NT"(CLR}";CHR$(14) :AD=S 

;rein  56 

310  A=l5PRINTRIGHT5("0000"+MID 
5(STR§(AD),2),5);":"; 

: rem    3  3 

315    F0RJ=AT06  :rera    3  3 

320  GOSUB570:IFN=-1THENJ=J+N!G 
OTO3  20  :rera   2  28 

390    IPN=-211THEN   710         : rem  62 

400    IFN=-204THEN    790         : rem   64 

410    IFS=-206THENPRINT:INPUT" 

( DO\m  ) ENTER    NEW    ADDRESS " ?  Z 
Z  : rem   44 

415  IFK=-206THENIFZZ<SDRZZ>ETH 
ENPRINT"  (RVS}OtJT  OF  RANGE" 
:GOSUB1000:GOTO410irem    225 

417  IFN=-206THENAD=Z2:PR1NT:GO 
TO310  !rem   238 

420    IF    NO -196    THEN   480 

:rem   133 

430  PRINT: INPUT"DISPLAY:FROM"; 
F I P  RI NT , "TO " ; : I KPUTT 

srem  234 

440  IFF<SORF>EOHT<SORT>ETHENPR 
INT  "AT  LEAST"  ;S,-"  (LEFT),  N 
OT  MORE  THAN";E:GOTO430 

:rem  159 

450  F0RI=FT0TSTEP6 SPRINT: PRINT 
RIGHT? ( " 0000 " +MID$ ( STR? ( I ) 
,2),5);"t";         : rem  30 

451  FORK=0TO5:N=PEEK(I+K) :PRIH 
TRIGHT?( "00"+MID5(STR5(N) , 
2 ) ,  3  )  ;  "  ,  " ;  : rem  66 
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460  GETA$:IFA5>""THENPRINT:PR1 
NT:GOTO310  : rem  25 

470  NEXTK:PRINTCHR?(20); :NEXTI 
:PRINT: PRINT iGOTO310 

irem  50 

480  IFN<0  THEM  PRINT :G0T03 10 

:reni  IGB 

498  A(J)=N:NEXTJ       ; rem  199 

500  CKSUM=AD-INT(AD/256)*256:F 
0RI=1T06:CKSUM=(CKSUM+A( I) 
)AND255rNEXT        : rem  209 

510  PRINTCHR$(18); :GOSUB570:PR 
INTCHR$(146);       : rem  94 

511  IFN=-1THENA=6:G0T0315 

srem  254 

515  PRINTCHR5(20) jIFN=CKSUMTHE 

N530  :rem  122 

520  PRINT: PRINT "LINE  ENTERED  W 

RONG  :  RE-ENTER": PRINT: COS 

UB1000:GOTO310     : rem  176 

530  GOSUB2000  :rem  218 

540  FOR1=1T06:POKEAD+I-1,A(I)  : 

NEXTjPOKE54272,0:POKE54273 

,0  : rem  2  27 

550  AD=AD+6:IF  AD<E  THEN  310 

:rem  212 
560  GOTO  710  :rem  108 

570  N=0:Z=0  :rem  88 

580  PRINT "E£i";  :rem   Bl 

581  GETA5:IFA?=""THEN581 

: rem  95 

532  AV=-(A5  =  "M")-2*(A?=",  ")-3* 

(A5="-")-4*(A?="J")-5*{A$= 

"K")-6*(A?="L")     srem  41 

583  AV=AV-7*(A5="U" )-B*(A5="I" 
)-9*(A5="0") :IFA?="H"THENA 
?="0"  :rem  134 

584  IFAV>0THEl!lA5=CHR?(48+AV) 

: rem   134 

585  PRINTCHR?(20) ; :A=ASC(A$) :I 
FA=130RA=440RA=32THEN67B 

:rem   229 
590    1FA>128THENN=-A: RETURN 

: rem    137 
600    IFAO20    THEN    630  :  rem    10 

610    GOSUB690:IFI=1ANDT=44THENN 
=-1  :  P  Kl  NT  "  {  OFF  }  [  LE  Pr  ) 
(LEFT)"; :GOTO690  : rem   62 

620   GOTO5  70  :rem    109 

630    IFA<48OttA>57THEN580 

: rem   105 
640    PfiINTA5r :N=N*10+A-48 

:rem   106 

650  IFN>255  THEN  A=2a :GOSUB100 

0:GOTO600  :rem  229 

660  Z=Z+lsIF2<3THEN580  trem  71 

670  IFZ=0THENGOSUB100O:GOTO570 

: rem  114 
680  PRINT",  ";  :RETUPJ!!   :  rem  240 

690  S%=PEEK(209)+256*PEEK(210) 
+PEEK(211)         :rem  149 

691  F0RI=IT03:T=PEEK{S%-I) 

: rem  67 
695    IFT<>44ANDT<>58THENPOKES%- 

I,32:HEXT  : rem   205 

700    PRINTLEFT$("{3    LEFT)",I-1) 

;  : RETURN  :  rem    7 

710    PRINT" [CLR] [RVS!***    SAVE    * 

**{3    DOWN}"  :rem    236 

715    PRINT" {2    DOiraJCPRESS    { RVS } 

RETURN [off)    ALONE    TO    CANCE 

L    SAVE) [DOWN}"  : rem    106 

720    F$="": INPUT" {DOWN}    FILENAM 

E";F5jIFF$=""THENPRINTiPRI 

NT:GOTO310  :reni   71 

730    PRINT:  PRINT"  (2    DOWNHRVSJT 

(OFF} APE    OR    [RVS]D{0FF)1SK 

:     (T/D)"  :rem   228 

740    GETA5:IFA?<>"T"ANDA5<>"D"T 

HEN740  :rem   36 

750   DV=1-7*(A$="D") :IFDV=8THEN 


F?=5"0!"+F5:OPENI5,8,15,  "S" 

+F?:CL0SE15  :rem   212 

760    T5=F?:ZK=PEEK(53)+256*PEEK 

(54)-LEN(T$) :P0KE782,ZK/25 

6  : rem   3 

762  POKE781,ZK-PEEK(782}*256:P 
OKE7B0,LEN(T$) :SYS65469 

:rem  109 

763  POKE780,1:POKE781,DV:POKE7 
82,1 :SYS65466       : rem  69 

765  K=S:POKE254,K/256:FOKE253, 
K-PEEK( 254 ) *  256 : POKE780 , 2  5 
3  : rem  17 

766  K=E+1:POKE782,K/256:POKE78 
l,K-PEEK(7e2)*256:SYS65496 

: rem  23  5 
770  IF(PEEK(783)AND1)0R(191AND 

ST)THEN780  srem  111 
775  PRINT"  (DOVJNJDONE.  (DOlJNl";G 

OTO310  : rem  113 

780  PRINT" (DOWN) ERROR  ON  SAVE. 
(2  SPACESJTRY  AGAIN. ":IFDV 
=1THEN7  20  :rem  171 

781  OPEN15,8,15:INPUT#15,El?,E 
2$;PRINTE15;E25:CLOSE15:GO 
TO720  srem  103 

790  PRINT" iCLR] [RVS}***  LOAD  * 
**{2  DOWN)"        :rem  212 

795  PRINT" (2  DOWN) (PRESS  [RVS) 
RETURN (off)  ALONE  TO  CANCE 
L  LOAD)"  :rem  82 

800  F5="":INPUT"(2  DOWN}  FILEN 
AME" ; F5 :IFF$=" "THENPRINT:G 
OTO3I0  : rem  144 

810  PRINT: PRINT" [2  DO\m)(RVS)T 
[OFF)APE  OR  (RVS)D[0FF]ISK 
:  (T/D)"  :rem  227 

820  GETA$:1FA5<>"T"ANDA5<>"D"T 
HEN820  :rem  34 

830  DV=1-7*(A$="D") :IFDV=8THEK 
F$="0:"+F5         :rem  157 

840  T?=F5«2K=PEEK(53)+256*PEEK 
(54)-LEN(T$) :POKE7B2,ZK/25 
6  J  rem  2 

841  POKE7ai,ZK-PEEK(782)*256:P 
OKE780,LEN{T$) :SYS6  5469 

: rem  107 
845  POKE780,1 :POKE781,DV:POKE7 
a2,l!SYS6  5466  : rem  70 
850  POKE780,0:SYS65493  : rem  11 
860  IFtPEEK(783)AKDl)OR(191AND 
ST)THENB70  : rem  111 
865  PRINT"{DOWN}DONE. ":GOTO310 

J  rem  .  96 
870  PRINT" iDOWN}ERROR  ON  LOAD. 
(2  SPACES }TRY  AGAIN. (DOWN) 
":IFDV=ITHEN800  : rem  172 
880  OPEN15,8,15 :INPUT#15,E1$,E 
25 :PRINTE15; E25 :CLOSE15 :G0 
TO800  :rem  102 

1000  REM  BUZZER        : rem  135 

1001  POKE54296,15:POKE54277,45 
:P0KE54278, 165    : rem  207 

1002  POKE54276,33:POKE  54273,6 
:P0KE54272,5       : rem  42 

1003  FORT=lTO20a:NEXT:POKE5427 
6,32: POKE54273 ,0 : POKE5427 
2,0: RETURN        : rem  202 

2000  REM  BELL  SOUND     :  rem  78 

2001  POKE54296,15:POKE54277,0: 
POKE54278,247     : rem  152 

2002  POKE  54276,17:POKE54273,4 
0:POKE54272,0      : rem  86 

2003  FORT=lTOi00:NEXT:POKE5427 
6, 16: RETURN        : rem  57 

3000  PRINTC$;"UVS)N0T  ZERO  PA 
GE  OR  ROM":GOTO1000 

srem  89 
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6  Types  of  Charts  and  Sheets 

Indices 

User  Fields 

Notes,  Footnotes  and  Sources 

No  Limits 

Adapts  to  Your  Hardware 

Comprehensive 

Easy  to  Use 

And  Much,  Much  More 

Send  for  brochure  and  sample  printouts. 

t-'amily  Roota  ititrludc^  detailed  manual  and  2  full  diskettes 

of  programs  (or  your  Apple  IL  IBM  PC, 

Cornniodore  64  and  CP/M." 

Oi  her  gen<?Jtlogy  soft  ware  also  available. 

Price  Slfl5.  Satisfaction  Guaranteed. 

American  Express.  Visa  &  Mastercard  Accepted 
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AppEc  Compuief. 
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Buslntis  Machines, 
CBM,  Lnc..&  Digital 
Kr&carch. 


QUINSEPT,  INC. 

P.O.  Box  216,  Lexington,  MA  02173 

(617)  641-2930 


CONVERSE  WITH 
YOUR  COMPUTER 


AT  LA5TI  A  FULL  IMPLEMENTATION  Ol  the  Ottgira!  EUZA  program 

is  now  available  to  run  on  your  personal  cornpulefl 

CieaietJ  H  MIT  m  1966.  ELIZA  has  became  the  world's  most 

celebrated  artificial  intelligence  4emon$tiratJon  program  ELIZA  is  a 

r^on-diteclive  psychottieiapisi  who  analyzes  each  statement  as  you 

type  it  m  and  then  responds  wilh  her  own  comment  or  question— and 

hef  remarks  are  olten  atnaimgly  approprJale! 

Designed  to  run  on  a  large  mainlrame,  ELIZA  has  never  before  been 

available  to  personal  computer  users  except  in  grealty  stri  pped  down 

versions  lacking  the  sophistication  which  made  the  original  prograrn 

so  fascinating. 

Now.  our  new  personal  computer  version  possessing  the  FULL  power 

snt  range  of  expressian  of  the  ongmal  is  t>eing  offered  at  the 

iht/odLictO'y  price  of  only  S^S  And  to  E^tyojtmd  out  r^ow  she  does  Jt 

{Or  teach  her  to  do  inorel  we  t^ave  inclitded  the  complete  SOURCE 

PROGRAM  (written  m  BASIC)  31  no  exira  cost 

Order  your  copy  ol  ELIZAtoday  and  you'll  never  again  wonder  how  to 

respond  when  you  hear  someone  say,  "Okay,  let's  see  what  this 

computer  of  yours  can  actually  dol" 

READ  WHAT  THE  EXPERTS  SAY  ABOUT  OUR  VERSfON  Of  EUZA: 
"Much  more  than  a  mere  gafrie  You'll  be  impressed  with  ELiZA  A 
convincing  demonsliarioi  of  Artificial  tnielligence'' 

-PCKtAGAZlNE 
"Detigfitful  enlertammeni  .  An  ideal  medium  lot  showing  off  your 
system,'  -KtlCflOCOMPUlifiG  MAGAZINE 

"ELIZA  IS  an  asloundrng  piece  ol  software ..  .A  fasci  nating  program  to 
use  and  study."  -SAftOW'S  M/CflOCOWPt/Tffl  f\EfOfiTS 

"ELIZA  is  a  great  way  to  introduce  yourfriends  to  computers -^.  Avery 
tunny  party  game.'  -PETER  A  UcWLUAMS 

"ELIZA  IS  an  exceptional  program,  one  that's  fun  to  use.  shows  oft 
your  machine. and  has  great  historical  interest" 

-POPUUR  COMPUTING  MAGAZINE 
"This  version  ol  ELIZA  li  the  best  we  have  seen  As  a  party  Qame.  it  is 
unmatched"  -HOME  APPLICATIONS  FOR  THE  C-54 

ELIZA  IS  AVAILABLE  IN  THE  FOLLOWINI^  FOR  MATS: 

•  ISM  PC.  PCjr..  PC-XT  and  all  compatibles. 
•All Apple  II computers  [II,  II  Pius,  lie,  ttcj 

•  Apple  Macintosh  iMicrosoft  BASIC  required) 

•  Comrnodore  64  (specify  disk  or  cassette) 

■  5V<  inch  or  8  inch  disk  for  all  CP/M  systems 
Alt  veisions  are  $4&  and  include  a  six  page  jsers  manual. 
Please  add  S2.00  shipping  and  handling  to  all  orders 
(Catilornra  residents  please  add  SVi%  sales  lax) 

ARTIFICIAL  INTELLIGENCE  RESEARCH  GROUP 

921  North  La  Joita  Aven  ue.  Dept  M 
-r=i — -1  Los  Angeles.  CA  90046 

'        (213)656-7368    (2131654.221* 
WC,  VISA  and  checfes  accepted 


Copy  Atari  4D0/8O0/XL  Series  Cartridge!  to  Dtsk 
and  run  them  from  a  IVlanu 


1^^  ■  gairt'" 

ATARI  CARTRIDGE-TO-DISK  COPY  SYSTEM  $69.95 

Suwrf^flrr  lets  you  copy  ■^'Vt'  cartridgo  iat  Iha  Atari  i^OO/SOO  f  XL  Serses  Id  diskent,  and  UlofoflllBr  run  it 
from  yout  diih  drive.  Enjay  the  conveiticncB'  of  salai^ting  your  lavorild  games  fjOfTi  J  "rrionu  SC'eei" 
raitwr  ihjin  iwapping  ciinrido&s  i^r  and  cut  ot  yow  compuier.  Each  Danridge  copifld  by  S<jperc£n  tunc- 
twns  eMfcrfr  f'lit  Ifv  ong/na/.  Suparctn  includsi: 

•  DISKETTE  with: 

COPY  PROGRAhf  -  Cop«a  iho  CAHrtdoe  10  a  dtflkfltte  (uo^  (o  3  canrldgiw  vtnll  fit  on  one  drsk.) 
MENU  PROGRAM  -  AutOfnAtlcallv  runs  and  d^plsys  a  m«nj  prornptino  use'  fcr  o  ONE 
ktvsiroke  wieciion  of  any  camidco  on  the  disk, 

•  CARTRIDGE; 

"Tricks"  the  computef  inTQ  thinking  that  iha  cnginal  "copy  protected"  canridgii  has  beer 
in  salted. 
To  date  there  have  been  no  problems  dupliceting  and  running  all  of  the  protected  canridges  that  we 
krtoA  of.  However.  FRONTRUNNER  car^noi  guarantee  the  opeiBiion  of  ail  future  cartridges.  Supercart  fs 
uw-Tnendiv  and  simple  to  use  and  lequres  no  modHicBtiofiB  of  your  hardware.  PIRATES  TAKE  NOTE: 
SUPEftCART  is  not  iniernJed  lor  ill«08l  CODV'ng  and/or  dfltnbution  of  CDpv"afit«l  ftoftwara.  .  .Sorrvil! 
SYSTEM  REQUIREMENTS: 
Atari  dOOySOO  or  XL  Sn-ws  Computer  /  4SK  Mvmarv  '  Ona  Disk  D^ive 
Available  01  your  computer  siora  Of  direct  from  FRONTRUNNER.    DEALER  INQUlRsES  ENCOURAGED 
TOLL  FREE  ORDER  LINE:  [2d  Hrsl  1-»044a47«l/ln  Nevada  or  lor  questions  Calh  Ottt)  7Be-4«» 
Personal  checlcs  atlow  2-3  wseJcs  to  dear,  M/C  and  VISA  accepted. 

Include  $3.50  ($7.50  Foreign  oidersl  fat  shipping. 
FRONTRUNNER  COMPUTER  tNOUSTRfES 
316  California  Ave..  Suite  ff712.  Reno.  Nevada  89509  -  (7021  786-4600 

Olfjers  M3kfi  Osims        SLJPERCART  makes  cofimfff 


To  receive  additional 
information  from 

advertisers  in  this  issue, 

use  the  handy  reader 

service  cards  in  the 

back  of  the  magazine. 


PAHTS  /  SERVICE  FOR  ATARI*COMPUTERS 

Flat  SefWc«  Rates  Below  Include  Parts  A  Labor,  iODay  Warranty 


800  Compuiei  Repaif (49.50 

950  Interface  Repair S49-5I) 

600XL  Computer  Repair     , ,  J49.5D 

1200XLCornpu1(!r  Repair S49.50 


810  Disk  Drive  Repair 179.50 

8D0XL  Csmputei  Flepaii S49.50 

1 050  Oisk  Drive  Repair SB5.00 

800  Keyboaril  Repair 135.00 


Above  units  repaired  or  excliaiigerJ  wiih  ^flbulld3t:^e  exchange  include  $7.00  rttjrn  shippirvg  and 
insurance. 


INTEGRATED  CIRCUITS 

GTIACnip-C0148D5 

upgrade  wjir]  mstiucliofis $11.50 

tOK  Rev  B  OS  Upgrade  -  lor  400/800 

3  Chip  ROM  set  with  inslnictionj  .     S10.00 

C012294         $8. SO 

C012296       $9.50 

C01479S $8.50 

C014S06         $9.50 

C010745         SID  DO 

0010750  $9  50 

MODULES/CIRCUIT  BOARDS 
complels  with  IC's 

16KRAM  Memory  Module -CX853.  115.00 

800  10K  Rev  B  OS  Module $15.00 

800(400  CPU  Boaid  with  GTIA    ...  $19.50 

900  Mam  Board    $24.50 

400  Mam  Board $20.00 

SOO  Power  Supply  Boa/d $10.50 

SI  0  Data  Separator  Board 

upgrade  witr^  mstiuctions $25-00 

St  0  Side  Board  w/o  Sep   41771  .  .  $43-50 

81 0  Bear  Potier  Board $25.00 

81 0  Anaiog  Board $1 6-OD 

SI  D  Rear  Board/Analog  Board  Upgrade 
with  10  pin  jumper 

andmsiiLfCiions $37.50 

800  OK  Board  Set S65  00 

810  Board  Set $99  50 

800  48K  Board  Set S79  50 


BARE  BOARDS 

With  parts  lists 

ISO  MTERF/tCE  BOMD S11.S0 

Build  your  own  intefface!! 

810  Analog  Boajd $3.50 

810  Rear  Board $5.00 

DISK  DRIVES.  Etc. 
aia  cuiiDm  ntii  o&n $i4$.oa 

B$0  Cutwn  imirfKt $7(.5D 

Repiacermcnl  SIO  Drive  Mech $70.00 

Replacement  transtarmer  lot  80D'400. 

810.1050. 1200XL,  1020 $15.00 

eOOXUBOOXL.  130XE 

Power  Supply    $25.00 

SAMS  Service  Manual 

loi  800/400  or  800XL $t9.95 

De  Re  Wan      $12.50 

Insrde  Alan  Basic $6.50 


SOFTWARE 

Basic  Canndge $15.00 

Editor/Assemhler $1 5.00 

0"Ben  Canridge $12.50 

Popeye  Cartridge $12-50 

Kmdercomp  Cart SIO.OO 

Bucit  Rogers  Cart $7.50 

JumW  Jel  Pilot $10.00 

Crossiire  Can    $5.00 

CtiiclrenCanridge   $500 


AMERICAN  TV      —     415-352-3787 

IMal  I  Order  and  Repal  r 1 5333  Invemais  St .,  San  Uandro,  C A  94579 

Retail  Store 1988  Washington  Avenue.  San  Leandro,  CA  94577 

Terms  We  accept  money  orders,  personal  checks  or  COD  s  -  VISA.  MasteiCard  okay  on 

oideis  over  120,00  .  No  personal  checks  on  CO.D 

Sriipping  $4  00  shipping  and  handing  on  orders  under  $1  SO. 00  Add  $2.00  for  COD,  orders. 

Calilornia  residenis  include  6ViV.  saes  las  Overseas  shippng  entia. 

Prices  sutJieci  to  change  wnnoui  notice  We  reserve  the  nghi  lo  limil  Quantnies.  Sales  limited  la 

stock  on  hand  Foreign  shipping  entia. 

Mucli  mom! 

Sen!  SASE  lor  free  prica  Hst.  'Alan  is  a  registered  trademark  pi  Alan  Corp. 


CAPUTE! 


Modifications  or  Corrections 
To  Previous  Articies 


Commodore  64  Disk  Commander 

This  program  from  the  September  issue  (p.  80)  has  a 
bug  in  the  DOPEN  command.  Do  not  use  DOPEN  until 
you  correct  the  problem.  If  you  disassemble  the  relo- 
cated "Disk  Commander"  code,  you'll  notice  the  in- 
struction CMP  $062D,X  at  location  $A797  in  the 
DOPEN  routine.  The  instruction  should  be  CMP 
$026D,X.  This  portion  of  the  routine  is  intended  to 
assign  a  unique  secondary  address  to  each  opened  file, 
but  the  bug  causes  all  files  to  be  opened  with  the  same 
secondary  address.  If  you  never  DOPEN  more  than 
one  file  at  a  time,  there's  no  problem.  However,  multi- 
ple DOPENs  lead  to  improperly  closed  files,  which  are 
denoted  in  the  disk  directory  by  an  asterisk  next  to  the 
filename.  If  you  see  any  of  these  so-called  poison  files 
on  your  disk,  you  should  remove  them  with  the  VALI- 
DATE command  (OPEN  1,8,15,"V0:"  :CLOSE  1),  not 
the  SCRATCH  command. 

To  fix  "Disk  Commander,"  first  enter  POKE 
44,20:POKE  5120,0:NEW  to  reconfigure  memory,  then 
load  and  run  "MLX".  Use  the  MLX  Load  command 
(SHIFT-L)  to  load  your  existing  version  of  Disk  Com- 
mander. Next,  use  the  New  Address  command 
(SHIFT-N)  to  move  to  line  3591,  then  enter  the  follow- 
ing new  data: 

3591     :048, 007, 221, 109, 002, 240, 122 

Now  press  5HIFT-5  to  call  the  MLX  Save  feature 
and  save  a  copy  of  the  corrected  program. 

Our  thanks  to  reader  Franz  Paulsen  for  uncover- 
ing this  bug. 


Atari  Animation  Witli  P/M  Graphics,  Part  2 

Part  of  line  90  is  missing  in  the  program  example  in  the 
first  column  on  page  102  of  this  article  from  the 
October  issue.  It  should  read  as  follows: 

KB  90  FOR  X  =  PMBASE+1024  TO  PMBASE  +  204S: 
POKE  X,0:NEXT  X 


The  Last  Warrior 

A  number  of  readers  have  had  difficulties  with  line  480 
in  the  IBM  version  of  this  game  program  from  the 
September  issue  (p.  54).  The  first  character  within 
quotes  in  that  line  is  the  lowercase  letter  1,  not  the 
numeral  1.  The  two  characters  do  have  a  similar  ap- 
pearance in  the  listing,  but  164  is  not  a  reasonable 
parameter  for  a  PLAY  statement,  while  164  is.         @ 
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News  &  Products 


Word  Processor  For  IBM 

Professional  Software  has  introduced 
Write  'n  Spell,  a  SI 49  word  processor 
which  contains  an  integrated  90,000- 
word  dictionary  that  checks  and  cor- 
rects spelling.  In  addition  to  standard 
features  found  in  most  sophisticated 
word  processors,  Wn'fe  'ii  Spell  also  con- 
tains built-in  mail-merge,  graphing, 
and  simultaneous  typing-while- printing 
capabilities.  The  program  will  merge 
with  Lotus  1-2-3,  pfs-Jile,  Mitltiplan,  and 
many  other  popular  application  pro- 
grams. The  word  processor  also  has 
pull-down  HELP  and  OPTION 
windows. 

Write  'n  Spell  is  available  for  the 
IBM  PC,  PCjr,  AT,  and  compatible 
computers. 

Professional   Software,    Inc.,    51 
Fremont  Street,  hleedham,  MA  02194. 
Circle  Reader  Service  Number  220. 


World  War  II  Air  War 

Strategic  Studies  Group  (SSG),  creators 
of  Reach  for  the  Stars  and  Carriers  at  War 
strategy  games,  has  released  Europe 
Ablaze:  The  Air  War  Over  England  and 
Germany  1939-1945.  This  historical  sim- 
ulation contains  three  major  scenarios, 
selected  from  the  various  phases  of  the 
air  war,  and  also  a  game  design  kit  that 
lets  you  create  your  own  scenarios.  Ma- 
jor bombing  missions  are  planned  twice 
each  day,  and  players  are  required  to 
select  targets,  plot  course  and  speed, 
determine  H-hour,  and  allocate  squad- 
rons. Fighter  aircraft  patrol  and  inter- 
cept in  response  to  ground  and  radar 
sightings. 

Europe  Ablaze  is  available  for  Apple 
Il-series  computers  (with  64K  RAM) 
and  for  the  Commodore  64,  at  a  sug- 
gested retail  price  of  $50. 

Strategic  Studies  Group,  1747 
Orleans  Court,  Walnut  Creek,  CA  94593. 
Circle  Reader  Service  Number  221. 


Apple  II  Spreadsheet 

Mouse  Calc,  a  mouse-controlled  spread- 
sheet for  the  Apple  Ik  and  128K  Apple 
He,  has  been  announced  by  Interna- 
tional Solutions,  Inc.  The  program  in- 
cludes integrated  graphics,  mouse- 
operated    editing    and    selecting 


techniques,  pull-down  menus,  and 
color  display.  Mouse  Calc  is  the  first  in  a 
series  of  application  programs  from  In- 
ternational Solutions. 

Users  can  perform  24  of  the  most 
commonly  used  arithmetic,  logical, 
search,  and  other  spreadsheet  functions 
with  Mouse  Calc.  The  program  provides 
rounding  and  logical  functions  such  as 
AND/OR  and  TRUE/FALSE.  Mouse 
Calc  can  merge  two  or  more  files,  and  it 
can  read  files  created  with  VisiCalc, 
AppleWorks,  and  other  programs  using 
the  DIP  format. 

The  program  requires  a  mouse 
controller,  such  as  the  AppleMouse  II, 
and  a  second  disk  drive  is  recommend- 
ed. Suggested  retail  is  $149.95,  and  in- 
cludes a  90-day  warranty. 

International   Solutioris,    Inc.,    910 
West    Maude    Avenue,    Smmi/vale,    CA 
94086. 
Circle  Reader  Service  Number  222. 


Educational,  Entertainment  Programs 

Among  the  software  titles  recently  in- 
troduced by  CBS  Software  are  several 
educational  and  entertainment  pro- 
grams, included  are  The  Body  in  Focus,  a 
self-paced  color-graphics  human  anat- 
omy program  for  the  Apple  II  + ,  He,  lie. 
Commodore  64,  and  IBM  PC  (S39.95 
each);  Success  ivith  Math,  a  series  of 
math  tutorials  for  ages  6  through  18  for 
the  Apple  11  +  ,  lie,  lie.  Commodore  64, 
and  IBM  PC/PCjr  ($24.95  each);  Suc- 
cess with  Algebra,  a  similar  series  cover- 
ing algebra  for  grades  7-12  for  the 
Apple  II  series.  Commodore  64,  and 
IBM  ($34.95);  and  Quink,  a  game  of 
pattern  recognition  and  knowledge  for 
ages  ten  and  older,  for  the  Apple  II 
series,  64,  and  IBM  PC/PCjr  ($34.95). 
CBS  Software,  One  Fawcett  Place, 
Greenzcich,  CT  06836. 
Circle  Reader  Service  Number  223. 


64  Bulletin  Board 

Bozart  Co,  has  introduced  two  telecom- 
munications packages  for  the  Commo- 
dore 64:  Bozboard,  a  full-featured 
bulletin  board  program,  and  Bozlerm, 
an  all-purpose  terminal  program.  Boz- 
board is  set  to  run  with  one  or  two  1541 
disk  drives  or  the  MSD  SD-2  dual  drive. 


It  is  compatible  with  the  Commodore 
1650  Automodem  and  also  with  the 
Westridge  6420,  TeleLearning,  Mitey 
Mo,  and  HES  11  modems.  The  system 
requires  a  printer. 

With  Bozboard  ($40),  you  have  a 
choice  of  eight  subboards,  public  mes- 
sages, electronic  mail,  uploading, 
downloading,  and  a  magazine  feature 
which  allows  the  system  operator  (sysop) 
to  publish  a  color/graphics  electronic 
magazine  on  the  BBS.  The  program 
transfers  files  using  the  standard 
XMODEM  protocol  and  its  own  Bozart 
protocol.  The  Bozart  protocol  is  capable 
of  transferring  high-resolution  graphics 
and  allows  the  bulletin  board  user  to 
view  the  graphics  screen  as  it  is 
downloaded. 

Bozlerm  ($20)  offers  the  user  the 
option  of  automatic  dialing  or  manual 
dialing.  Seven  of  the  function  keys  can 
be  defined  to  automatically  transmit 
any  80-character  message,  read  the  disk 
directory,  upload  buffer  contents,  cap- 
ture incoming  data  to  the  buffer,  print  it 
to  the  screen  or  a  printer,  or  save  it  to 
disk  as  an  edited  or  unedited  file. 

Bozart  Co.,  7818  Summerfield  Road, 
Siinimerfield,  NC  27358. 
Circle  Reader  Service  Number  224. 


Atari  Interface 

Integrated  Computer  Equipment  Com- 
pany (ICECO)  has  introduced  the  ICE- 
PIC  (ICE'S  Parallel  Interface 
Converter),  a  printer  interface  for  Atari 
computers  which  also  includes  graphics 
software  drivers. 

The  ICEPIC  converts  parallel- 
interface  (Centronics-compatible) 
printers  to  a  joystick  interface  (joystick 
port  2  or  4)  which  can  be  used  by  Atari 
400/800  and  XL  computers  with  no 
hardware  modifications.  The  ICEPIC 
requires  no  850  Interface  Module,  no 
cable,  and  no  external  power  supply. 
The  software  supports  any  printer  in 
text  mode  and  provides  graphic  func- 
tions for  Epson  or  Okidata  92/93 
graphics  compatible  printers.  The  ICE- 
PIC works  with  most  Atari  programs, 
such  as  most  BASIC  programs,  Atari- 
Writer,  Letter  Perfect,  B/GRAPH,  Koala 
Micro  Illustrator,  and  AtariArtist.  Sever- 
al utility  programs  are  included  with 
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the  software,  including  a  diagnostic 
checkout  program,  a  warm  reboot  pro- 
gram, and  a  MicroPainter  file  display 
program. 

Suggested  retail  is  $49.95  for  the 
interface,  software,  and  manual.  There 
is  a  30-day  money  back  guarantee,  a 
90-day  replacement  warranty,  and  a 
lifetime  $19  repair/replacement  policy. 

Integrated   Computer  Equipment 
Company,  8507  Natural  Bridge  Road,  St. 
Louis,  MO  63121. 
Circle  Reader  Service  Number  225. 


64,  Apple  Karate 

Data  East  has  converted  its  arcade  ac- 
tion game.  Karate  Champ,  to  a  new  com- 
puter version  for  the  Commodore  64 
and  Apple  II  series.  The  $29.95  game 
features  two-player  and  player- versus- 
computer  modes  as  you  guide  your  ka- 
rate  fighter  through  successive 
matches.  Using  the  joystick,  you  can 
make  your  fighter  lunge,  kick,  spin, 
somersault,  reverse-punch,  and  block. 
Data  East  USA,  Inc.,  470  Gianni 
Street,  Santa  Clara,  CA  95054. 
Circle  Reader  Service  Number  226. 


Pascal  For  64  &  128 

A  complete  Pascal  development  system 
for  the  Commodore  64  and  128  has 
been  released  by  Abacus  Software.  Su- 
per Pascal  includes  an  extensive  compil- 
er, a  source  file  editor,  an  integrated 
assembler,  and  a  comprehensive  utility 
package  for  file  and  disk  management. 

Also  included  are  a  handbook  with 
more  than  200  pages  and  a  systems 
disk.  Suggested  retail  price  is  $59.95. 

Abacus  Software,   2201   Kalamazoo 
S£,  P.O.  Box  7211,  Grand  Rapids.  Ml 
49510. 
Circle  Reader  Service  Number  227. 


New  From  Epson 

Epson  has  developed  several  new 
printers  for  home  users.  Among  these 
are  the  DX-10  ($399),  a  daisywheel 
printer  which  prints  at  ten  characters 
per  second  (cps);  and  the  DX-20  ($499), 
a  daisywheel  with  a  IK  byte  print  buff- 
er, 20  characters-per-second  (cps)  print 
speed,  and  a  Diablo  All  Purpose  Inter- 
face (RS-232C,  IEEE-488,  and  parallel). 

Also  new  from  Epson  is  the  Spec- 
trum LX-90,  a  dot-matrix  printer  with 
draft  and  near-letter-quality  (NLQ) 
modes.  It  comes  with  a  printer  interface 
cartridge  that  makes  it  ready  for  use 
with  the  IBM  PC,  PCjr,  or  Apple  He. 
Draft  copy  is  printed  at  100  cps;  NLQ  at 
16  cps.  The  Spectrum  LX-90  retails  for 
$389. 

Comrex,  a  division  of  Epson,  has 
released  the  CR-128  intelligent  printer 
buffer.  Features  include   128K  buffer 


memory  and  built-in  serial-to-serial, 
serial-to-paraliel,  parallel-to-parallel, 
and  parallei-to-serial  interfaces.  Sug- 
gested retail  is  $299.  Another  new 
Comrex  product  is  the  CR-700  series  of 
bidirectional  A-B  switch  boxes,  which 
simplify  connections  to  the  computer 
and  eliminate  the  need  to  swap  cables 
when  changing  peripherals.  The  switch 
boxes  retail  for  $39.95. 

Epson  America,  2780  Lomita  Blvd., 
Torrance,  CA  90505. 
Circle  Reader  Service  Number  228. 


World  War  II  Combat  Game 

Under  Fire,  from  Avalon  Hill,  combines 
the  depth  of  a  war  game  simulation 
with  the  colorful  graphics  of  an  arcade 
game.  Authentic  armies,  weapons,  and 
maps  from  World  War  II  add  to  the 
game's  realism.  Different  maps  and  sce- 
narios are  included  on  disk;  players  can 
also  create  their  own. 


A  sampie  screen  from  Avalon  HiWs  Under 
Fire  strategy  game. 

Under  Fire  is  available  for  the 
Apple  II  series.  A  joystick  is  optional  for 
the  Apple  lie  and  lie,  but  required  for 
the  11  + ,  Suggested  retail  price  is 
$59.95. 

Avalon  Hill  Game  Compan\f,  4517 
Hartford  Rd.,  Baltimore,  MD  21214. 
Circle  Reader  Service  Number  229. 


TI  Disk  Organizer 
TI  programs  can  be  organized  on  a 
single  disk  with  Disk  Data  Base  from 
Asgard  Software.  The  program  lets  you 
sort  and  print  a  catalog  by  either  disk 
name  or  filename,  to  print  it  out  unsort- 
ed,  or  to  selectively  print  out  all  entries 
that  contain  a  certain  string.  The  catalog 
can  also  be  broken  up  into  blocks  of  250 
entries  for  easy  management. 

Data  files  can  be  converted  from 
the  Master  Disk  File  to  the  Disk  Data 
Base  format.  Also  featured  are  numer- 
ous prompts  and  an  online  dictionary  of 
terms.  Disk  Data  Base  requires  Extended 
BASIC,  a  32K  memory  expansion  unit, 
and  a  disk  drive  and  controller.  A  print- 
er and  second  disk  drive  are  recom- 
mended. Price:  $15. 


Asgard  Software,  P.O.  Box  10306, 
Rockville,  MD  20850. 
Circle  Reader  Service  Number  230. 

Bulletin  Board  Directory 

A  new  directory  of  computer  bulletin 
boards,  called  Plumbline,  is  now  avail- 
able from  the  publishers  of  Plumb,  a 
newsletter  about  personal  telecommu- 
nications. The  directory  lists  over  1,000 
bulletin  boards  available  to  the  public. 
Each  entry  includes  a  brief  description 
of  the  bulletin  board,  the  type  of  com- 
puter it  runs  on,  and  its  primary  area  of 
interest, 

Phimblitte  is  included  with  a  sub- 
scription to  Plumb,  $26,50;  or  can  be 
purchased  separately  for  $8. 

Plumb,  P.O.  Box  300,  Harrods  Creek, 
KY  40027 
Circle  Reader  Service  Number  231. 


Pascal  Tutorial  For  Apple 

Wiley  Software's  new  Visible  Pascal 
uses  graphics,  word  processing,  and 
music  to  teach  the  Pascal  programming 
language  on  Apple  II  computers.  Pro- 
grams are  displayed  while  they're  being 
created,  at  a  speed  controlled  by  the 
programmer.  The  system  has  more 
than  80  error  messages  for  pointing  out 
mistakes.  Users  can  create  "produc- 
tions," with  animated  characters  and  a 
soundtrack.  The  package  also  includes 
56  sample  programs  that  are  ready  to 
run. 

No  prior  computing  knowledge  is 
needed.  Visible  Pascal  runs  on  Apple  II- 
series  computers  with  at  least  64K 
RAM,  A  joystick  is  recommended. 

Wiley  Professional  Software,   605 
Third  Ave.,  New  York,  NY  10158. 
Circle  Reader  Service  Number  232. 


Boolean  Games 

Sunburst  has  introduced  High  Wire  Logic, 
a  game  for  teaching  Boolean  logic  to 
youngsters  in  grades  5  through  12.  Two 
sets  of  colored  shapes  appear  on  the 
screen:  one  on  a  high  wire  and  another 
set  that  falls  to  the  net  below.  Using  the 
logical  functions  AND,  OR,  AND- AND, 
OR-OR,  and  EXCLUSIVE  OR,  students 
earn  points  by  writing  rules  to  fit  the 
shapes  on  the  high  wire  but  not  the 
shapes  in  the  net. 

High  Wire  Logic  is  available  for 
Apple  II  computers  with  at  least  48K 
RAM;  retail  price  is  $59. 

Sunburst  Communications,  Inc.,  39 
Washington  Ave.,  Pleasantville,   NY 
10570. 
Circle  Reader  Service  Number  233. 


Life/Time  Manager 

A  new   program  from   Psychometric 
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Software  provides  assistance  in  identi- 
fying goals  and  organizing  time.  Devel- 
oped by  a  psychiatrist,  Life/Time 
Manager  is  based  on  psychological  and 
time  management  principles.  It  consists 
of  three  sections:  Goals,  Activities,  and 
Schedules.  Included  are  a  prioritized 
daily  To  Do  List  and  a  weekly  schedule 
analysis. 

The  program  runs  on  the  IBM  PC, 
PCjr,  or  AT,  with  at  least  128K  RAM;  or 
on  the  Apple  IH-,  lie,  or  He.  Suggested 
price  is  $49.95, 

Psychometric  Software,  Inc.,  2050  S. 
Patrick  Dr.,  Indian  Harbour  Beach,  FL 
329i7. 
Circle  Reader  Service  Number  234. 


Nutrition  And  The  Apple 

The  Center  for  Science  in  the  Public 
Interest,  a  nonprofit  consumer  group, 
has  developed  Nutrition  Express.  This 
game  teaches  the  basic  concepts  of  nu- 
trition and  diet  through  a  series  of  ques- 
tions and  clues.  Action  takes  place  in 
the  land  of  FodaFoda,  where  the  stu- 
dent answers  questions  correctly  in  or- 
der to  earn  currency  for  the  grocery 
store  and  to  invite  friends  from  Foda- 
Foda back  home.  The  game  is  geared 
toward  youngsters  aged  nine  and  up. 

Nutrition  Express  comes  with  a 
user's  guide,  teaching  suggestions,  and 
a  "Nutrition  Scoreboard"  wall  chart. 
For  the  Apple  11  series;  price  is  $39.95. 

Center  for  Science   in   the   Public 
Interest,  1501  Sixteenth  St.,  NW,  Wash- 
ington, DC  20036. 
Circle  Reader  Service  Number  235. 


Titling  Videos 

A  new  program  from  Video  ware  can 
put  titles,  custom  messages,  colored 
screens,  and  leaders  onto  videotapes. 
Video  Title  Editor  offers  a  menu  of  more 
than  20  different  displays,  including 
some  for  weddings,  birthdays,  and  vid- 
eo mail.  Also  included  are  displays  for 
Presented  By,  Starring,  and  Credits. 

The  program  requires  a  videocas- 
sette  recorder  and  either  an  Apple  II, 
Atari,  Commodore  64,  VlC-20,  or  IBM 
PC/PCjr.  Price  is  $29.95. 

Videoware,  19777  W.  12  Mile  Rd., 
Suite  180,  Southfield,  Ml  48076. 
Circle  Reader  Service  Number  236. 


New  IBM  Telecommunications 

Utility 

Mastercotn,  a  new  release  from  The 
Software  Store,  is  a  full-featured  smart 
terminal  and  file  transfer  utility  for  the 
IBM  PC  and  PCjr.  It  turns  the  computer 
into  a  terminal  on  a  time-sharing  sys- 
tem, captures  data  onto  a  disk  and/or 
printer  from  almost  any  computer,  and 
can  send  files  to  almost  any  type  of 


computer.  Mastercom  supports  most 
communication  protocols  including 
Christensen  XMODEM,  xon/xoff,  line 
at  a  time,  and  no  protocol.  Other  fea- 
tures of  Mastercom  include  auto  dial, 
auto  answer,  batch  file  transfer,  and 
host  mode  unattended  operation. 

For  the  IBM  PC,  PCjr,  and  most 
compatibles.  Suggested  retail  price  is 
$49. 

The  Software  Store,  706  Chippeiva 
Square,  Marquette,  MI  49855. 
Circle  Reader  Service  Number  237. 


Multi-Color  Printing  Package 

A  black-and-white  printer  can  now 
make  up  to  80  full-color  prints  using  an 
Apple  computer  and  Prince,  a  new  pro- 
gram from  Baudville.  The  program's 
library  of  fonts  can  be  used  to  make 
color  T-shirt  transfers,  banners,  letter- 
heads, and  labels.  Prince  can  also  cap- 
ture any  standard  or  double  hi-res 
picture  for  editing  and  printing. 

Four  color  ribbons  are  included  for 
the  following  printers:  Imagewriter, 
DMP,  C.  Itoh  8510/Prowriter,  8510  SC, 
NEC  8023,  and  Epson  MX-80,  RX-80, 
and  FX-80.  Prince  sells  for  $69.95. 

Baudville,  1001  Medical  Park  Dr.  SE, 
Grand  Rapids,  Ml  49506. 
Circle  Reader  Service  Number  238. 


Electronic  Trivia 

Mentor  Learning  Systems  has  intro- 
duced Ultimate  Trivia,  a  game  featuring 
4,000  facts  and  200  color  graphics.  The 
facts  are  divided  into  nine  categories: 
Music,  Cinema,  Geography,  Sports, 
General  Information,  People,  Art,  His- 
tory, and  Television.  The  graphics  are 
revealed  piece  by  piece  as  each  category 
is  answered  correctly.  Ultimate  Trivia 
can  be  played  individually  or  in  teams. 

The  program  sells  for  $49.95  and 
runs  on  all  Apple  computers  (with  at 
least  64K  RAM)  and  the  IBM  PC/PCjr. 

Mentorif   Learning  Systems,   Inc., 
1825  De  la  Cruz  Blvd.,  Santa  Clara,  CA 
95050. 
Circle  Reader  Service  Number  239. 


New  Infocom  Adventures 

Infocom  has  added  two  new  products 
to  its  interactive  fiction  line,  in  A  Mind 
Forever  Voyaging,  you  play  the  role  of  a 
computer  that  has  been  raised  as  a  hu- 
man being  up  to  the  age  of  20.  You 
must  enter  a  simulation  of  the  future  to 
see  whether  a  plan  proposed  by  current 
government  and  industry  leaders  will 
be  beneficial  for  the  country.  Due  to 
Infocom's  new  development  system 
and  an  expanded  1,700-word  vocabu- 
lary, the  emphasis  in  this  game  is  less 
on  solving  puzzles  and  more  on  reveal- 
ing the  story's  details.  (Requires  at  least 


128K  RAM;  Apple  II  series,  IBM  PC/ 
PCjr/XT/ AT,  Atari  ST,  Amiga,  and 
Macintosh;  $44.95.) 

Spellbreaker  completes  infocom's 
Enchanter  trilogy  of  adventures.  When 
a  world  based  on  sorcery  finds  its  magic 
failing,  you,  as  the  leader  of  the  Circle 
of  Enchanters,  must  find  and  destroy 
the  cause  of  this  failure.  (Apple  II  series, 
Amiga,  IBM  PC/PCjr/XT/ AT,  Macin- 
tosh, and  MS-DOS  compatibles,  $49.95; 
Atari  400/800,  XL/XE,  ST,  Commo- 
dore 64/128,  $44.95.) 

Infocom,  Inc.,  125  Cambridge  Park 
Drive,  Cambridge,  MA  02140. 
Circle  Reader  Service  Number  240. 


Parallel  Printer  Converters 

Two  new  serial-to-parallel  printer  con- 
verters have  been  released  by  Practical 
Peripherals.  The  Sivitchport  Ik  was  de- 
signed especially  for  the  Apple  lie  and 
allows  the  computer  to  be  interfaced 
with  a  parallel  printer.  The  Switchport 
232  transforms  serial  data  into  parallel, 
allowing  any  R5-232  computer  to  be 
interfaced  with  a  Centronics  parallel 
printer. 

Both  units  come  with  a  five-year 
limited  warranty  and  retail  for  $109. 

Practical  Peripherals,  31245  LaBaya 
Drive,  Westlake  Village,  CA  91362. 
Circle  Reader  Service  Number  241. 


Productivity,  Education, 
Entertainment  Software 

Broderbund  Software  has  introduced  a 
hardware/software  combination  that 
turns  your  home  computer  into  a  sci- 
ence lab.  The  Science  Toolkit  Master 
Module  includes  a  temperature-sensing 
probe,  a  light-sensing  probe,  and  a  spe- 
cial interface  that  connects  them  to  an 
Apple  11  via  the  joystick  port.  Using  the 
software's  thermometer,  light  meter, 
timer,  and  strip  chart,  you  can  perform 
a  wide  variety  of  scientific  experiments. 
(At  least  64K  RAM  required;  Apple 
lle/Ilc,  11+  with  joystick  port  adapter; 
$59.95.) 

Two  new  packages  have  been 
added  to  the  Bank  Street  series  of  pro- 
ductivity software.  Bank  Street  Mailer  is 
a  combination  letter-writing/mailing 
list  program.  Bank  Street  Filer  is  a  data- 
base manager/report-generating  pro- 
gram. There  are  two  versions  of  each 
program:  a  64K  version  for  the  Apple 
II -f-  and  He  offers  a  40-column  screen 
display,  and  a  128K  version  for  the 
Apple  Ik  and  128K  He  offers  a  40-  or 
80-column  display  and  includes  an  on- 
screen calculator.  They  are  compatible 
with  the  Bank  Street  Writer  word  proces- 
sor. All  retail  for  $69.95  each. 

Captain  Goodnight  and  the  Islands 
of  Fear  is  an  arcade  game  that  plays  like 
an  adventure  movie.  In  your  role  as 
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Captain  Goodnight,  you  must  pilot  heli- 
copters, airplanes,  tanks,  trucks,  and  a 
submarine  in  your  attempt  to  save  the 
world  from  destruction.  (Apple  II  series 
with  at  least  48K  RAM;  $34.95.) 

Brederbund  Softzvarc,  17  Paul  Drive, 
San  Rafael,  CA  94903. 


A  strip  chart  from  Brederbund's  Science 

Toolkit. 

Circle  Reader  Service  Number  242. 


Computerized  Diet  Plan  From 
Bantam 

The  Complete  Scarsdale  Medical  Diet, 
based  on  the  bestselling  book  by  the 
same  name,  is  now  available  in  a  soft- 
ware package  from  Bantam  Electronic 
Publishing.  Based  on  sound  nutritional 
principles,  the  program  offers  healthy, 
controlled  weight  loss.  Diet  features  a 
meal-planning  calendar,  shopping  list, 
expandable  food  directory,  meal  planner 
and  analysis,  and  comparison  charts. 

Available  for  the  Apple  II  series 
and  IBM  PC/PCjr,  the  program  retails 
for  $39.95. 

Bantam  Eleclronic  Publishing,  666- 
5th  Ave.,  Neii>  York,  NY  10103. 
Circle  Reader  Service  Number  243. 


KoaIapad+  For  Apple  II 

Koala  Technologies  has  announced  an 
enhanced  version  of  the  Koalapad, 
called  Koalapad-r,  for  the  Apple  lie  and 
lie.  The  new  version  offers  enhanced 
product  styling,  a  gridded  tablet  sur- 
face, and  additional  graphics  software. 
The  software,  Graphics  Exhibitor,  lets 
users  edit  images  they  have  created. 

Suggested  retail  price  for  the  Koala- 
pad+  is  $125. 

Koala  Technologies,  2065  Junction 
Ave.,  San  jose,  CA  95131. 
Circle  Reader  Service  Number  244. 


Productivity  Software  For 
Commodore  64 

Datamost  has  announced  the  KWIK  line 
of  home  productivity  software  for  the 
Commodore  64.  Each  package  includes 
KWIK-LOAD!  (a  Datamost  fast-loading 
program)  and  retails  for  $19.95. 

The  series  includes  KWIK-WRITE!, 


a  word  processor;  KWIK-SPELU,  a  spell- 
ing checker;  KWIK-FILE!,  a  database 
manager;  KWIK-CALQ,  a  spreadsheet 
program;  KWIK-PAINT!,  a  graphics  edi- 
tor; KWIK-CHECK!,  a  checkbook  bal- 
ancing and  maintenance  program; 
KW IK-PAD!,  a  desk  secretary  program; 
and  KWIK-PHONE,  a  communications 
program. 

Datamost,    19821    Nordhoff  Street, 
Northridge.  CA  91324. 
Circle  Reader  Service  Number  245. 


Foreign  Language  Vocabulary 
Programs 

Gessler  Educational  Software  has  pro- 
duced three  foreign  language  versions 
of  its  bestselling  vocabulary  program 
Word  Attack!.  Bataille  De  Mots  (French), 
Batalla  De  Palabras  (Spanish),  and 
Wortgefecht  (German)  are  available  for 
the  Apple  II  series,  IBM  PC/PCjr,  and 
Commodore  64  for  $49.95. 

Word  Attack!,  as  well  as  its  foreign 
language  versions,  teaches  vocabulary 
words  and  grammar  with  word  dis- 
plays, quizzes,  sentence  completion, 
and  an  arcade  game. 

Gessler  Educational  Software,   900 
Broadway,  New  York,  NY  10003. 
Circle  Reader  Service  Number  246. 


Inexpensive  Accounting  Software 

DAC-Easy  Accounting,  from  DAC  Soft- 
ware, is  a  seven-in-one  accounting 
package  offered  at  a  special  introduc- 
tory price  of  $49.95.  Its  seven  individ- 
ual modules — general  ledger,  accounts 
receivable,  accounts  payable,  billing, 
purchase  order,  inventory,  and  fore- 
casting— are  integrated,  allowing  auto- 
matic posting  between  modules. 

The  system  also  has  spreadsheet 
capability,  letting  the  user  experiment 
with  "what-if"  scenarios  without  enter- 
ing actual  data.  It  is  compatible  with  the 
IBM  PC  and  PCjr. 

DAC  Software,  Inc.,  5580  Peterson, 
Suite  130,  Dallas,  TX  75240. 
Circle  Reader  Service  Number  247. 

MIDI  Editor 

RolandCorp  has  released  MUSE  (MIDI 
Users  Sequencer/Editor)  for  the  Apple  II 
series  and  Commodore  64.  The  program 
features  eight  independent  tracks  for 
recording  and  overdubbing  sequences, 
track  merging  capability,  track  muting, 
looping  by  song  or  track  length,  and 
selectable  time  signatures.  The  editing 
functions  can  be  used  to  insert,  delete, 
move,  copy,  and  rearrange  measures  of 
any  track  so  that  a  composition  can  be 
changed  after  it  has  been  recorded. 

MUSE  is  compatible  with  any  MIDI 
instrument  and  can  be  synchronized 
with  drum  machines,  other  sequencers. 


and  multitrack  tape  decks.  An  interface 
is  required.  Suggested  retail  price  is 
$150  for  each  version. 

RotandCorp    US,    7200  Dominion 
Circle,  Los  Angeles,  CA  90040. 
Circle  Reader  Service  Number  248. 


New  PCjr  Drive 

A  second  disk  drive  can  now  be  added 
to  the  IBM  PCjr  without  adding  extra 
circuitry  or  another  power  supply.  The 
Junior  Drive  II  System,  from  PC  Enter- 
prises, includes  a  360K  double-sided 
double-density  5-1/4  inch  floppy  disk 
drive  with  power  supply,  an  adapter 
module,  a  software  patch,  a  two-drive 
signal  cable,  and  an  instruction  manual. 
The  system  is  compatible  with  existing 
external  modems,  parallel  printer  ports, 
and  memory  expansions. 

The  Junior  Drive  II  System  lists  for 
$395.  For  those  who  wish  to  connect 
their  own  IBM-compatible  drive,  the 
adapter  module  and  software  patch  are 
available  separately. 

PC  Enterprises," P.O.  Box  292,  Belmar, 
NJ  07719. 
Circle  Reader  Service  Number  249. 


The  Smoking  Decision 

A  new  program  from  Sunburst  was  cre- 
ated to  alert  students  to  the  dangers  of 
cigarette  smoking.  It  begins  by  present- 
ing facts  about  health  risks  related  to 
smoking,  and  then  explores  issues  such 
as  peer  pressure.  Throughout  the  pro- 
gram, students  are  confronted  with  a 
series  of  incremental  decisions,  leading 
to  a  final  decision  whether  to  smoke. 

The  Smoking  Decision  is  suitable  for 
youngsters  in  grades  6  through  12.  It 
runs  on  any  Apple  II  computer  with  at 
least  48K  memory.  The  $59  retail  price 
includes  a  backup  disk  and  teacher's 
guide. 

Sunburst  Communications,  Inc.  39 
Washington   Ave.,    Pleasantville,    NY 
10570. 
Circle  Reader  Service  Number  250. 


Arcade  And  Adventure  Games  For 
Commodore  64 

Artworx  has  released  two  new  games 
for  the  Commodore  64  and  128.  Falcon 
Patrol  II  puts  the  user  in  the  pilot's  seat 
of  a  Falcon  fighter,  fully  equipped  with 
air-to-ground  and  air-to-surface  mis- 
siles. The  object  of  the  game  is  to  ward 
off  the  enemy's  helicopter  attack  squad- 
rons. Its  16  levels  of  play  are  enhanced 
by  3-D  graphics  and  sound  effects. 

In  Sorcery,  you  are  the  last  of  the 
great  sorcerers,  given  new  strength  and 
powerful  spells.  You  must  use  them  to 
regain  your  conquered  homeland  and 
restore  its  previous  quality  of  life. 
Sorcery  resembles  an  arcade  game,  but 
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plays  much  like  an  adventure  game. 

Both  games  retail  for  $19.95. 
Artivorx  Software  Company,  Inc.,  150  N. 
Main  St.,  Fairport,  NY  14450. 
Circle  Reader  Service  Number  251. 


Educational  Software  For  The 
Classroom 

Focus  Media,  Inc.  publishes  an  exten- 
sive line  of  classroom  programs  for  a 
variety  of  computers.  In  Za-Zoom,  The 
Geography  Genie,  students  take  the  role 
of  explorer  as  they  try  to  determine 
where  they  are  by  examining  the  cul- 
ture around  them.  The  tufo  programs  in 
this  package.  Travels  with  Za-Zoom:  The 
World  and  Travels  with  Za-Zoom:  The 
U.S.  retail  for  $129;  either  program  can 
be  purchased  separately  for  $79.  (Apple 
II  series.  Commodore  64,  IBM 
PC/PCjr.) 


Students  team  about  iuch  concepts  as  lati- 
tude and  longitude  with  The  Language  of 
Maps. 

Students  can  go  back  in  time  with 
The  Time  Tunnel:  America  Series  Pack- 
age. During  each  journey,  students 
must  use  clues  to  gather  facts  and  guess 
the  identities  of  historical  figures.  The 
package  contains  six  programs:  Early 
America  (2),  A  Nation  Emerges  (2),  and 
The  Presidents  (2).  Suggested  retail  price 
for  the  complete  package  is  $179;  each 
series  can  be  purchased  individually  for 
$79.  (Apple  II  series.  Commodore  64, 
IBM  PC/PCjr.) 

The  Laiiguage  of  Maps  is  a  series  of 
six  programs  that  helps  students  learn 
about  maps  and  map  terminology.  Top- 
ics covered  include  oceans  and  conti- 
nents; land  areas  and  water  bodies; 
highlands  and  lowlands;  and  finding 
places  on  maps.  The  Instant  Computer- 
ized Glossary  explains  unfamiliar  terms. 
The  Surface  of  the  Earth  and  Location  and 
Distance  retail  as  a  package  for  $159; 
individually,  each  costs  $79.  (Apple  II 
series.) 

A  Teacher's  Lesson  Planner  and 
free  backup  disks  are  included  with  all 
packages. 

Focus   Media,    Inc.,    Si9   Stewart  Ave., 
Garden  City,  NY  11530. 
Circle  Reader  Service  Number  252. 
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COMMODORE  COMPATIBLE 
BELL  &  HOWELL  DOT  MATRIX 


AT  BELOW  DEALER  COST! 


PUBLIC  NOTICE 


Bell  &  Howell 
Model  P-100 
Made  in 
U.S.A. 


INTENSE  COMPETITION 

IN  THE  COMPUTER 

INDUSTRY  LEADS  TO 

UNPROFITABLE  LINE 

FOR  BELL  &  HOWELL 

C.O.M.B.    authorized   to 

liquidate  recent  model 

printers  at  BELOW  dealer 

cost! 


Sizs: 

1 6"  W  «  1 0'/j"  □  X  6"  H 

Weight:  1  5  lbs. 


•  Fast,  100 
characters 
per  second! 

(for  laster  model 
see  below. I 

•  Heavy-duty 
for  constant 
use  on  big 
jobs! 

Compatible 
with  Commo- 
dore 64  &  SX64! 


Save  hundreds  of  dollars  on  a  top  name  brand! 


Here's  a  sensational  value  on  a  fast-operating, 
excellent  quality,  heavy-duty  printer.  It  INCLUDES 
an  interface  for  hookup  to  your  CommoiiDre  64  or 
Commodare  SXG4. 

Compared  to  many  competitive  models,  THESE 
printers  are  FASTER!  Virtually  trouble-free.  Built  to 
fiandle  BIG  office  jobs.  The  P-fOO  has  a  memory 
wtiich  allows  data  storage  WHILE  the  printer  is 
running!  And  it  can  print  in  a  variety  of  type  styles, 
from  large  and  bold  to  small  and  ligtitl 

Other  special  features  include:  Easy  loading,  long- 
life  cartridge  ribbon.  Crisp  printing.  And,  with  your 
purchase,  you  get  a  TOLL-FREE  phone  number  to 
call  for  useful  tips  or  questions  you  might  have. 

CHARACTER  SET;  Full  upper  and  lower  case  96 
character  ASCII  set  with  descenders  and  under- 
lining. Software  selectable  single  or  double  wide 
character  fonts.  GRAPHICS:  High  resolution  dot 
addressable  graphics. 

PRINT  F0RiyiATr8"  line  length;  80  characters  per  line 
at  fO  CPI:  f36  ctiaracters  per  line  at  17  CPl. 
PAPER  SLEW  (ADVANCE):  lOlines  per  second,  stepper 
motor  controlled.  User  selectable  pressure  roller 
or  tractor  feed. 

DATA  INPUT:  Parallel.  Centronics  type  7-bit  ASCII. 
TTL  level  with  STROBE.  ACKNOVI/LEDGE  returned 
to  indicate  data  was  received.  SERIAL:  RS232C. 
With  BUSY  handshake.  10  or  11  bits:  110, 150, 300, 
1200  Baud.  INPUT  PDWEH:  115  volts. 

PRINT  RATE;  100  characters/second.  Data  Suffer; 
1K  (Optional  expandable  to  2K). 
OPERATIONAL  CONTROLS;  Power  on/oft,  set  top  of 
form,  select/deselect,  line/lorms,  feed.  | 

MEDIA:  Roll  paper:  BWW  x  5"  dia.  single  ply  or 
pressure  sensitive  multiple  copy  paper.  ,012" 
max.  thickness.  Fan  fold  paper:  1"  to  O'/j" 


sprocket  (including  sprocket  margins).  ,012"  max. 
thickness. 

CUT  SHEET  PAPER:  max,  wid<h.  SW. 

TYPE  OF  PRINTING:  Impact  bidirectional,  7x9  dot 
matrix  for  data  printing,  11x9  matrix  for  corre- 
spondence printing. 

RIBBON:  Continuous  loop  cartridge,  20yards  by  1  /2" 
ribbon.  5  million  character  life. 

90  Day  Limited  Factory  Warranty 

on  Printer  Parts  and  Labor! 

Mfr.  List  Price  SCAA   OC 

(with  interface) ^044b99 

Includes 
Commodore 
Interface! 
Price  Now  Only; 

Hem  H-726-63327-10  Ship,  hnndling:  $10 


$238 


HI-SPEED  IVIODEL  P-150 
150  characters  per  second! 

Same  spBcificalions  as  P-100  abovg,  but  with 
following  special  features:  Tractor  feed.  2K  data 
buffer  (optional:  expandoble  to  4K  and/or  68K). 
Paper  edvancB  of  20  Ips,  I^Va"  maxirnuni  paper 
width.  Impact  logic  seeking  printing.  60  v^-  loop 
cartridge  ribbon:  10  mitlJon 
characters.   Size:   23"  W   x  ^, 

15'/2"  D  X  7'^"  H.  Weight:  25         ^ 
lbs.  Interface  included. 

Item  H-72S-63327-t1  Ship,  handJiftfl:  S14 


'288 


Pj-jcc  subjecl  to  change  ader  60  days 

Sates  outside  continental  U-S  are  subject  to 

special  conditions.  Please  calll  or  write  io  inquire 


Credit  card  members 
can  order  by  phone, 

24  hours  a  dav. 

7  davs  a  week! 


Toil-Free:  1-800-328-0609 


Your  check  is  welcome) 

No  delays  when  yau  pay  by  checkl 


C.O.M.B.  CO. 

Authorized  Liquidator 

14605  Z8TH  AVENUE  PJORTH 
MINNEAPOLIS.  MINNESOTA  55141-3397 


C.O.M.B.  CO.®  Item  H^726 
14605  2Sth  Ave.  N. /Minneapolis,  MN  55441-3397 
Please  send  items  indicated  below.  (M  innesota  residents  add  6% 
sales  tax.  Atlow  3-4  weeks  tordeliwery.  Sorry,  no  CO. D.  orders.) 
P-100  Pnnter(s}  with  interface  at  S23B  each  ptus  S10  each 

for  ship,  handling:  Item  H-726  63327-10 
P-1S0  Prinlei(s)  with  interface  at  6288  each  plui  S14  each 

for  ship,  handling:  hem  H-726-E3327-1 1 

D  Mycheck  or  money  otdor  is  enclosed.  jNodelayain  procesmlng 
orders  paid  by  ch^ck,  ih^nks  to  TeleCheokJ 


Charge  my:  G  MasterCard'" 

ZVISA 

PLEASE  PRINT  CLEARLY 

nvi 

^ID 

Sign  here  J 

CAPTURE 


presenting  .  . . 

A  NEW  WAY  TO  UNLOCK  THE  POWER  OF  YOUR  064  OR  0128* 

•  CAPTURE  IS  A  CARTRIDGE  THAT  PLUGS  INTO  YOUR  COMPUTER'S  EXPANSION  PORT. 

•  CAPTURE  DOES  NOTHING —  UNTIL  YOU  PRESS  ITS  CAPTURE  BUTTON.  UNTIL  THEN,  A 

RUNNING  PROGRAM  CANNOT  DETECT   ITS  PRESENCE. 

•  CAPTURE  THEN  TAKES  CONTROL  —  NO  IPS,  ANDS  OR  BUTS  —  AND  PRESENTS  A  MENU. 

•  CAPTURE  WILL  NEATLY  SAVE  EVERYTHING  IN  YOUR  COMPUTER  TO  YOUR  1541  OR 

COMPATIBLE   DISK   DRIVE  —   ALL  64K  OF  RAM,  CPU,  VtC  AND  SID  CHIP 
REGISTERS  —  EVERYTHING.  IN  EASY  TO  VIEW  CHUNKS. 

•  CAPTURE  WILL,   IF  YOU  WANT,  PRE-CONFIGURE  YOUR  COMPUTER'S  RAM  SO  THAT 

ONLY  MEMORY  ALTERED  BY  YOUR  PROGRAM  NEED  BE  SAVED. 

•  CAPTURE  WILL  WRITE  A  BOOT  ON  YOUR   DISK  SO  YOU  CAN   RELOAD  AND  BEGIN 

EXECUTION  RIGHT  WHERE  YOU  LEFT  OFF. 


•  CAPTURE  DOES  ALL  THIS  AT  A  COST  OF  JUST 


$39.95 


BUT  HERE'S  THE  BEST  PART 


•  CAPTURE  WILL  MAKE  AN  AUTO-START  CARTRIDGE  OF  YOUR  PROGRAM.  IT'S  EASYI 

JUST  FOLLOW  THE  DIRECTIONS  ON  THE  SCREEN,  NOW  PLUG  IN  YOUR 
CARTRIDGE  AND  TURN  ON  YOUR  COMPUTER.  IN  LESS  THAN  TWO  SECONDS 
YOUR  PROGRAM  BEGINS  AGAIN  AT  PRECISELY  THE  POINT  WHERE  YOU 
CAPTURE'D  IT.  MAGIC! 

BESIDES  CAPTURE,  YOU  NEED  A  promenade  CI  AND  A  SUPPLY  OF  CPR3 
CARTRIDGE  KITS. 

ORDERING  INFORMATION 

•  CAPTURE  CARTRIDGE  -  COMPLETE  WITH  INSTRUCTIONS $  39.95 

•  promenade  ci  —  eprom  programmer  with  disk  software 99.50 

•  CPR3  cartridge  KIT  —  PC  BOARD,  CASE  AND  3  EPROMS 29.95 

•  DR— EPROM  ERASER.  TWO  AT  A  TIME,  3  TO  10  MINUTES 34.95 

•  STARTER  SET  — CAPTURE,  promenac/e  01  AND  1  CPR3.. 149.95 

•  DELUXE  SET  —  CAPTURE,  promenade  ci ,  dr  and  2  cpr's 1 99.95 

SHIPPING  AND  HANDLING  —  USA:  UPS  SURFACE  $3.00 

BLUE  LABEL  $5.00  NEXT  DAY  AIR  $13.00 

CANADA:  AIR  MAIL  $7.00  OTHER  FOREIGN  AIR  $12.00 

CALIFORNIA  RESIDENTS  ADD  APPLICABLE  SALES  TAX 
COD  ORDERS,  USA  ONLY,  ADD  $3.00 

C64  AND  0128  TM  COMMODORE  ELECTRONICS,  LTD.        'WHEN  OPERATING  IN  64  MODE 

TO  ORDER:  TOLL  FREE    800-421-7731  TECHNICAL  SUPPORT  AND    408-287-0259 

FROM  CALIFORNIA  800-421-7748  FROM  OUTSIDE  THE  US:     408-287-0264 
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JASON-RANHEIM 

580  PARROT  STREET 
SAN  JOSE.  GA  USA  95112 
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DISK  WORLD!  is  proud  to  introduce 
the  lowest-priced,  LIFETIME-WARRANTY 


diskGttGS  0VGf  ■ 
And  they're  BRAND  NAME  PRODUCT  to  boot! 


5.25''SSDD-^.69 ea.  5.25" DSDD-^.79 ea. 

5.25"  DSDD-HD-^52.25  ea. 

3.50" SSDD-^52.09 ea.  3.50" DSDD-f^2.55 ea, 


Based  on  multiples  of  100  each. 

Boxed  in  10's  with  heavy-duty  cardboard  sleeves,  user  [D  labels, 

reinforced  hubs  (where  appropriate]  and  write-protact  tabs. 


Introducing  Wabash  Pinnacle  Series  Diskettes. 

Two  years  ago,  il  you'd  told  me  I'd  be  writing  this  ab.  I  would 
have  laughed. 

At  that  time,  Wabastt  diskettes  were  synonymous  with 
"s-l" 

Just  saying  (hat  quality  c;ontrol  was  poor  would  be 
charitable. 

So  much  was  wrong  that  DISK  WORLD  wouldn't  sell  them. 

That  was  yesterday. 

KearnBy-Nalional  Inc.  a  $202-million  division  of  a  much 
larger  company,  came  into  Wabash. 

Out  went  trie  old  management,  the  old  methods,  the  old 
production  techniques  .and  in  went  a  lot  ol  new  people,  ideas, 
production  lines  and  some  really  imaginative  thinking. 
The  end  result. 

Today,  i'm  proud  to  olfer  ycu  ttie  Wabasli  Pinnacle  Series  ot 
diskettes  at  the  prices  shown. 

This  isn't  evolution  in  diskette  manufacturing:  it's  revolution. 

Here's  what  you  get. 

Wabash  Pinnacle  diskettes  are 
...certified  100%  Error  Free 
...are  coverd  by  a  LIFETIME  WARRANTY 
-..meet  or  exceed  all  industry  specilications  (by  quite 
some  distance) 

...and  are  simply  the  best  value  in  diskettes  available 
today. 

The  torture  test. 
Considering  Wabash's  earlier  dubious  reputation.  I  wash  I 
enactly  atrue  believer  when  their  Director  ol  Marketing  came 
into  my  office  With  samples. 

So  I  took  a  box  at  random,  selected  a  disk,  bent  trie  thing 
every  which  way  and  slipped  it  Into  my  IBl/l-PC. 
It  formatted.  It  booted.  II  stored  and  retrieved  data. 

That  (wasn't  enotigh. 

f  gave  samples  ot  the  diskettes  to  Curt  Rostenbach  and,  in 
turn,  to  Tom  Streit,  both  hackers  of  long  experience  and  mem- 
bers ot  the  Waukegan  [Illinois}  Apple  Users  Group, 
Tom  really  went  at  it, 

hie  look  a  quartz-halogen  lamp,  aimed  it  at  the  diskette  until 
it  started  to  smoke  (and  melt). ..and  then  formatted,  hooted 
the  diskette  and  stored  and  retrieved  data! 

The  same  terribly  (and  intentionally)  mutilated  diskette  ran 
on  an  ITT.  Corona  and  IBIvt. 
Curt  was  nicer- 
He  simply  bent  the  diskette  every  which  way  .and  il  still 
formatted,  booted  and  ran  on  his  Apple. 

The  best  buy  I've  ever  seen. 

DISK  WORLD!,  Inc,  sells  more  flexible  magnetic  media  by 
mail-order  than  anyone  else  m  the  world 

I.  as  President  ol  the  corporation,  wpn  t  tolerate  a  product 
with  a  failure  rate  ol  more  ttian  1 /1000th  ol  1  percent. 

I  also  don't  like  companies  who  try  to  milk  a  "quality"  or 
"premium"  imape  for  a  higher  price  like  Dysan  and  Verbatim 
did,,. until  they  failed. 

As  President  of  DISK  WORLD!.  Inc..  my  motio  is  simple:  "the 
best  diskette  for  the  !east  amount  of  money' 

Wabash  is  it. 

Right  now,  there  is  no  betlervalue  than  the  Wabash  Pinnacle 
Series  of  diskettes. 

Granted,  you  have  to  buy  a  hundred  at  a  time,  but  so  what? 
Split  the  order  with  friends,  felatives,  co-workers  or  even  your 
worst  enemies. 

The  key  thing  is  to  gel  the  most  diskette  lor  the  money. 

And  this  IS  il. 

(Incidentally,  as  a  corporation,  we  put  our  money  where  our 


mouth  is.  Our  first  order  for  Wabash  Pinnacle  Diskettes  was 
t,5-milllon  units.) 

That's  an  awful  lot  of  faith  and  contidence. 

But.  then  again.  I  have  the  diskette  that  Tom  Streit  literally 
melted,  .and  kept  on  running. 

The  truth  about  S1.00  or  less  diskettes. 

More  and  more  ads  are  popping  up  offering  diskettes  for 
$1,00  or  less. 

By  the  saine  token,  more  and  more  people  who  were  selling 
used  cars  a  lew  months  ago  are  now  selling  diskettes  by  mail. 
We  did  a  little  survey  of  current  ads  for  diskettes  advertised 
for  a  dollar  or  less  and  did  some  analysis  of  the  market  and 
here's  what  we  found  as  it  applies  to  5.25'  DSDD  diskettes 
"supposedly"  selling  lor  a  dollar  or  less 

ACTUAL 

ADVERTISED     PRICE        ACTUAL 

VENDOR:  LOWPRICE:    PER  IOC:       IVIFGR.: 

Unitech  .89  ea,  ,92  ea.  Unspecified 

Datatech  .99  ea.  ,99  ea.  Unspecified. 

Computer  Club  .95  ea.  .98  ea.  Unspecified. 

.99  ea.         1.02  ea   Unspecilied. 


Communications 
&  Electronics 
Precision  Data 
Diskette  Connec. 
CompSoflServ. 


.49  ea.  80  ea  Unspecilied. 

.89  ea,         .93  ea  Unspecilied. 
.93  ea,  -93  ea  Unspecified. 

.7rea,  -77  ea  Unspecilied- 

*  shpg 

Computer/ Computer      .99  ea,  .99  ea.  Unspecified. 

DISK  WORLD  .89  ea-  .92  ea.  Wabash 

Datatech 
The  real  truth  about  $1.00  or  less  diskettes. 
It  costs  all  diskette  manufacturers  about  the  same  to  pro- 
duce a  diskette.  Some  may  charge  more  because  they  want  lo 
project  a  "premium  quality"  image,  ala  the  late,  lamented 
Dysan  who  bought  their  basic  media  from  3fi1, 

Some  charge  less  because  they  sell  a  sub-standard  prod- 
uct...and  we're  not  foolish  enough  to  name  names  here. 
But  here's  the  truth  about  the  SI  00  or  less  diskette  market, 
it  falls  mtp  (our  categories: 

1.  The  DISK  WORLD'S  of  the  universe  who  simply  are  so  big 
thattheycanbuyfirslqualityproductinmassivequantitiesand 
choose  to  pass  on  the  savings  to  you,  (Precision  Data  and 
Diskette  Connection  on  flflAND  NAME  products  also  fall  into 
tills  category ) 


2.  The  people  who  buy  "cosmos'... stuH  from  maiormanu- 
lacturers  that  usually  hits  quality  control  standards,  but  is 
cosmetically  blemished  and  thus  can'l  be  packaged  and  sold 
under  the  manufacturer's  own  name. 

3.  "Duplicator  Duality"  Uncertified  media,  usually  below 
manutacturer's  own  standards  and  frequently  below  ANSI  and 
IBI^  standards.  Sold  on  an  "as-is"  basis  with  the  understand- 
ing that  the  manufacturer's  name  will  never  be  divulged.  Usual- 
ly about  a  20%  reject  rate. ..as  compared  to  DISK  WORLD'S 
standard  ot  less  than  I  /lOQOth  of  1  %  reject/return  rate.  Next  to 
garbage,  this  is  the  source  of  most  diskettes  advertised  at  a 
dollar  or  (ess. 

They  may  work,  .and  then  again  they  may  not.  (Frankly  the 
cdiJs  at  the  Blackiack  table  in  Las  Vegas  are  more  in  your  favor.) 

4.  Garbage.  Stuff  that  shouldn't  be  sold  at  all.  flul  some 
manufacturers  are  hurting  for  cash,  so  they  sell  it  anyway 
(Alter  all,  they  want  to  meet  their  payroll.  Look  what  hajipens 
when  you  don't:  you  become  a  (Dysan  or  Verbatim,  Lots  ol 
history,  but  no  money.)  More  and  more  garbage  is  being 
dumped  into  the  market  as  manufacturers  become  pressed  tor 
cash  and  are  motivated  Into  selling  anything  and  everything 
they  can  manufacture,  (Read  the  article  in  FORBES  about 
Verbatim  and  its  "Bonus"  brand.) 

Finally,  the  Taiwanese  counterfeiters  are  moving  into  the  act. 
Perfect  duplicates  of  the  packaging  of  major  manufacturers 
with  one  exception:  the  quality  isn't  Ihere. 

The  Critical  Factor. 

Only  DISK  WORLD!.  Inc.  Offers  fully  brand-identified. 
LIFETIME-WARRANTY  product  for  less  than  a  dollat 

Every  one  else  offering  5  25'  product  tor  less  than  a  buck 
doesn't  tell  you  who  makes  it. 

We  do. 

And  that  ought  to  tell  you  a  lot  right  there 


Ordering  &  Shipping 
lnstructi<Mi$ 


SHIPPINIS:  Wabash  Pinnacle  Diskettes  are  sold  in  mul- 
tiples ol  100  only.  Shipping  charges  are  S3  00  per  100, 
regardless  of  type  or  size. 

PAYMENT:  VISA  MASTERCARD  and  PREPAID  orders 
accepted-  Corporations  rated  3A2  or  better  and  govern- 
ment and  quasi-government  open  accounts  are  accepted 
on  a  NET  15  basis. 

COD,  orders  are  subject  to  a  55.00  special  handling 
charge  (Sorry  for  the  increase,  but  too  many  people  have 
been  refusing  C,0,D,  orders  or  using  bati  cfiecks  It's  a 
classic  example  ol  a  lew  "bad  eggs"  making  life  more 
expensive  for  everyone  else) 

APO.  FPD,  AK.  HI  S  PR  ORDERS:  Include  shipping  as 
shown  and  an  additional  5%  of  the  total  amount  of  the 
order  to  cover  PAL  and  insurance. 
No  other  non-continental  U.S  orders  are  accepted. 
TAXES:  Illinois  residents  only,  add  7%. 
MINWUfd  ORDER:  535,00 
All  orders  subject  to  acceptance. 
Not  responsible  for  typographical  errors. 
ORDERS  ONLY: 
1-800-621-6827 
(In  Illinois:  1-312-256-7140) 
INQUIRIES  &  INFORIVlATION 
1-312-256-7140 
FOR  FASTEST  SERVICE.  USE  MCI  MAIL: 

Just  address  "DISKORDER" 

(24-hour  shipping  on  any  item  in  stock 

v,^  if  you  order  viafvlClfvlAIL.}  y 


DISK  WORLD!,  Inc. 


629  Green  Bay  Road 
Wilmette,  Illinois  60091 


^^^^  Professional  ^^y. 
35a  handicapping  systems  ^^ 


•  PRESENTED  BY  PROFESSOR  JONES 


MARKET  YOUR  SOFTWARE 
INEXPENSIVELY 

Professor  Jones  will  be  reviewing  3rd 
party  software  for  our  newest  catalogue 

If  you  currently  market  or  plan  to  market  PROFES- 
SIONAL software  dedicated  to  handicapping,  stock 
market  analysis,  sports,  accounting,  or  business 
application,  Prof.  Jones  is  now  reviewing  software 
for  the  Spring  '86  catalogue.  ALL  software  will  be 
reviewed  and  developers  will  either  receive  a  let- 
ter of  review  and/or  a  multilevel  contract  proposal. 

(Sorry,  we  will  review  software  but  it  cannot  be  returned) 
Call  (208)  342-6939  or  Mai!  to: 

Professor  Jones 

1 940  West  State  Street 

Boise,  Idaho  83702 


•  Switch  selectable  Commodore  graphics 
mode  for  Epson.  StarMioronics,  C.  Itoh, 
Prowriter.  Okidata.  Selkosha,  Banana, 
BMC,  Panasonic.  Mannesman  Talley 
&  others 

Universal  Input/ Output 
Board  for  C-64  &  C-128 

•  16  Channel  8-bit  A/D  converter  with  100 
microsecond  sampling  time. 

•  1  0/A  output 

•  16  high  voltage/high  current 
discrete  output 

•  1  EPSOM  socket 

»  Use  multiple  boards  for  additional 
channels  up  to  6  boards 
CBM-64usedMW-611    S225.00 


$50  for  your  old 
NEW!  interface 

Universal  Parallel 
Graphics  Interface 

•  Built-in  self-test  with  status  report 

•  Optional  RAM  printer  butter 

•  Provides  virtually  total  emulation  of 
Commodore  printers  for  compatability 
with  papular  software 

•  ASCII  conversion,  total  test.  Emulate  & 
tranparent  mode 

•  Fully  intelligent  mterlace  that  plugs  into 
standard  Commodore  printer  socket 

•  Exclusive  graphic  key-match  function 

Mlcrogratlx  MW.3S0  SI29 

, S79.00     with  any  trade  In 


Dealer  Inquiries  invited 
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Micro  World  Computers,  Inc. 

3333  W.  Wadsworth  Blvd.  «C105 
Lakewood.  CO  80227 


(303)  987-9531 


COMPUTEI 
Subscriber  Services 

Please  help  us  serve  you  better.  If  you 
need  to  contact  us  for  any  of  the 
reasons  listed  below,  write  to  us  at: 

COMPUTEI  Magazine 

P.O.  Box  10955 

Des  Moines,  lA  50950 

or  call  the  Toll  Free  number  listed  below. 

Change  Ol  Address.  Please  allow  us 
6-6  weeks  to  effect  the  change:  send 
your  current  mailing  label  along  with 
your  new  address. 

Renewal.  Should  you  wish  to  renew  your 
COMPUTEI  subscription  before  we 
remind  you  to,  send  your  current  moiling 
label  with  payment  or  charge  number 
or  coll  the  Toll  Free  number  listed  below. 

New  Subscriptlon.A  one  year(12  month) 
US  subscription  to  COMPUTEI  is  $24.00  (2 
years,  $45.00:  3  years,  $65.00,  For  sub- 
scription rates  outside  the  US,  see  staff 
page).  Send  us  your  name  and  address 
or  coll  the  Toll  Free  number  listed  below, 

Delivery  Problems.  If  you  receive  dupli- 
cate issues  of  COMPUTEI,  if  you  experi- 
ence iate  delivery  or  if  you  have  prob- 
lems with  your  subscription,  please  coll 
the  Toll  Free  number  listed  below, 

COMPUTEI 
800-334-0868 

In  NC  919-275-9809 


What  the  world  really  needs 

is  a  69  cent 

Double  Sided,  Double  Density  Dislcette 

with  a  LIFETIME  WARRANTY! 

And  DISK  WORLD!  has  it. 


Introducing  Super  Star  Diskettes: 

the  high  quality  diskette  with 

the  lowest  price 

and  the  best  LIFETIME  WARRANTY! 


In  the  course  ol  selling  mere  than  a  million  diskettes 
every  montti,  we've  learned  sometliing:  liigher  prices  don't 
necessarily  mean  higher  quality. 

n  fact,  we  ve  lound  that  a  good  diskette  marutaclurer 
simply  manulaclures  a  good  diskette,  no  matter  what 
they  charge  lor  it.  (By  way  of  example,  consider  that  none 
ol  the  brands  that  we  carry  has  a  return  rate  ol  greater  than 
1 '1.000th  of  1  percent!) 

In  other  words,  when  people  buy  a  more  expensive 
diskette,  they  aren't  necessarily  buying  higher  quality. 

The  extra  money  might  be  going  toward  flashier  adver- 
tising, snazzier  packaging  or  simply  higher  profits 

But  the  extra  money  in  a  higher  price  isn't  buying  better 
quality. 

All  of  the  good  manufacturers  put  out  a  good  diskette 

Period, 

How  to  cut  diskette  prices 
...without  cutting  quality. 

Now  this  discovery  posed  a  dilemma:  how  to  cut  the 
price  of  diskettes  without  lowering  the  quality. 

There  are  about  85  companies  claiming  to  be  "diskette" 
manufacturers. 

Trouble  is.  most  of  them  aren't  manulacturers. 

Rather  they  are  labricalors  or  marketers,  taking  other 
company's  components,  possibly  doing  cne  or  more  steps 
of  the  processing  themselves  and  pasting  their  labels  on 
the  finished  product 

The  new  Eastman  Kodak  diskettes,  for  example,  are  one 
of  these.  So  are  IBM  5"<'  diskettes.  Same  lor  DYSAN. 
Polaroid  and  many,  many  other  familiar  diskette  brand 
names.  Each  of  these  diskettes  is  manufactured  in  whole 
or  in  part  by  another  company! 

So,  we  decided  to  act  |ust  like  the  big  guys.  That's  how 
we  would  cut  diskette  prices,,, without  lowering  the 
quality. 

We  would  go  out  and  find  smaller  companies  to  manu- 
facture a  diskette  to  our  specifications... specifications 
which  are  higher  than  most,., and  simply  create  our  own 
"name  brand "  diskette. 

Name  brand  diskettes  that  offered  high  quality  at  low 
prices. 
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CASES 


DISK  CADDIES 

The  original  llip-up  holder  for 
10  5'iV'  tJiskettes.  Beige  or  Grey 
only. 

S1.65  ea.  +  .20  Shpng. 

DISKETTE  70  STORAGE 

Dust-tree  storage  for  70  5W' 
diskettes.  Six  dividers  included. 
An  excellent  value 
S9.95ea.+S3.0D  Shpng. 


HOURS: 

Human:  SAfi(l-EPM  Central  Time.  Monday  through  Friday 

Answering  f!/lacbtne:  &Pr/l-BAIt(l.  All  Times 

IVICIMAIL:24  hours  a  day, 


SSDD 
.55  ea. 

Qty.50 


DSDD 

.69  ea. 

Qty.50 


Super  Star  diskettes  are  sold  in  mulliples  ol  50  only,  Distaltes  are 
sfiipped  Willi  *hite  Tyvec  sleeves,  reinforced  hubs,  user  ID  labels 
and  wrire-proleci  tabs 

Boy,  did  we  get  lucky.  Our  Super  Star 

Diskettes  are  the  same  ones  you've  been 

using  for  years. .  .without  knowing  it. 

In  our  search  lor  the  low  priced,  high  quality  diskette  of 
our  dreams,  we  found  something  even  more  interesting. 

t/Ve  found  that  there  are  several  manulaclurers  who 
don't  give  a  hoot  about  the  consumer  market  for  their 
diskettes.  They  don't  spend  millions  of  dollars  in  advertis- 
ing trying  to  get  you.  the  computer  user  to  use  iheir 
diskettes. 

Instead,  they  concentrate  their  efforts  on  turning  out  the 
highest  quality  diskettes  they  can,,, because  they  sell 
them  to  the  software  publishers,  computer  manufaciurers 
and  other  folks  who  (in  turn)  put  their  name  on  them. .  .and 
sell  them  lor  much  higher  prices  to  you! 

After  all.  when  a  software  publisher  or  computer  manu- 
facturer or  diskette  marketer  puts  their  name  an  a  diskette. 
Ihey  want  it  to  work  time  after  time,  everylime  (Especially 
software  publishers  who  have  the  nasty  habit  of  copy- 
protecting  their  origmalslj 


HOW  TO  ORDER: 


ORDERS  ONLY: 
1-800-621-6827 

(In  Illinois:  1-312-256-7140) 

INQUIRIES: 

1-312-256-7140 

FOR  FASTEST  SERVICE.  USE  NO-CQST  MCI  MAIL: 
Our  address  is  DISKORDER,  It's  a  FREE  MCI  MAIL 
letter.  No  charge  to  you,  (Situation  permitting,  we'll 
ship  these  orders  in  24  hours  or  less.) 

SHIPPING:  5'.  5  3V  DISKETTES-Aitil  S3  00  per  each 
100  or  'cwEF  diskelies  OTHEfl  ITEMS;  Add  shipping  chargES 
as  shown  m  addition  to  other  shipping  charges  PAYMENT: 
VISA.  MASTERCARD  and  Prepaid  orders  accepted  COD  Ofl- 
DERS:  Add  addilional  $5.00  special  handling  charge  APO, 
FPO.  AK.  HI  &  PR  ORDERS:  Include  shipomj  charges  as 
sliQwii  anil  addilional  b\  ol  total  order  amouni  lo  cover  PAL 
and  insurance  V/e  ship  only  totJnited  Stales  addresses,  enceps 
for  those  listed  above  TAXES:  Illinois  residents,  add  7% 
sales  tax. 

MINIMUM  ORDEH:  S35  00 


Super  Star  Diskettes,  You  already  know 

how  good  they  are.  Now  you  can  buy 

them. ..cheap. 

Well,  that's  the  story. 

Super  Star  diskettes  don't  roll  off  the  boat  from  Pago- 
Pago  or  emerge  from  a  basement  plant  lust  east  of 
Nowhere, 

Super  Star  diskettes  have  been  around  for  years,,, and 
you've  used  them  (or  years  as  copy- protected  softv^are 
originals,  unprotected  originals.  Sometimes,  depending 
on  which  computer  you  own,  the  system  master  may  have 
been  on  a  Super  Star  diskette.  And  maybe  more  than  once, 
you've  bought  a  box  or  two  or  more  of  Super  Star  diskettes 
without  knowing  it.  They  just  had  some  "big '  company's 
name  on  them 

Super  Slar  Diskettes  are  good.  So  good  that  a  lot  of 
maior  software  publishers,  computer  manufacturers  and 
other  diskette  marketers  buy  ttiem  in  the  tens  or  hundreds 
ol  thousands- 

We  buy  them  In  the  millions. 

And  than  we  sell  them  to  you, 

Cheap 

When  every  little  bit  counts, 
it's  Super  Star  Diskettes. 

You  ve  used  them  a  hundred  times, ..under  different 
names 

Now.  you  can  buy  the  real  McCoy,  the  same  diskette  that 
major  software  publishers,  computer  manufacturers  and 
diskette  marketers  buy,  .and  call  their  own 

We  simply  charge  less. 


Super  Special! 


Order  50  Super  Star  Diskettes 
and  we'll  be  happy  to  sell  you  an 
Amaray  Media-IVIate  50  for  only 
SB 75.  shipping  included.. .a  lot 
less  than  the  suggested  retail  price 
ofS!5,95 


f- 


DISK  WORLD!,  INC. 


Regular  DISK  WORLDI  price:  59.69  ea. 
'  S2.DD  Shpng. 


The  Super  Star 
LIFETIME  WARRANTY! 


Super  Star  Diskettes  are  unconditionally  warranted 
against  defects  in  original  material  and  workmanship 
so  long  as  owned  by  the  oriijinal  purchaser.  Returns 
are  simple:  |ust  send  the  defective  diskettes  with  prool 
of  purchase,  postage-paid  by  you  with  a  short  expla- 
nation of  the  problem,  and  we'll  send  you  the  repiace- 
menls.  (Incidentally,  coffee  stained  diskettes  and 
diskettes  with  staples  driven  through  ihem  don't 
qualify  as  "defective".) 


WE  WILL  MEET  OR  BEAT  ANY  NATIONALLY 

ADVERTISED  PRICE 

OH  THE  SAME  PfiODUCTS  AND  QUANTITIES 

SUBJECT  TO  THE  SAME  TERMS  AND  CONDITIONS. 


629  Green  Bay  Road 
Wilmette,  Illinois  60091 


Incredible  valuel 

Nashua. 
Diskettes 


85 


LIFETIME  WARRANTYl 


ea. 

Sy,-  SSDD 


^   foty.SO 


These  are  poly-tiagged  di aketles  packaged  wfth  Tyvek  sleeves, 
reinlorced  hubs,  user  ideniilicaiion  labels  and  wriie-proiet!  labs 

NASHUA  Corporation  is  s  nal(-billion  dollai  coiporalion  and  a 
lecognized  leader  ^r  magnetic  media 

SOFT  SECTOR  ONLVI    Sold  in  muliiples  of  50  only' 

for  orders  only:  information* 

1-600-621-6827  inouiries: 

(In  Illinois:  1-312-256-7140)        1-312-256-7140 
HOURS  8AM-5PM  Central  Time.  Monday-Friday 
WE  WILL  BEAT  Ml  NATIONALLY  AOVEFTISEO  PRICE 
ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  Inc. 

629  Green  Bay  Road  •  Wilmetle.  Illinois  60091 


DISK 
WORLD! 


NASHUA 
Aultwilnd  DMilbuter  lUaNETtC 
MENA 


DISKETTES 
The  great  unknown! 


7  Q  I?  •    5''*'  SSDD  fl  ^  V 

I     ^  Oty  50   5„^. jjgj^jj   .%J\J  Qty  50 

You've  used  these  diskettes  hundreds  of 
times... as  copy  protected  originals  on  some  of 
ttie  most  popular  software  packages.  They're 
packed  in  poly-bags  of  25  with  Tyvek  sleeves, 
reinforced  hubs,  user  identification  labels  and 
write-protecttabs. 


LIFET  ME  WARRANTYl 


SOFT  SECTOR  ONLY!     Sold  in  multiples 

of  50  only. 

for  orders  only:  information* 

1-800-621-6827  inquiries: 

(in  Illinois- 1-312-256-7140)       1-312-256-7140 

HOURS  6AW-5PM  Central  Time,  Monday-Friday 

WE  WILL  BEAT  ANY  NATIO  HALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  Inc. 

629  Gre«n  Bay  Roaa  •  Wiinnetle.  Illinois  60091 


DISK 
WORLD! 


Authorized  Distributor    MAGNETIC 
MEDrA 


DISKETTE 
STORAGE  CASES 


AMARAY  MEDIA-MATE  SO;  A  REVOLUTION 
^g|  IN  DISKETTE  STORAGE 

^P^  Evciy  once  in  a  wtiile  someone  tslies  We 

SvP^_       simple  and  inakes  it  elegant'  This  unit  holds 

^k  50  5'''  diskettes,  has  grooves  tor  easy 

^^       ^        stacking,  inside  nipples  lo  keep  diskettes 

from  sllppinB  and  seyera  I  oilier  features ,  We 

like  It!  CD  RQ         '  ""° 

DISKETTE  70  STORAGE:  STILL  A  GREAT  BUY. 

^^■r         Dusi-tiee  storage  lor  70  5=.'.'  diskettes 
^^^H       Six  dividers  included  An  excellent  value. 

M-km    *  VDISK  CADDIES    $9-95   S.^ 

y  ^^  ^^p  The  original  Ijip-up  holder  lor  10  5",' 
-     ^PX^^Oisliettes  Seigeorgrey  only  ff  ^  CC 

tU/'  -  20C  Snpog 

FOR  ORDERS  ONLY:  INFOFIMATION  * 

1-800-621-6827  INQUIRIES: 

(In  Illinois:  1-312-256-7140)        1-312-256-7140 

HOURS:  SAM-5PW  Central  Time,  Monday-Friday 

WE  Will  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  Inc. 

629  Greer  Bay  Road  •  Wiimette.  Illinois  60091 


DISK 
WORLD! 


FANTASTIC  LOW  PRICES  ON 

^  BASF  ^ 

75  QUALIMETRIC  r™ 
DISKETTES! 

LIFETIME  WARRANTYl 


3Ljy  in  bulk  and  save  ISO  to  the  carton  with  envelopes,  write- 
prote[:t  tabs  and  user  IP  labels  Boned  producl  is  the  same,  except 
in  cardboard  boies  of  10 

Qly,  50  Qly.  150 

5-25- SSOO  .33  ea.  .80  ea. 

5  25-DSDD  94  ea  ,92  ea 

5  25-DSDD-HD  213ea.  N/A 

5  25- SS0D-96TPI  94  ea.  N/A 

5.25-DSDO-96TPI  lOSea  N/A 

3S0SSDD-135TPI  1iS4ea  1  SBea 

3  50nSDD  135TP1  2.40  ea  2  2eea 

(^OTE   3  50"  diskettes  in  Quantity  50  are  packed  in  plastic 
library  cases  That's  why  they  seem  to  be  a  better  buy  Bu!  there 
are  only  5  diskeites  lo  a  case    so  the  bulk  diskettes  are  really  a 
tietter  deal,  unless  you  like  expensive  littie  library  cases 
for  orders  only:  information  & 

1-800-621-6827  inquiries: 

(In  IlimoiS  1-312-256-7140)       1-312-256-7140 
HOURS:  S4M-5PM  Central  Time.  Monday-Friday 
WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 
ON  THE  SAME  PRODUCTS  ANO  QUANTITIES! 


nixK  Authoriied  Reseller 

UlOn  InformationPfOcessing"    RAQC 

WORLD!  "•■ 


DISK  WORLD! 

Ordering  &  Shipping 
Instructions 


Shipping:  5v.-  &  3  5"  DISKETTES-Add  S3-00  per  each  100  or 
fewer  diskettes  DIhef  Items:  Add  shipping  charges  as  shown  in 
addition  to  other  shipping  charges  Payment:  VISA  and  MASTER- 
CARD accepted  COD  Ofiers:  Acd  additional  SS.OOSpeciai  Han 
dling  charge.  APO,  FPO.  AK,  HI  &  PR  Oiiefs:  Include  shipping 
charges  as  shoiivn  >nil  addnional  5%  of  total  order  amount  to 
cover  PAL  and  insurance  Ts«es:  Illinois  residents  only,  add  7% 
sales  tax. 

Prices  subiect  to  change  without  notice. 
This  ad  supercedes  all  other  ads. 

Not  responsible  tor  typographical  errors 
MINIMUM  TOTAL  ORDER-  S35  00 


INFORMATION  & 
INQUIRiES: 

1-312-256-7140 


FOR  ORDERS  ONLY: 

1-800-621-6827 

(In  Illinois:  1-312-256-7140) 

HOURS.  8AM-5PM  Central  Time 

Monday-Friday 

WE  WILL  BEAT  ANY  NATIOKALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUAHTITIES! 

DISK  WORLD!,  Inc. 

629  Green  Bay  Roarl  •  Wiimette.  Illinois  6O091 


DISK 
WORLD! 


PRINTER 
RIBBONS: 


at 

extraordinary 
prices! 

Brand  new  ribbons,  manufactured  to  Original  Eouipment 
Manufacturers  specilications.  in  housings.  (Not  re-inked  or 
spools  only) 

LIFETIME  WARRANTY! 

Epson  MX-70/B0  . .  S2.70  ea.  +  Z5C  Shpng. 
Epson  MX-100  . . .  .S4.08  ea.  +  25C  Shpng. 
Okidata  Micro83 . .  SI  .37  ea.  +  25C  Shpng. 
Okldata  Micro84 . .  S2.98  ea.  +  25c  Shpng. 

FOR  ORDERS  ONLY:  INFORMATfONi 

1-800-621-6827  iNOutRtES: 

lln  Illinois  1-312-255-7140)        1-312-256-7140 

HOURS  8AM-5Pf.^  Ccnual  Time.  Monday-Frioay 

WE  WILL  BEAT  ANY  NATIONALLY  AOVERTfSED  PRICE 

Ofl  THE  SAME  PRODUCTS  AND  QUANTITfES! 

DISK  WORLD!,  Inc. 

629  Green  Bay  Road  •  Wifmette.  filinois  60D91 


TlnnliMleailwIn     H     DISK 

SJSSSiS^-  I  WORLD! 


Now,  the  lowest 
prices  ever  on 

3iyi  Scotch 

7  DISKETTES 

LIFETIME  WARRANTY! 


The  best  deal 

on  3M  diskettes 

you've  ever  seen! 
^1 


FLIP  'N  FILE  15 

with  every  order 

for  5.25"  SSDD  and  DSDD. 


S1.36  ea.         5.25"  SSOD  with  FREE  Flip  'n  File  15 

5.25" DSDDwith  FREE  Flio'n  File  15... S1.B7ea. 

MINIMUM  ORDER:  50  Diskettes 

(Orders  less  than  50  are  S1.39  and  S1.7Q. 

respectively.) 

100%  LIFETIME 
WARRANTY! 

This  is  a  Super  Special  Promotion.  It  was 
supposed  to  end  May  31,  1985. 

But  we  decided  to  buy  more  than  1.000.000 
3M  diskettes  packed  in  the  FREE  Flip  'n  File 
15. ..and  give  you  the  benefits  of  this  terrific 
value. 

One  word  of  warning:  this  offer  is  limited  only 
lo  supplies  on  hand.  Once  this  inventory  is  gone, 
that's  it.  The  prices  stay  the  same... but  there's 
no  FREE  Flip  'n  File. 

The  last  time  we  ran  an  offer  like  this,  every- 
thing sold  out  in  about  six  weeks. 

So  don't  wait.  Order  now. 

Ottier  3fk1  diskeites 

Qly.  20  Qty.  50 

5  25' SSDD-96TPi  S2  07  ea  S2.04Ba. 

5.25'DSDD-96TPI  52.51  ea.  S2.4Bea. 

5  25'OSOD-HDFORAT         S3.18ea.  S3.14ea. 

3  50-SSDD-135TPI(Ma[;)       S2.29ea.  S2.26ea. 

DATA  CARTRIDGES 

100%  certified  3fvl  tJaia  cartridges 

DC-1000  S12.62ea. 

DC-300XLP  S19.38ea. 

DC-600A  S20.61  ea. 

SdIi)  incasssot  10 only 

AdiJS5.00sttippingper  10. 


FIRST  TOUCH  KEYBOARD  STRIP 

The  best  way  we've  ever  seer  to  avoid  static  danger 
Adfieres  to  ttie  front  ledge  of  yotir  keyboard.  Overpriced 
at  Sl9  95.  so  we  cul  the  pritje  to  SID. 95  -  51.50  Sfiip- 
ping 


A  VERY  SPECIAL  OFFER 

3M  POST-IT  NOTES  &  DiSPEffSER 

Suggested  Retail;  520.95.  Includes  dispenser,  12 

parts  of  3"  X  5"  Post-It  notes  and  Pilot  Ball  Point  Pen. 

Order  il  with  50  3M  diskettes  or  10  data  cartridges  and 

It's  only  S9.75  +  53.00  Sltipping.  


DISK 
WORLD! 


Aulhorlad  DWMbulor 

InfOfTflrtlOfI  PrOCCCWAQ 


MUST  LIQUIDATE  ^Z^T 

TOTAL  Personal  ComDuter  system 


Factory  Reconditioneti  witii 
Factory  Warranty! 


Carries  easily 
as  a  suitcase! 
Plugs  into  IISV  outlet! 


GREAT  GIFT  IDEA 

FOR  STUDENTS! 


Sorry,  we're  not  permitted  to  PRINT  the  famous  brand-name. 
BUT,  we  CAN  "tell  all"  If  you  call  us  TOLL  FREE:  1-800-328-0609! 


THE  COMPUTER 

Snap-on  computer  keyboardi  64K  RAM.  20K  ROM.  Full- 
size  typewriter  keyboard.  Upper  and  lower  case 
letters,  numerals,  symbols,  reverse  ctiaraclers.  2 
cursor  control  keys,  4  (unction  keys,  programma- 
ble to  8.  Music  synthesizer  witli  3  independent 
voices,  each  with  9Qctave  range.  Input/output  ports 
accommodate  . . .  user,  serial,  ROM  cartridge,  joy- 
sticks, external  monitor,  phone  modem. 

Built-in  disk  drivel  Intelligent  higli  speed  unit  with 
5Vj"  (loppy  disk  recorder.  170K (ormatted  datastor- 
age; 35  tracks.  16K  ROI^,  Uses  single  sided,  single 
density  disk.  Serial  intertace.  Second  serial  port  to 
chain  second  drive  or  printer. 

Buill-in  color  monitor  I  Displays  40  columns  x  25  lines 
ot  text  on  5"  screen.  High  resolution.  320x200  pix- 
els. 16  background,  character  colors. 

Bulll-in  ROM  cartridge  portl  Insert  ROM  program  car- 
tridge. Multitude  o(  subjects  available  in  stores 
across  the  nation! 


Original  List  Price 


<99S.OO 


$ 


Liquidation 

Priced 

At  Only  

Hem  H-7Z5-63631-00  Ship,  handling;  SZOOO 


388 


THE  PRINTER 

Print  method;  Bi-directional  impact  dot  matrix. 

Character  matrix:  6  x  7  dot  matrix. 

Characters:  tipper  and  lower  case  letters,  numerals 

and  symbols.  Ail  PET  graphic  characters. 

Graphics;  7  vertical  dots  —  maximum  480  columns. 

Dot  addressable. 

Character  codes:  CBM  ASCII  code. 

Print  speed:  60  characters  per  second. 

Maximum  columns:  80  columns. 

Character  spacing;  10  characters  per  inch. 

Line  teed  spacing:  6  lines  per  inch  in  character  mode 

or  8  lines  per  inch  selectable.  9  lines  per  inch  in 

graphics  mode. 

Llna  (eed  speed:  5  lines  per  second  in  character  mode. 

7.5  tines  per  second  in  graphics  mode. 

Paper  (Bed;  Friction  (eed. 

Paper  width:  4.5"  to  8.5'  width. 

Multiple  copies:  Original  plus  maximum  o(  two  copies. 

Dimensions:  13"W  x  8"0  x  3'.V'H.  Wt.:  S'h  (bs.  Power: 

120V  AC,  60  Hz. 

Original  List  Price:  ^200.00 


THE  SOFTWARE 

"Easy  Script"  One  o(  the  most  powertui  word  pro- 
cessors at  any  price!  Cut  re-typing,  create  docu- 
ments (rom  standard  paragraphs,  do  personalized 
letters,  see  and  change  a  document  betore  it  is  print- 
ed. Instruction  manual  has  extensive  training  set;- 
tion  that  simplides  use  . . .  even  (or  someone  who 
has  never  used  a  computer  or  word  processor  betore! 

"The  IVIanager"  A  sophisticated  database  manager 
for  business  or  home  use.  Business  uses:  accounts 
payable/receivable,  inventory,  appointments,  task 
manager.  Home  uses:  mailing  lists,  home  inventory, 
recipes,  collection  organizer,  investment  tracking, 
checkbook  balancing.  School  uses:  research  arti- 
cle  index,  gradebook, 


$24 


Liquidation 

Priced  At 

Item  H-725-63831-00  Ship,  handling:  S7.00 


ni8 


Compatible  with  above  Computer  System  (Not  included  in  package  price.) 
JOYSTICKS  (Set  of  2)  64  MODEM 

Mfr.  List  $59.90  pr.     ^IQ  l«fr.  List  *  124.95  $AA 

I  "  pr.       Liquidation  Price "^B 


Liquidation  Price ■  ^m  pr. 

Item  H-725.B362Z-00  S/H:  S6.00  pi 


Liquidation  Price 

Item  H-725.63646-00  S/H:  S4.00 


Original  Ust  Price:  *73.98 

Lquidation  Price 

Itsm  H-7ZB-6401 1-03  Ship,  handling:  S3.00 

BUY  INDIVIDUAL  UNITS  OR 

GET  THIS  ULTRA-FAMOUS 

SYSTEM  AT  ONE  LOW 

PACKAGE  PRICE! 

TOTAL  Personal  Computer  System 
available  at  FAR  BELOW  dealer  cost! 

Original  List  Price ^1,293.00 


TOTAL 
PACKAGE 
PRICE 

Item  H-725-6401 1-02  Ship,  hondlirtg:  S24.00 


4 


•      I 


Crsdit  card  monban  can  ordar  by  phone, 
24  houra  a  day.  7  dayt  a  week. 

Toir-Free:  1-800-328-0609 

^^^H  Your  ciiedt  ia  wslcomal 
WiSIWl  No  dalayi  when  you  pay  by  checlil 

^SEND  ME  THE  ITEIMS  1  HAVE  LISTED  BELOW 

1           Price  subject  te  change  aher  60  days.  Sales  eutside 
.             continental  tJ.S.  are  subject  to  special  condrtionE. 
1                               Ptease  call  or  write  to  inquire. 

C.O.M.B.  CO.®                                                fIemH-725 
14605  28th  Ave.  N. /Minneapolis,  MN  55441-3337 
Send  the  items  Indicated  at  left.  IMinnejoto  residents  add  6% 

'                 Item  No, 

« 

Hem 

Price 

S/H 

sales  tax.  Please  allow  3-4  weeks  delivery.  Sorry,  no  CO. D.J 
n  My  check  or  money  order  is  enclosed.  fNo  delays  in  process- 

ing orders  paid  by  check,  thanks  to  TeteCheck.l 

4ri-l    No     .   _                                                                       c.p 

PLEASE  PRINT  CLEARLY 

C.O.M.B.  CO.^" 

Authorized  Liquidator 

14605  2eTH  AVENUE  NORTH 
MINNEAPOLIS.  MINNESOTA  55441   3397 

iHrt™« 

I 

Krar*        ,  ,            _                                                 7JP 

PhnoB 

TOTAL 

"iljjn  hftrft                 _                                                                                         J 

WHITE  HOUSE  COMPUTER 

P.O.  Box  4025,  Williamsport,  PA  17701 

"Where  Prices  Are  Born,  Not  Raised" 

TOLL  FREE  1-800-351-3442 

PA  CALL  1  -71  7-322-7700 

—  PA  Residents  FREE  Shipping  — 


[  MON  DAY  -  FRI  DAY  9  AM  -  6  PM 
VISA  &  MC  ACCEPTED  4% 


[  POLICY:  Mo  deposil  on  COD  orders.  Free  Ireignt  or  all  prepaid  cash 
orders  over  S300  in  Ihe  cor>linenral  USA  APO  &  FPO  add  S5.00  per 
hundred  For  priority  mail  add  S8  00  per  hundred   PA  residents  add  6% 

I  sales  tax.  Detective  products  must  have  Prior  RA  number.  Sctiools  net  1  5 


PRINTERS 


EPSON 

RX  SO 209.00 

RX  too 369.00 

JX80 -ITatX) 

FX85  ._ 345,00 

FX  185 499.00 

LO  1500  PAR 979.00 

LQ  1500SER 1039.00 

LX  80    222.00 

Homewriter 209.00 

Comrei  220  Atari 199.00 

Comrex  220  Comm 1 99.00 

LX  90 246.00 

SO2DO0 1525.00 

DX  1 0  Daisywheel  ....  235.00 
DX  20  Oaisywhee  I  ....  3 1  9.00 

HS80  Lelterjet 359.00 

ATARI 

XTM201  99.95 

XTC201  109-95 

XDM  121 209-95 

XMM  801  169.95 

STC  504 139.95 

STD  121  219.95 

SMM  801 27995 

CITIZEN 

MSP  10 305.00 

MSP  16 450.00 

MSP  20 450.00 

MSP  25. 575.00 


OKI  DATA 

Okimate  10 179.95 

182 219.95 

84 640.95 

192 349.95 

193 525,95 

COMMODORE 

MPS  801 165,95 

802 199.95 

803 165.95 

DPS  1101 295  95 

STAR  MICRONICS 

SG-10 214.00 

SG-15 379.00 

SD-10 345.00 

SD-15 45000 

SR-10 485,00 

SR-15 -585.00 

Powerlype 307,00 

LEGEND 

1380 269.00 

'385 305.00 

1080 229.00 

880 199.00 

PANASONIC 

1090 187.00 

1091 CALL 

1092 385.00 

1093 42500 

3151 45500 


INTERFACES 

BSOiAtan) 108  95 

UPnnt/port  49.95 

UPrlnt/iek  Butter  ....69.95 

UPrint/64k  Buffer 89.95 

Cardco  G 3995 

G-Wiz 48.95 

Apple  Dumpling  GX..  .59.95 

PRINTER  PAPER 
2500  Sheets 

Lazor  Edge 24.95 

1000  Shts  Lazor  14.95 

500  Shis  Lazor  9.95 

Colisr  Paper 

Assorted  Pastels 

2500  Shis  Lazor  .42,95 

1000  Shis  Lazor 23,95 

500  Shts  Lazor    14,95 

SOFTWARE 

Print  Shop 28,95 

Graphics  Library  L  . .  17.50 
GraphicsLibraryJI., .  17.50 


VIDEO  CASSETTE 

RECORDER 

S279.00 


DISK  DRIVES 
ATARI 
Indus  GT 205.95 

1050 - 164,95 

Happy  1050 .335,95 

Happv  Enhancer 1 60,95 

MSD  Dual    459.00 

C-64 

Indus  GT 229.00 

1541 195.00 

1571 249  95 

1572 375  95 


MODEMS 

C-1650 54.95 

C-1  670  300/1200         185,95 

MPP  1064 54,95 

Tele  Learr^ing 39  95 

Hayes  300 149.95 

Hayes  1200 3S5.95 

t.1iley  Mo 59,95 

Westridge 59,95 

CompuServe 1 9,95 

Micro  Sliiller 95,95 

MPP  1000E 69.95 


DISKETTES 
SKC 

SS/DD 10,95 

DS/DD 14.95 


BONUS 

SS.'DD 
DS/DD 

MAXELL 
MD  1 
MD  2 


.9  50 

,  13.50 


.  15  95 
.  20,95 


MONITORS 

ZENITH 

122  A 

12iG 

AMDEK 

300  G  

300  A  

Color  300 

Color  500 

Color  600 

Color  700 

Color  710 

310A.... 

ATARI 

XC  141 

SM  124 

SC  1224     

TEKNIKA 

MJ-10 

MJ-22  RGB... 


82.95 

75.95 


SAKATA 

SC-100 


.  119.00 

129.00 

.229.(X) 

.  339.00 
.  399.00 
,469.00 
.539,00 
.145.00 

199,95 
,  13595 
335  95 

185  95 
.269.95 

179  00 


COMMODORE 

C-1702       185,95 

C-1 902  RGB      259  95 

C-1 901  129  95 


COMPUTERS 

COMMODORE 

C-64  139,95 

C-123    27595 

ATARI 

600  XL    89,95 

130  XE  139,95 

520  ST  Monochrome 

&  More  ,  CALL 

520  ST  Color  RGB 

S.  More  CALL 


IT'S  LIKE 


FREE  DISKETTES 


Your  S'ii"  single  side  disks  are  usable  on  the 
other  side.  You  paid  for  one  side,  why  not  use 
the  other... IT'S  FREE! 

Nibble  Notch  will  open  your  new  disk.  It's 
easy.,  won't  harm  existing  data.  Try  it! 

njbbte  noftch  I   nibble  notch  1 1 

for  all  other 
computers,  square 
notch  &  index  hole, 


For  Appie,  franklin, 

Commodore  &  Atari 

(w/Atari  Drives); 


square  notch. 


14 


95* 


©- 


only 


'21 


90* 


DISK  OPTIMIZER  II 


Apple  II  Series  Software 

Pro  DOS  •  DOS  3.3  •  Pascal 

Examines  your  new  disk,  locks  out 
bad  sectors  and  certifies  it  100"/!) 
ERROR-FREE  in  30  seconds  or  less! 
Also  checks  dnve  speed... and  more! 


QUALITY  DISKETTES 
low  as 


Op(tm,i.e,c, 


"•"••e  reg 

^ftSieorifi 


•add  S2  IS6  trflnl 
lorP*  H.  Ft,  Res 
add  5%  Sates  Tax 


Toll  Free  1-800-642-2536 


computer  produels 


FL  1-305-748-3770 

OR  SEND  CHECK  OR 
MONEY  ORDER  TO: 


5 


4211  NW75thTERRACE,'DEPT.662    LAUDERHILU  FL33319 


3^ 


Professional 
handicapping  systems 


^n^ 


•  PRESE^4TED  BY  PROFESSOR  JONES  • 


^rt^ 


GLD.  Thoroughbred  "Gold"  Editlan'" 

A  "Full  1«Jiijted  rhoj-ouQnbred  analysis  OKijned  lor  the  p^oless^onat  and 
ihfl  S8i«us  novice.  $159.35  comclete 

EGLD.  Enhanced  ^'Gold'^ditlon'" 

Goid""Editon  wih  complete  Master  Beitor^sysleminiegfaiedofiioihe  same 
disk  ThLS  powerful  program  Mil  i-ansSer  ai  injisss  and  scores  lo  ttie  Bet  analysis 
wiW  a  ■singit  iteystrwe  "    {Masrer  Bettw™  indj*d)  S199.U  Cfflfltpleie 

GLTD.  LImiled  "Gold"™ 

EnaQes  Pnrsttloml  Handlcippin  to  3$$Kr^Ei'^c  values  ra  ttte  racing  var« 
iabl«  tticy"  feelaie  importarii  Creaieivoofsniweigfii  Dasedonapartcuiar 
irack  and  tire  lune  it  for  mnlmum  win  perccfliagB  This  prooram  is  designed 
lor  "ease  at  use".  The  jsec  nset^  H  ptDgjimming  BipcriBice. 

iconijins  Iraegraied  Bcnor'*)  S2W.95  comp(e:e 


GD.  Gold  Dog  Analysis^" 

The  "DNLV  piofessiional  greyhound  analysis  available  that  ?valuales  ALL 

vafiaUcs  S149.9S    w/mtegraied  Bcitiyr  5199.95 

Limited  Veryoo  S299.95 


'^?r 


MHH.  Master  Harness 
HamUcapper"' 

Professional  software  flesianed  to  provide  a  Ihoroufiti  analysis  ol  all  irotler  and 

pacer  races  n  Nonh  America  and  Canada,  S159,95  CQmpiele 

S1 99.95  wflnletialtil  Betm    bmriefl  $299.95 

Professor  Pli  Foolball'" 

Cotniiele  STATISTICAL  ANALYSIS  on  Dals  BJM  a»»ng  -DeasiltM    prcmjs 

QairiB$  in  &£  evaluated,  Slalisrical  Series  S99.95 

wWuiLoss  Pmrei  Ratings  J149.95 

NBA.  Basketbair"  «iaS99.95    «/n>i*Be  $129.95 

w/po«^r  raun^s  $149.95 

LOT.  Lottery  Analysis'" 

statistical  companson  prouram  designefl  to  detect  subtle  patterns  in  wnnirtg 

lumBeis  and  dipCs  imtery  (3-4  di^t)  $79.95 

w/lotto  (Max.  99  Digit)  $99.95 

PC-3  Portable  Computer  {iVj  «iinclmceolTnoioughMe<l,Grey- 
tiound  Of  Ttouer'*     $249,95  linclLKJes  xnalJle  compul^r  and  prt^ram ) 

M-IOfl  Portable  {2W\  w.wnce  ol  ThsiwgtihrBi,  GreySound,  a  Trmei 
S649.95  [Includes  iBflaSle  computer  and  program.) 


BROCHURE  AVAILABLE 


IBMT 

APPLET" 

TRS-80' 

CPM" 

COMMODORE^" 


Prof.  Jones 

1940  W.  State  St. 
Boise,  ID  83702 


48  HR. FREE 
SHIPPINC 


^B   CALL 
208-342-6939 


TERMS  mi  SMipBi'lG  ALL 
SOFTWARE  Add  S6  00  naid- 
ivare/SSOOCOP  (UPS Blue 
S6.00  /  Out  ol  Country  S9,00  / 
ID  Hesidenis  i%  I  i  weeks  per- 
sonal chec:ks  /  Cssn  price  only. 
adt)Z«5Visa,  MC  /  Prices  sub- 
ject to  cliange 


$699  Computer 
Breakthrough 

IBM  compatible  computer  with  128K  memory 
and  two  disk  drives  is  more  tlian  a  bargain. 


It's  a  new  concept.  And  If  my  hunches 
are  correct,  the  new  Visual  Commuter 
will  take  years  for  others  to  copy. 

By  Joseph  Sugarman,  President 

First,  it  Is  a  tremendous  bargain.  At  $699 
nothing  even  comes  near.  Secondly,  It's  power- 
ful. You  get  1 28K  memory  that's  expandable 
to  512K.  And  finally,  it's  totally  IBM  compati- 
ble. It  wil  I  even  run  the  Flight  Simulator  prog  ram 
and  Lotus  Symphony™  But  there's  more. 

The  unit  can  be  used  as  a  stand-alone  office 
computer  as  shown  above  or  it  can  be  packed 
up  and  used  as  a  portable— but  without  all  the 
weight.  There's  an  optional  16-line  x  BO 
character  LCDdisplaythatpopsupto  replace 
theheavy  CRT  monitor.  Unlikethesmallef  por- 
table computer  keyboards,  the  Commuter 
keyboard  is  a  full-size  replica  of  the  IBM  with 
itsten  function  keys  and  numeric  key  pad.  And 
the  Commuter  uses  S'A ' '  disks  so  you  have  full 
access  to  all  the  popular  IBM  software. 

lt'slighter(only1 8  lbs),  flatter  (only  31/2"  thick) 
and  carries  like  a  briefcase.  In  short,  the  Visual 
Commuter  is  a  combination  of  all  the  good 
features  of  a  portable  computer  (size,  weight, 
portability),  ailthe  good  features  of  atraditional 
desktop  computer  (full-size  keyboard.  SVt" 
disks,  full  power)  and  none  of  the  disadvan- 
tages of  either. 

USE  IBM  PROGRAMS 

Even  if  you  have  another  computer  but  miss 
some  of  the  IBM  programs,  for  only  $699  and 
an  IBM  compatible  monitor,  you've gotacom- 
plete  MS/DOS  system. 

It  was  alsomade  modular  so  you  can  select 
just  those  componentsthat  you  need  for  your 
particular  application.  For  example,  you  may 
not  need  the  1 6  line  x  80  column  LCD  display 
which  adds  2  lbs  to  the  unit's  weight  (a  blank 
lid  comes  with  the  unit).  Or  you  may  not  need 
a  monitor  because  your  other  computer  may 
already  have  one.  But  you  may  want  more 
power— 256Kor512K— soyouorderjustwhat 
you  need. 

For  all  you  technical  people,  listen  to  these 
specs.  There'sa  1 6-bit  8088  processor,  1 28K 
memory  with  parity,  parallel  printer  port,  serial 
ASYfsIC  RS  232C  port,  Din  connector  RF 
modulator  orcomposite  video  out putforT\/and 
composite  video  input  monitors,  RGB/direct 
drive  output  for  high  resolution  monochrome 
or  color  monitors,  IBM  compatible  color 
graphic  support,  support  logic  for  80x25  or 
40x25  character  display  and  LCD  display,  con- 
nector to  IBM  expansion  unit,  disk  controller 


A  It  carries  like 
a  briefcase. 

B  With  LCD 
lid  open. 


The  Visual  Commuter 
sells  for  only  $699. 
The  IBM  mor)o- 
chrome  monitor 
is  optional. 

su pporting  two  5  Va  "  diskdrives,  ANS I  standard 
ROM-based  terminal  emulation,  and  ROM- 
based  extended  diagnostics.  The  dual  disk 
drives  are  double  sided-double  density  (360 
Kbytes).  The  Comm  uter  runs  at  the  same  clock 
speed  as  the  I BM  PC  (4. 77  M  Hz)  but  because 
of  its  new  design,  it  runs  between  8  to  1 0  per- 
cent faster. 

ATTRACTIVE  CASE 

There's  an  attractive  carrying  case  made  by 
American  Tourister  that  holds  your  software, 
your  power  cotd,  your  documents  and  even 
our  optional  1 200  baud  modem,  The  compati- 
ble Maxwell  modemletsyoucommu  nicate  with 
other  data  banks.  Made  by  the  world' s  largest 
modem  manufacturer,  Racal-Vadic,  it  is  nor- 
mally a  $500  value  but  our  price  is  only  $249 
which  includes  a  complete  communications 
software  package.  There'salso  atoll  free,  on- 
line warranty  service  and  a  customer  hotline 
to  answer  any  of  your  technical  questions. 

You  may  have  recently  heard  of  Visual 
Tech  nology  Incorporated .  Th  ey  are  i  nnovators 
in  the  design  and  manufacture  of  smart 
alphanumeric  terminals  and  some  of  the  finest 
graphic  terminals  in  the  country. 

The  Visual  Commuter  was  scheduled  to  sell 
for  over  $2500  with  the  LC  D  display .  And  even 
at  that  price,  when  compared  to  the  IBM 
system,  it  was  a  good  value.  But  JS&A  and 
Visual  (in  a  joint  venture  with  SGD  Holding 
Corp.)  saw  the  opportunity  of  having  just  one 
customer.  Together,  by  selling  directly  to  you, 
we'veeliminated  the  distributors,  dealers  and 
all  the  sales,  administration  and  advertising 
costs  and  have  passed  the  savings  on  to  you. 
But  there  are  a  few  catches. 

JUST  A  FEW  THOUGH 

Once  we  install  the  memory,  you'll  have  to 
send  the  unit  back  to  us  toadd  more  memory. 
So  we  ask  that  you  estimate,  in  advance,  the 
maximum  power  that  you'll  require  for  your 
needs.  1 28K  memory  is  plenty  for  most  applica- 
tions but  if  you  want  to  run  Lotus  Symphony, 
you '  II  need  all  5 1 2K.  Secondly,  we  askthat  you 
act  quickly.  Although  we  havemost  of  the  pro- 
duct in  stock  right  now,  there's  always  the 
chance  that  we'll  run  out. 

The  Visual  Commuter  measures  only  SVz  x 
ISVa  X  18"  wide  and  comes  complete  with 
power  cord  (it  only  operates  on  standard  AC 
current),  the  operating  system  (Micro-Soft's 
MS/DOS  ver.  2.1)  complete  with  basic  and 
utilities,  two  beautifully  written  manuals,  lid 
(without  LCD  d  isplay)  and  a  lim  ited  90-day  war- 
ranty.  Th  ere  are  sen/ice  centers  th  roug  hout  the 
United  States  set  uptoservicethe  unit  in  addi- 


tion to  the  service-by-mail  facility  at  Visual's 
home  office  near  Boston. 

1  urge  you  to  give  the  VisualCommuteratesl. 
Order  one  from  JS&A  and  use  it  for  30  days 
without  risk.  Plug  in  your  IBM  monitor  and  load 
any  of  the  IBM  software  you  currently  have.  See 
how  the  large  keyboard  matches  the  IBM 
perfectly  and  how  its  handle  makes  a  perfect 
hand  rest  while  typing  or  a  comfortable  han- 
dle for  carrying  the  unit.  See  how  convenient 
the  unit  is  to  take  home  or  bring  with  you  on  a 
trip  with  its  fold  open  LCD  monitor.  Ifyou  don't 
feel  that  the  Visual  Commuter  is  morethan  you 
expected,  pack  it  up  and  ship  it  back  within30 
days  for  a  prompt  and  courteous  refund  in- 
cludingthe$25postagecharge.Youcan'tlose. 
PERSONALLY  USED 

I  have  personally  used  the  Visual  Commuter. 
1  have  taken  it  with  me  on  trips,  set  it  up  as  a 
stand  alone  by  plugging  in  my  IBM  monitor. 
I  have  run  everything  from  Symphony™  to 
Wordsta/<5— from  1-2-3®  to  the  Flight  Simulator 
program.  I  strongly  recommend  the  system. 

To  order,  send  your  check  or  money  order 
to  the  address  below  I  isting  the  item  s  and  order 
numbers  (shown  in  parentheses)  or  order  by 
credit  card  using  our  toll  free  number  below. 

Thanks  to  the  latest  in  technology  and  a 
direct-to-consumer  marketing  program,  this 
system  can  be  yours  at  a  tremendous  value. 
Order  your  Visual  Commuter  at  no  obligation, 
today. 
Visual  Commuter  with  2  Disk  Drives 

and  128K  Memory  (6105). $699 

16x  80  LCD  Alphanumeric 

Display  (6106)   299 

IBM  12"  Green  Monitor  (61 07) 229 

Zenith  12"  Amber  Monitor  (6114) 99 

Expansion  to  256K  (6110)   199 

Expansion  to  512K  (61 11)  399 

Maxwell  1200  Baud  Modem  (6112)  . .  .249 

Carrying  Case  (61 15) 69 

Add  $25  postage  and  handling  per  system. 
IBM  is  a  Trademark  of  International  Business 
Machines  Corporation. 


O 
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PRODUCTS 
JHAT 
JHINK 


Dept.PT  One  JS&A  Plaza 

Northbrook,  II 60062 

QUESTIONS  ONLY:  (312)  564-7000 

CALL  TOLL  FREE  80&  228-5000 

IL  rasitJenls  add  7%  sales  lax.  ®  JS4A  Group.  Inc.,  1985 


Classified 


SOFTWARE 


ATARIWARE  FROM  THE  LIBRARY  OF  JAX 
ATARI  -  Computer  Enthusiasts!  Over  70  disks  to 
choose  from.  S7.95  ea.  Catalog  with  SASE.  J  ACE, 
1187  Dunbar  Cl.,  Orange  Park,  FL  32073 

COMMODORE:  TRY  BEFORE  YOU  BUY.  Top  25 
best-selling  games  +  classics,  new  releases.  Visa, 
Mastercard.  Free  brochure.  Rent-A-Disc,  908  9th 
Ave.,  Huntington,  WV  25701.  (304)  522-1665 

ATARI  ST  USERS  -  Ufe  organizer  & 
entertainment  jackpot.  Big  software  package. 
Write:  MC,  94  Macalester  Bay, 
Winnipeg,  Manitoba  R3T  2X5  Canada 

BASICally  SIMPLE,  a  fast,  easy  method  to  learn 
programming  in  basic  on  your  Commodore  64. 
Clear,  concise  instruction  in  the  use  of  all 
commands.  No  gobblede-gook.  Send  $20  for  this 
tutorial  and  reference  disk  to: 
Free  Spirit  Software,  Inc.,  5836  S.  Mozart, 
Chicago,  IL  60629 

T1-99/4A  SST  Expanded  Basic  Compiler  $49.00. 
Converts  Bask  to  machine  language.  Requires 
E/A  or  MM,  Disk,  Memory  Expansion.  Compiler 
and  Graphics  Utility  S59.00.  SST  SOFTWARE, 
P.O.  Box  26,  Cedarburg,  WI  53012 

HOW  GOOD  A  COACH  ARE  YOU?  CALL  THE 
plays  against  Atari  or  a  friend.  Football  text  game 
featxires  varied  team  strength,  weather,  overtime, 
2  pt  conversions,  team  stats,  standings  +  more! 
Easy  to  play.  For  Atari  BOO  +  Basic.  $25  disk. 
James  Franklin,  1600  NE  135  St.,  Apt.  803, 
N.  Miami,  FL  33181 

Free  Educational  Software  Catalog 

158  pp,  color  pictures,  1000-1-  programs  for 
Com.,  Apple,  IBM,  Atari.  Send  name  &  address 
to:  Interstate  Software,  P.O.  Box  8952,  Boise,  ID 
83707,  (208)  342-3347 

ATARI  MICROSOFT  Basic  i/Il:  Try  ACEY 
DUCEY,  a  great  casino  card  game  for  1-4 
players.  ACEY  DUCEY  is  designed  as  a  tutorial, 
utilizing  Microsoft  Basic's  best  features.  Full 
documentation  explains  every  detail.  400/800/ 
XL/XE  disk  or  tape  -I-  docum.  Send  $8.50. 
CALTECH,  Box  136,  Kenilworth,  N]  07033-0136 

ORGANIZE  YOUR  GENEALOGY  with 
BRANCHES  on  your  C-64  &  1541  drive.  Send 
$14.95  to  Invenhire  Soft.,  3353  South  Main, 
Suite  101,  Salt  Uke  City,  UT  84115 

T1-99/4A  QUALITY  SOFTWARE  for  Business, 
Home  and  Entertainment  "  BONUS  Software 
Offer!  ••  Send  for  FREE  Catalog  !o  MICRO-BIZ 
HAWAII,  Box  1108,  Pearl  City,  HI  96782 

AT  BAT  STATS  64  -  Baseball  stats  for  C64.  Keeps 
22  offensive  stats,  holds  162  games  and  40 
players.  Prints  7  reports.  On  disk  $32.95 
postpaid.  THE  43RD  ST.  SOFTWARE  SHOP,  720 
43rd  St.,  Ashland,  KY  41101.  Ideal  for  coach  or 
player!  (606)  324-7403, 

GOMUKO  —  Compiled  basic  program  15  by  15 
board,  Unmove,  load/save  game  user  changable 
logic  for  64.  Send  $14.95  to:  W.  L.  Schneider, 
5027  S.  High,  Suite  410,'Oklahoma  City,  OK 
73149 

IBM  PCjr.  OWNERS:  We  have  the  software  you 
want.  We  also  have  kits  for  easy  2nd  drive 
addition.  Free  catalog.  OOWL  SOFTWARE,  1435 
Burnley  Sq.  N.,  Columbus,  OH  43229 


TEACHERS;  ELECTRONIC  QRADEBOOK 

for  Atari.  PowerfuL  simple  to  use.  Record 
keeping,  grade  averaging.  Screen  display  and 
variety  of  pre-formatted  printed  reports.  Clear 
instructions.  Requires  48K  and  one  disk  drive, 
$29.95.  GRADESCAN,  1722  Golden  Ct., 
Crofton,  MD  21114 

TI-99/4A  Software/Hardware  bargains. 
Hard-to-fmd  items.  Huge  selection.  Fast  service. 
Free  catalog.  D.E.C.,  Box  690, 
Hicksville,  NY  11801 

REAL  ESTATE  SOFTWARE  for  C64,  Apple  II, 
lEM-PC.  Includes  Mortgage  Payments, 
Amortization,  Depredation,  Cash  Hows  and 
Taxable  Income  Effects.  AH  for  $35  pp.  J.A.!., 
Box  234,  East  Texas,  PA  18046.  (215)  393-0434 

APPLE  II  SERIES,  COMM  64,  TI  99/4A, 
IBM/PC  Discount  Entertainment  Software. 
Specify  which  free  catalog.  New  titles. 
The  Advenhire  Store,  Roscoe,  IL  61073-0320 

TOR  FIGHTER:  You  are  entrusted  with  the 
daring  adventure  of  defending  earth,  $12.  C64, 
C16,  -1-4  (disk),  TI  (cass.).  Check  or  money  order 
to:  Computex,  Box  7245,  Ponce,  PR  00732 

TIM,  The  Investment  Manager  and  COMEX 
Gold  and  SUver  Management,  plus  Fun-Anl 
Analyze  Stock  Program  for  64.  All  three 
$19.95  or  write  for  free  details  to; 
W.  L.  Schneider,  6027  S.  High,  Suite  410, 
Oklahoma  City,  OK  73149 

LOTTO  PICKER.  Go  for  Million  Dollar  Jackpots! 
Picks  all  USA  Lotto  games  -I-!  PRO  FOOTBALL 
ANALYST,  Beat  the  points  consistently  and 
easily!  They  pay  for  themselves!  Each  $35. 
IBM-PC/T199  ver.  RIDGE,  170  Broadway,  #210-C 
NYC,  NY  10038.  718-833-6335.  Free  Catalog. 


HARDWARE 


Trade  In  your  used  Commodore  or  Atari  on  a 
brand  now  C-128  or  Atari  ST.  This  otter  may 
not  be  available  through  retail  outlets. 
Brochure  S2.00  and  SASE.  NEW  WEST 
TECHNOLOGY,  4B  Monroe  Pkw.,  Box  200,  Ste. 
134,  Lake  Oswego,  OR  97034 


HARDWARE  &  SOFTWARE  30%  BELOW 
RETAIL.  Apple,  Atari,  C64,  IBM-PC,  TI-99.  Over 
1000  titles.  Hard  to  find  items.  Send  Sl.OO  for 
catalog.  Spedfy  computer.  Muld- Video,  P.O.  Box 
246,  East  Amherst,  NY  14051 


MISCELLANEOUS 


64  AUTHOR'S  CLUB  ■  We  get  you  published. 
Send  for  free  details  or  send  $25.00  (a  50% 
savings)  to:  AUTHOR'S  CLUB,  6027  S.  High, 
Suite  410,  Oklahoma  City,  OK  73149 

1986  CALENDAR.  The  history  of  computers 
1592-1985,  especially  micros.  $6  ch  or  m.o. 
Spiral,  3  holes,  8Vi  X  11.  HEATSTROKE  SOFT- 
WARE, P.O.  Box  62171,  Tucson,  AZ  85734-6171 

HELP  IS  ON  THE  WAYI 

Just  call  1-800-334-0868  to  get  your  free 
copy  of  the  latest  COMPUTE!  Books  Catalog! 
if  you  need  help  in  getting  information  on 
all  of  the  latest  COMPUTE!  book  titles 
available  plus  all  COMPUTE!  backlist  titles, 
call  us  today! 

NATIONWIDE  BBS  DIRECTORY.  250  exdting 
network  numbers.  Computer  to  computer. 
Coast-to-coast  and  Canada.  Send  $3  to; 
Compuquest,  Box  267,  Fairfax,  VA  22030-0267. 

RIBBONS  for  ANY  PRINTER  at  LOW  PRICES!! 

DELTA  MICRONICS 

BOX  10933,  ERIE,  PA  16514 

(814)  455-5667 

•  MR.  SOFTWARE  CO.  ALL  POPULAR  TITLES  * 

•  Pritners,  Monitors,  Drives,  VISA,  MC  * 
heavy  discounts  -  Send  $1.00  for  catalog 
11-9  Exton  Complex,  Somers  Point,  N)  08244 

FREE1  USE  YOUR  MODEM!  Call  Our 
innovative  electronic  shopping  center, 
FANTASY  PLAZA.  VISA  and  MASTERCARD 
accepted.  300  BAUD.  You've  never 
seen  anything  like  Ht  Use  your 
Modem  NOWl  (018)  S40-S066 

EARN  MONEY,  PART  OR  FULL  TIME,  AT 
HOME  with  your  computer.  50  page  manual 
with  fonns.  Money  back  guarantee,  $9.95,  JV 
Tech,  P.O.  Box  563,  Ludington,  MI  49431 


COMPUTE!  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  minimum  of  four  lines.  Any  or  all  of  the  first  line  set  in  capital 
letters  at  no  charge.  Add  $15  per  line  for  boldface  words,  or  S50  for  the  entire  ad  set 
in  boldface  (any  number  of  lines.) 

Terms:  Prepayment  is  required.  Check,  money  order,  American  Express,  Visa,  or 
MasterCard  is  accepted.  Make  checks  payable  to  COMPUTE!  Publications. 

Form:  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly 
printed.  One  line  equals  40  letters  and  spaces  between  words.  Please  underline 
words  to  be  set  in  boldface. 

General  Infonnation:  Advertisers  using  post  office  box  numbers  in  their  ads  must 
supply  permanent  address  and  telephone  numbers.  Orders  will  not  be  acknowl- 
edged. Ad  will  appear  in  next  available  issue  after  receipt. 

Closing:  10th  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes  March 
10th).  Send  order  and  remittance  to:  Harry  Blair,  Classified  Manager,  COMPUTE!, 
P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone,  call  Harry  Blair  at 
(919)  275-9809. 

Notice:  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of 
advertisers,  but  will  attempt  to  screen  out  misleading  or  questionable  copy. 
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lUBXell  DISKS 

LIFETIME  WARRANTY 


TIRED  OF  WAITING 
FOR  SERVICE  AND  PRICE? 

9  out  of  10  SURVEYED 
DISK  BUYERS  PREFERRED 

NORTH  HILLS 

#1  IN  SERVICE  AND  PRICE 

1-800-328-3472 

Formatted  and  hard  sectored  disks 
in  stock-Dealer  inquiries  invited. 

COD,  VISA,  MASTERCARD 
All  orders  shipped  within  24  hrs. 


Ma  w 


NORTH  HILLS  CORP. 
INTERNATIONAL 

3564  Rolling  View  Dr. 

White  Bear  Laks,  MN.  551 10 

MN.  call  collect-612-770-0485 


■^ 


•  With  Hub  Rings 
•WilhWrlle  Protect  Tabs 

•  Wilh  Slallc-Free. 
Dusl-Free  Envelopes 

•  Wilti  User  ID  Labels 

•  In  Factory  Seated 

Poly  Packs 


690 

Single' side 
Double  Dentity 


790 

DojbleSlde 
Double  OcnsilY 


100     ERROR  FREE    LIFETIME  WARRANTY 

MEET  OR  EXCEED  APPLICABLE  ANSI   ECMA   ISO 

STANDARDS 

MifiimiDrnquaniiiv  SOdiske'tes  Discoimi  for  300  Of 
more  (j^skelles  Shipping  and  Handling:  S^  00  oer 
lOOdisKeiies  Red itcwi sfiipprng chargefof  larger qu^n- 
ril^es  COD  add  S4  00  Cash  or  certified  check  Ml 
residents  add  d^o  sales  lax  Prices  siibjed  To  change 
withoui  nonce 


e 


Ji 


Precision  Dala  Products 

P.O  Bii.  3361.  Grant!  Ranni>.  Ml  -W-'OS 
(6161  4!2.34JT  .  Mi^h.gin  ]  .mx)-632-;46B 
Ouiiidc  Mifhigan  ]  KOO-258-lX)28 


QUALITY  MEDIA  Because  we  buy 

LIFETIME  REPLACE  in  huge  volume  to 

GUARANTEE  supply  software 

HUB  RINGS.TYV.  EPS.  manufacturers,  our 

WRITE  PROTECTS  prices  cant  tie  beat- 


S0+ 
525-ssoD    1.x      ,ao 

5  25'DSDD     1.18       1,05 
PC  FORMATTED     1.45     1.35 


110+  500+  1000+ 

85  eo       T5 

1.00  95        85 

1.25  1  15      110 


3  5' ID  (For  Mac)    2.70     2,B0     ?46    CALL   CALL 
3.5- 2D  (For  HP)     3  50     3  26     3  15    CALL   CALL 


4t^ 


BLACKSHIP 

COMPUTER  SUPPLY 


RO.  Box  883362  •  San  Francisco,  CA  94188 

ItiQuiries  +  No.  Cal.  orders415-660-0512 

So.  Cai.  orders  8(X)-23S-6647  x31 

USA  orders  80CM31-6249 

Add  t3[»  shipping  and  t^andling 
(CA  residents ad<je.5!l  sales taJi)VISA/MC/CO0 


Maxell  Fbppy  Disks 

The  Mini-Disks 
with  maximum  quality. 


Dealer  inquiries  invited  CO.D's  accepted. 
Call  FREE  (800)  235-4137 


PACinC  EXCHANGES 

100   Foottlill  Blvd     San  Luis 
San  Lu:5  Obispo,  CA9340] 
In  Cat  call  (gOO)  592-5935  or 
(8051543-1037 


3M  Diskettes 
Lifetime  Warranty 


TIRED  OF  WAITING 
FOR  SERVICE  AND  PRICE? 

9  out  of  10  SURVEYED 
DISK  BUYERS  PREFERRED 

NORTH  HILLS 

#1  IN  SERVICE  AND  PRICE 

1-800-328-3472 

Formatted  and  katd  sectored  disks 
in  stock-Dealer  inquiries  invited, 

COD,  VISA,  MASTERCARD 
All  orders  shipped  within  24  hrs. 

NORTH  HILLS  CORP. 
INTERNATIONAL 

3564  Rolling  View  Dr, 

White  Bear  Lake,  MN,  SSI  10 

MN.  call  collect— 612-770-0485 


Caialog  of  Computers  and  Supplies 
Our  Prices  are  WHOLESALE  *10% 

Aettd  (Hit  S-^ett€ft.  ^  *(*T 

We  suppon  ttie  complete  atari  and  COMMODORE 
product  linos.  A3l(  for  our  Iree  price  list 

(408)  353-1836 

(/4^  £iA%fU  not  'pxcc  So^ttfUVteJ 

fnsl&nt  shipping  (or  as  fast  as  wb  can).  Mastdrcard  & 
Visa  accopted  (no  extra  cHarge).  Shipping  &  handling 
add  6%.  Calilomia  cuMomers  add  €.5%  sales  lax.  Order 
by  phon&  (Mon.  -  Fn  10  am  -  5  pm  PST).  Order  by 
modem  {dBify  6pm-9am}  fromo^ironlineTeleCalaJog 
Prices  subject  to  change  without  nOTicfl. 

COMPUCAT 

24500  Glenwood  Hwy.,  Los  Gatos,  CA  95030 


S^^ 


[WORID 
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This  holiday  season  put  your 
fellow  PC  users  on  line  with 

COMPUTE! 

The  magazine  for  Home,  Education 
and  Recreational  Computing. 

SPECIAL  HOLIDAY  GIFT  SAVINGS 

For  each  gift  you  give,  save  25%  off  the  regular  $24 
subscription  rate.  You  pay  only  $18  per  gift  subscription. 

A  SEASONAL  CARD  WILL  ANNOUNCE  EACH  GIFT 


youR 

NAME 


ADDRESS 

API* 

CTHSMTBZiP 

Ir     TO: 

ADDRESS 

APT* 

CfTY/STATEfflP 

OR  CARD 
TO»£AO 

A  SPECIAL  OFFER  FOR  rOU 

J  HAVE  GIVEN  AT  LEASTI  GIFT  fLE«£ 

D  ENTEB  0«  □  DJENO  MY  SUaSOlPTJON  AT  THE  SAME 

LOW  RATE 
DPAlfMENT  ENCLOSED 
DftEASfBUME 


2, 


CnV/STATE/ZIP 


GIFT  CARD 
TO  READ 


PRICES  GOOD  IN  USA  ONLV  TOR  CANADA  AND  FOREIGN  PLEASE  ADD  56  PER  SUBSCRIPTION        NtlOZO 


NO  POSTAGE 

NECESSARY 

IF  MAILED 

IN  THE 

UNITED  STATES 


BUSINESS  REPLY  MAIL 

FIRST  CLASS  PERMIT  NO.  7478  DES  MOINES,  IOWA 


POSTAGE  WILL  BE  PAID  BY  ADDRESSEE 


COMPUTE! 

PO  BOX  10954 

DES  MOINES,  IOWA  50347 


COMPUTEI'S 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information  about  the  products  ad- 
vertised in  this  issue.  Clearly  print  or  type  your  full  name  and  address. 
Only  one  card  should  be  used  per  person.  Circle  the  numbers  that 
correspond  to  the  key  number  appearing  in  the  advertisers  index, 

Send  in  the  card  and  the  advertisers  will  receive  your  inquiry,  Al- 
though every  effort  is  made  to  insure  that  only  advertisers  wishing  to 
provide  product  information  have  reader  service  numbers,  compute! 
cannot  be  responsible  if  advertisers  do  not  provide  literature  to 
readers. 

Please  use  these  cards  only  for  subscribing  or  for  requesting  product 
information.  Editorial  and  customer  service  inquiries  should  be  ad- 
dressed to;  COMPUTE!,  P,0.  Box  5406,  Greensboro,  NC  27403,  Check 
the  expiration  date  on  the  card  to  insure  proper  handling, 

Use  these  cards  and  this  address  only  for  computecs  Reader  infor- 
mation Service.  Do  not  send  with  payment  in  any  form. 
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Circle  101  for  a  one  year  new  U.S.  subscription  to  computei;  you  will  be  billed  for  $24, 


Please  let  us  know.  Do  you 
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plan  to  buy: 
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Limit  one  cord  per  person. 
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Country 


Please  include  zip  code.  Expiration  date  12/3J/85 
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SUBSCRIBE  TO  COMPUTE! 
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01  n  Apple    02  n  Atari    03  D  Commodore  64 
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For  Fastest  Service, 
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US  Order  Line 

800-334-0666 
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D  $24.(XI  One  Year  US  Subscription 
D  $45.00  Two  Year  US  Subscription 


(Readers  outside  of  the  US,  please 
see  our  foreign  readers  subscription 
card  or  inquire  for  rates). 
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Breakthrough 


Number  &7 


•  K  iiT^a  jTiiTihririT^Bra^^ 


t;er  interface  ca 


Only  CARDCO  would  dare  improve  on  its  own 
best  seller  (the  +  G  has  far  out-sold  any  other 
printer  interface,  and  has  set  the  industry 
standard  by  which  competitors  are  judged). 
The  G-Wiz  is  even  better  —  and  costs 
30%  less.*  Our  27th  major  innovation  in 
Connmodore  accessories  has  all  the  +G's 
features,  and  more... 
Built-in  Buffer  for  More  Speed 
The  G-Wiz  buffer  dumps  high-resolution 
screens  up  to  18  times  faster  than  competitive 
interfaces  without  buffers.  No  more  waiting!  A 
complex  50-minute  printout  now  takes  just  2.5 
minutes  with  the  G-Wiz. 

Exclusive!  Aepect  Ratio  Selection 

Only  the  G-Wiz  matches  graphics  characters  to 
standard  characters  on  Okidata,  Epson,  Star 

'  Actual  price  may  vary  according  id  dealer  and  region. 


Micronics,  Prowriter,  Smith  Corona,  C-!TOH, 
Gorilla  Banana,  and  many  other  dot  matrix 
printers.  Now  you  can  perfectly  align  high 
resolution  graphics  characters  within  text 
blocks,  or  in  columns. 
CARDCO  excellence  triumphs  again!  The 
G-Wiz  is  the  "best  bang  for  the  buck"  on  the 
printer  interface  market  today  —  and  it's 
backed  by  CARDCO'S  exclusive  lifetime 
warranty!  G-Wiz:  another  distant  target  for  the 
competition  to  shoot  at. 

CARDCO,  Inc.  300  S.Topeka/Wichita,  KS  67202 


The  Wizards  from  the  Land  of  Dz  Have  Done  It  Again! 


HOWTOEVOIVE 
TO  A  HIGHER  INTELLIGENCE. 
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THE  COMMODORE  128. 

The  first  step  is  buying  the 
Commodore  128™  Personal  Com- 
puter. The  smartest  computer 
available  for  the  price,  it's  like  get- 
ting three  computers  for  less 
than  one  usually  costs.  You  can  run 
CP/M®  business  software,  the 
new  programs  written  for  the  1 28, 
and  over  3,000  Commodore  64® 
programs.  You  start  out  with  more 
software  than  most  machines 
give  you  after  years  on  the  market. 
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THE  COMMODORE  128 
LEARKS  TO  COMMUNICATE. 

There's  no  real  intelligence  without 
the  ability  to  communicate.  So 
you'll  want  our  1670  Modem/1200. 
It  puts  you  in  touch  with  a  new 
world  of  shopping,  banking, 
communications  and  information 
over  your  telephone  line.  And  It 
operates  at  a  lightning-fast  1200 
baud  to  save  on  your  phone  bill. 


THE  COMMODORE  128 
WORKS  FASTER. 

To  run  all  that  software  and  run  if 
faster,  you'll  want  the  1571  Disk  Drive. 
You  can'f  find  a  faster  drive  at  the 
price.  It  transfers  nearly  1,000  words 
a  second  (5200  cps),  so  you  can 
load  most  programs  instantly 
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THE  COMMODORE  128 
LEARNS  TO  WRITE. 

Looking  good  in  print  could  be 
your  next  move  with  the  MPS  1000 
Printer  Ifs  a  new  dot  matrix 
printer  designed  to  make  the  most 
of  the  128's  speed  and  high-reso- 
lution graphics.  The  MPS  turns  out 
about  1200  words  a  minute 
(100  cps)  of  draft-quality  printing,  or 
gives  you  near-letter-quality  at 
about  240  words  a  minute  (20  cps), 


THE  COMMODORE  128 
GETS  SMARTER. 

Nowtry  improving  your  memon/. 
Plug  in  our  1750  RAM  Expansion 
Module  and  your  128  moves  up 
to  a  powerful  51 2K,  That's  enough 
to  handle  just  about  anything  you 
can  dish  ouf  from  complicated 
business  forecasting  to  giant 
data  bases. 


,      THE  COMMODORE  128 
IMPROVES  YOUR  VISION. 

Brains  aren't  enough  without  good 
looks,  so  improve  your  vision  with 
Commodore's  new  1 902  RGB  Color 
Monitor  The  high-resolution  screen 
gives  you  a  sharper  image  and 
betfer  color  than  your  standard  TV, 
so  you  can  really  appreciate  the 
128's  great  graphics. 


All  these  evolutionan/  steps  ahead  won't  set  you  back  when  it  comes 

to  paying  for  them.  Additions  to  your  Commodore  128  are 

available  at  a  store  near  you  and  are  as  affordable  as  the  1 28  itself, 

VVe  think  thars  a  smarf  way  to  help  you  build  a  computer  system. 

®CP/M  Is  a  regisrered  rrodemark  of  Digitol  Reiearch,  Inc.  ©  1985  Commodore  Electronics  limited 

COMMODORE  128^  PERSONAL  COMPUTER 

A  Higher  Intelligence 


